2007-09-20 18:09:08 -04:00
|
|
|
USING: tools.test bitfields kernel ;
|
2008-03-08 05:27:19 -05:00
|
|
|
IN: bitfields.tests
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
|
SAFE-BITFIELD: foo bar:5 baz:10 111 bing:2 ;
|
|
|
|
|
|
|
|
|
|
[ 21 ] [ 21 852 3 <foo> foo-bar ] unit-test
|
|
|
|
|
[ 852 ] [ 21 852 3 <foo> foo-baz ] unit-test
|
|
|
|
|
[ 3 ] [ 21 852 3 <foo> foo-bing ] unit-test
|
|
|
|
|
|
|
|
|
|
[ 23 ] [ 21 852 3 <foo> 23 swap with-foo-bar foo-bar ] unit-test
|
|
|
|
|
[ 855 ] [ 21 852 3 <foo> 855 swap with-foo-baz foo-baz ] unit-test
|
|
|
|
|
[ 1 ] [ 21 852 3 <foo> 1 swap with-foo-bing foo-bing ] unit-test
|
|
|
|
|
|
2008-02-06 14:47:19 -05:00
|
|
|
[ 100 0 0 <foo> ] must-fail
|
|
|
|
|
[ 0 5000 0 <foo> ] must-fail
|
|
|
|
|
[ 0 0 10 <foo> ] must-fail
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2008-02-06 14:47:19 -05:00
|
|
|
[ 100 0 with-foo-bar ] must-fail
|
|
|
|
|
[ 5000 0 with-foo-baz ] must-fail
|
|
|
|
|
[ 10 0 with-foo-bing ] must-fail
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
|
[ BIN: 00101100000000111111 ] [ BIN: 101 BIN: 1000000001 BIN: 11 <foo> ] unit-test
|
