core/test/binary.factor

   1 IN: temporary
   2 USING: io test ;
   3
   4 [ "\0\0\u0004\u00d2" ] [ 1234 4 >be ] unit-test
   5 [ "\u00d2\u0004\0\0" ] [ 1234 4 >le ] unit-test
   6
   7 [ 1234 ] [ 1234 4 >be be> ] unit-test
   8 [ 1234 ] [ 1234 4 >le le> ] unit-test