core/io/binary/binary-tests.factor

   1 USING: io.binary tools.test classes math ;
   2 IN: io.binary.tests
   3
   4 [ HEX: 03020100 ] [ B{ 0 1 2 3 } le> ] unit-test
   5 [ HEX: 00010203 ] [ B{ 0 1 2 3 } be> ] unit-test
   6
   7 [ HEX: 332211 ] [
   8     B{ HEX: 11 HEX: 22 HEX: 33 } le>
   9 ] unit-test
  10
  11 [ HEX: 7a2c793b2ff08554 ] [
  12     B{ HEX: 54 HEX: 85 HEX: f0 HEX: 2f HEX: 3b HEX: 79 HEX: 2c HEX: 7a } le>
  13 ] unit-test
  14
  15 [ HEX: 988a259c3433f237 ] [
  16     B{ HEX: 37 HEX: f2 HEX: 33 HEX: 34 HEX: 9c HEX: 25 HEX: 8a HEX: 98 } le>
  17 ] unit-test
  18
  19 [ B{ 0 0 4 HEX: d2 } ] [ 1234 4 >be ] unit-test
  20 [ B{ 0 0 0 0 0 0 4 HEX: d2 } ] [ 1234 8 >be ] unit-test
  21 [ B{ HEX: d2 4 0 0 } ] [ 1234 4 >le ] unit-test
  22 [ B{ HEX: d2 4 0 0 0 0 0 0 } ] [ 1234 8 >le ] unit-test
  23
  24 [ 1234 ] [ 1234 4 >be be> ] unit-test
  25 [ 1234 ] [ 1234 4 >le le> ] unit-test
  26
  27 [ fixnum ] [ B{ 0 0 0 0 0 0 0 0 0 0 } be> class-of ] unit-test
  28
  29 [ HEX: 56780000 HEX: 12340000 ] [ HEX: 1234000056780000 d>w/w ] unit-test
  30 [ HEX: 5678 HEX: 1234 ] [ HEX: 12345678 w>h/h ] unit-test
  31 [ HEX: 34 HEX: 12 ] [ HEX: 1234 h>b/b ] unit-test