2008-02-08 02:48:51 -05:00
|
|
|
USING: math math.bitfields tools.test kernel words ;
|
2008-03-01 17:00:45 -05:00
|
|
|
IN: math.bitfields.tests
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
|
[ 0 ] [ { } bitfield ] unit-test
|
|
|
|
|
[ 256 ] [ 1 { 8 } bitfield ] unit-test
|
|
|
|
|
[ 268 ] [ 3 1 { 8 2 } bitfield ] unit-test
|
|
|
|
|
[ 268 ] [ 1 { 8 { 3 2 } } bitfield ] unit-test
|
|
|
|
|
[ 512 ] [ 1 { { 1+ 8 } } bitfield ] unit-test
|
2008-02-08 02:48:51 -05:00
|
|
|
|
|
|
|
|
: a 1 ; inline
|
|
|
|
|
: b 2 ; inline
|
|
|
|
|
|
|
|
|
|
: foo { a b } flags ;
|
|
|
|
|
|
|
|
|
|
[ 3 ] [ foo ] unit-test
|
|
|
|
|
[ 3 ] [ { a b } flags ] unit-test
|
|
|
|
|
[ t ] [ \ foo compiled? ] unit-test
|
