extra/io/binary/fast/fast-tests.factor

   1 ! Copyright (C) 2011 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: tools.test io.binary.fast ;
   4
   5 { 0x0102 } [ B{ 01 02 } 2be> ] unit-test
   6 { 0x01020304 } [ B{ 01 02 03 04 } 4be> ] unit-test
   7 { 0x0102030405060708 } [ B{ 01 02 03 04 05 06 07 08 } 8be> ] unit-test
   8
   9 { 0x0102 } [ B{ 02 01 } 2le> ] unit-test
  10 { 0x01020304 } [ B{ 04 03 02 01 } 4le> ] unit-test
  11 { 0x0102030405060708 } [ B{ 08 07 06 05 04 03 02 01 } 8le> ] unit-test
  12
  13 { 0x04030201 } [ B{ 1 2 3 4 } signed-le> ] unit-test
  14 { 0x01020304 } [ B{ 1 2 3 4 } signed-be> ] unit-test
  15
  16 { -12 } [ B{ 0xf4 0xff 0xff 0xff } signed-le> ] unit-test
  17 { -12 } [ B{ 0xff 0xff 0xff 0xf4 } signed-be> ] unit-test