use radix literals

[factor.git] / basis / bitstreams / bitstreams-tests.factor

diff --git a/basis/bitstreams/bitstreams-tests.factor b/basis/bitstreams/bitstreams-tests.factor
index 794faa6055fc399f5c6a092ca62872b0fc125880..19961825de9261d0d5d2c54626911360b8847c32 100644 (file)
--- a/basis/bitstreams/bitstreams-tests.factor
+++ b/basis/bitstreams/bitstreams-tests.factor
@@ -5,44 +5,44 @@ grouping compression.lzw multiline byte-arrays io.encodings.binary
 io.streams.byte-array ;
 IN: bitstreams.tests
 
-[ BIN: 1111111111 ]
+[ 0b1111111111 ]
 [
-    B{ HEX: 0f HEX: ff HEX: ff HEX: ff } <msb0-bit-reader>
+    B{ 0x0f 0xff 0xff 0xff } <msb0-bit-reader>
     2 >>byte-pos 6 >>bit-pos
     10 swap peek
 ] unit-test
 
-[ BIN: 111111111 ]
+[ 0b111111111 ]
 [
-    B{ HEX: 0f HEX: ff HEX: ff HEX: ff } <msb0-bit-reader>
+    B{ 0x0f 0xff 0xff 0xff } <msb0-bit-reader>
     2 >>byte-pos 6 >>bit-pos
     9 swap peek
 ] unit-test
 
-[ BIN: 11111111 ]
+[ 0b11111111 ]
 [
-    B{ HEX: 0f HEX: ff HEX: ff HEX: ff } <msb0-bit-reader>
+    B{ 0x0f 0xff 0xff 0xff } <msb0-bit-reader>
     2 >>byte-pos 6 >>bit-pos
     8 swap peek
 ] unit-test
 
-[ BIN: 1111111 ]
+[ 0b1111111 ]
 [
-    B{ HEX: 0f HEX: ff HEX: ff HEX: ff } <msb0-bit-reader>
+    B{ 0x0f 0xff 0xff 0xff } <msb0-bit-reader>
     2 >>byte-pos 6 >>bit-pos
     7 swap peek
 ] unit-test
 
-[ BIN: 111111 ]
+[ 0b111111 ]
 [
-    B{ HEX: 0f HEX: ff HEX: ff HEX: ff } <msb0-bit-reader>
+    B{ 0x0f 0xff 0xff 0xff } <msb0-bit-reader>
     2 >>byte-pos 6 >>bit-pos
     6 swap peek
 ] unit-test
 
-[ BIN: 11111 ]
+[ 0b11111 ]
 [
-    B{ HEX: 0f HEX: ff HEX: ff HEX: ff } <msb0-bit-reader>
+    B{ 0x0f 0xff 0xff 0xff } <msb0-bit-reader>
     2 >>byte-pos 6 >>bit-pos
     5 swap peek
 ] unit-test