core/io/binary/binary-tests.factor

   1 USING: io.binary tools.test classes math ;
   2 IN: io.binary.tests
   3
   4 [ B{ 0 0 4 HEX: d2 } ] [ 1234 4 >be ] unit-test
   5 [ B{ 0 0 0 0 0 0 4 HEX: d2 } ] [ 1234 8 >be ] unit-test
   6 [ B{ HEX: d2 4 0 0 } ] [ 1234 4 >le ] unit-test
   7 [ B{ HEX: d2 4 0 0 0 0 0 0 } ] [ 1234 8 >le ] unit-test
   8
   9 [ 1234 ] [ 1234 4 >be be> ] unit-test
  10 [ 1234 ] [ 1234 4 >le le> ] unit-test
  11
  12 [ fixnum ] [ B{ 0 0 0 0 0 0 0 0 0 0 } be> class ] unit-test