2008-09-05 20:29:14 -04:00
|
|
|
USING: accessors math math.bitwise tools.test kernel words ;
|
|
|
|
|
IN: math.bitwise.tests
|
|
|
|
|
|
|
|
|
|
[ 0 ] [ 1 0 0 bitroll ] unit-test
|
|
|
|
|
[ 1 ] [ 1 0 1 bitroll ] unit-test
|
|
|
|
|
[ 1 ] [ 1 1 1 bitroll ] unit-test
|
|
|
|
|
[ 1 ] [ 1 0 2 bitroll ] unit-test
|
|
|
|
|
[ 1 ] [ 1 0 1 bitroll ] unit-test
|
|
|
|
|
[ 1 ] [ 1 20 2 bitroll ] unit-test
|
|
|
|
|
[ 1 ] [ 1 8 8 bitroll ] unit-test
|
|
|
|
|
[ 1 ] [ 1 -8 8 bitroll ] unit-test
|
|
|
|
|
[ 1 ] [ 1 -32 8 bitroll ] unit-test
|
|
|
|
|
[ 128 ] [ 1 -1 8 bitroll ] unit-test
|
|
|
|
|
[ 8 ] [ 1 3 32 bitroll ] unit-test
|
|
|
|
|
|
|
|
|
|
[ 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
|
2009-08-14 15:27:23 -04:00
|
|
|
: test-1+ ( x -- y ) 1 + ;
|
|
|
|
|
[ 512 ] [ 1 { { test-1+ 8 } } bitfield ] unit-test
|
2008-09-05 20:29:14 -04:00
|
|
|
|
2009-02-22 20:13:08 -05:00
|
|
|
CONSTANT: a 1
|
|
|
|
|
CONSTANT: b 2
|
2008-09-05 20:29:14 -04:00
|
|
|
|
|
|
|
|
: foo ( -- flags ) { a b } flags ;
|
|
|
|
|
|
|
|
|
|
[ 3 ] [ foo ] unit-test
|
|
|
|
|
[ 3 ] [ { a b } flags ] unit-test
|
2009-04-20 22:15:19 -04:00
|
|
|
\ foo def>> must-infer
|
2008-11-11 14:03:08 -05:00
|
|
|
|
|
|
|
|
[ 1 ] [ { 1 } flags ] unit-test
|
2008-11-29 01:37:36 -05:00
|
|
|
|
|
|
|
|
[ 8 ] [ 0 3 toggle-bit ] unit-test
|
|
|
|
|
[ 0 ] [ 8 3 toggle-bit ] unit-test
|
2009-01-08 19:57:07 -05:00
|
|
|
|
|
|
|
|
[ 4 ] [ BIN: 1010101 bit-count ] unit-test
|
|
|
|
|
[ 0 ] [ BIN: 0 bit-count ] unit-test
|
|
|
|
|
[ 1 ] [ BIN: 1 bit-count ] unit-test
|
