]> gitweb.factorcode.org Git - factor.git/blobdiff - core/io/binary/binary-tests.factor
use radix literals
[factor.git] / core / io / binary / binary-tests.factor
index fc94c1a7ffdca2fdf05eb6ab7cd37ae8bccafe51..8ed3a627d9468f0514a0f7119b955712283b189b 100644 (file)
@@ -1,31 +1,31 @@
 USING: io.binary tools.test classes math ;
 IN: io.binary.tests
 
-[ HEX: 03020100 ] [ B{ 0 1 2 3 } le> ] unit-test
-[ HEX: 00010203 ] [ B{ 0 1 2 3 } be> ] unit-test
+[ 0x03020100 ] [ B{ 0 1 2 3 } le> ] unit-test
+[ 0x00010203 ] [ B{ 0 1 2 3 } be> ] unit-test
 
-[ HEX: 332211 ] [
-    B{ HEX: 11 HEX: 22 HEX: 33 } le>
+[ 0x332211 ] [
+    B{ 0x11 0x22 0x33 } le>
 ] unit-test
 
-[ HEX: 7a2c793b2ff08554 ] [
-    B{ HEX: 54 HEX: 85 HEX: f0 HEX: 2f HEX: 3b HEX: 79 HEX: 2c HEX: 7a } le>
+[ 0x7a2c793b2ff08554 ] [
+    B{ 0x54 0x85 0xf0 0x2f 0x3b 0x79 0x2c 0x7a } le>
 ] unit-test
 
-[ HEX: 988a259c3433f237 ] [
-    B{ HEX: 37 HEX: f2 HEX: 33 HEX: 34 HEX: 9c HEX: 25 HEX: 8a HEX: 98 } le>
+[ 0x988a259c3433f237 ] [
+    B{ 0x37 0xf2 0x33 0x34 0x9c 0x25 0x8a 0x98 } le>
 ] unit-test
 
-[ B{ 0 0 4 HEX: d2 } ] [ 1234 4 >be ] unit-test
-[ B{ 0 0 0 0 0 0 4 HEX: d2 } ] [ 1234 8 >be ] unit-test
-[ B{ HEX: d2 4 0 0 } ] [ 1234 4 >le ] unit-test
-[ B{ HEX: d2 4 0 0 0 0 0 0 } ] [ 1234 8 >le ] unit-test
+[ 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
 
 [ 1234 ] [ 1234 4 >be be> ] unit-test
 [ 1234 ] [ 1234 4 >le le> ] unit-test
 
 [ fixnum ] [ B{ 0 0 0 0 0 0 0 0 0 0 } be> class-of ] unit-test
 
-[ HEX: 56780000 HEX: 12340000 ] [ HEX: 1234000056780000 d>w/w ] unit-test
-[ HEX: 5678 HEX: 1234 ] [ HEX: 12345678 w>h/h ] unit-test
-[ HEX: 34 HEX: 12 ] [ HEX: 1234 h>b/b ] unit-test
+[ 0x56780000 0x12340000 ] [ 0x1234000056780000 d>w/w ] unit-test
+[ 0x5678 0x1234 ] [ 0x12345678 w>h/h ] unit-test
+[ 0x34 0x12 ] [ 0x1234 h>b/b ] unit-test