2008-03-08 03:51:26 -05:00
|
|
|
USING: io.binary tools.test classes math ;
|
2008-03-01 17:00:45 -05:00
|
|
|
IN: io.binary.tests
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2011-11-23 21:49:33 -05:00
|
|
|
[ 0x03020100 ] [ B{ 0 1 2 3 } le> ] unit-test
|
|
|
|
|
[ 0x00010203 ] [ B{ 0 1 2 3 } be> ] unit-test
|
2011-10-12 00:13:30 -04:00
|
|
|
|
2011-11-23 21:49:33 -05:00
|
|
|
[ 0x332211 ] [
|
|
|
|
|
B{ 0x11 0x22 0x33 } le>
|
2011-10-12 00:13:30 -04:00
|
|
|
] unit-test
|
|
|
|
|
|
2011-11-23 21:49:33 -05:00
|
|
|
[ 0x7a2c793b2ff08554 ] [
|
|
|
|
|
B{ 0x54 0x85 0xf0 0x2f 0x3b 0x79 0x2c 0x7a } le>
|
2011-10-12 00:13:30 -04:00
|
|
|
] unit-test
|
|
|
|
|
|
2011-11-23 21:49:33 -05:00
|
|
|
[ 0x988a259c3433f237 ] [
|
|
|
|
|
B{ 0x37 0xf2 0x33 0x34 0x9c 0x25 0x8a 0x98 } le>
|
2011-10-12 00:13:30 -04:00
|
|
|
] unit-test
|
|
|
|
|
|
2011-11-23 21:49:33 -05:00
|
|
|
[ B{ 0 0 4 0xd2 } ] [ 1234 4 >be ] unit-test
|
|
|
|
|
[ B{ 0 0 0 0 0 0 4 0xd2 } ] [ 1234 8 >be ] unit-test
|
|
|
|
|
[ B{ 0xd2 4 0 0 } ] [ 1234 4 >le ] unit-test
|
|
|
|
|
[ B{ 0xd2 4 0 0 0 0 0 0 } ] [ 1234 8 >le ] unit-test
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
|
[ 1234 ] [ 1234 4 >be be> ] unit-test
|
|
|
|
|
[ 1234 ] [ 1234 4 >le le> ] unit-test
|
2008-03-08 03:51:26 -05:00
|
|
|
|
2011-10-24 22:33:09 -04:00
|
|
|
[ fixnum ] [ B{ 0 0 0 0 0 0 0 0 0 0 } be> class-of ] unit-test
|
2009-02-02 00:47:36 -05:00
|
|
|
|
2011-11-23 21:49:33 -05:00
|
|
|
[ 0x56780000 0x12340000 ] [ 0x1234000056780000 d>w/w ] unit-test
|
|
|
|
|
[ 0x5678 0x1234 ] [ 0x12345678 w>h/h ] unit-test
|
|
|
|
|
[ 0x34 0x12 ] [ 0x1234 h>b/b ] unit-test
|
