use radix literals

[factor.git] / basis / math / bits / bits-tests.factor

diff --git a/basis/math/bits/bits-tests.factor b/basis/math/bits/bits-tests.factor
index ed4e8419c965911e3496df60ba19f12b716b9e19..6a39488bdbabbea6f216e4e0ea192be393a5bb1b 100644 (file)
--- a/basis/math/bits/bits-tests.factor
+++ b/basis/math/bits/bits-tests.factor
@@ -3,12 +3,12 @@
 USING: tools.test math math.bits sequences arrays ;
 IN: math.bits.tests
 
-[ t ] [ BIN: 111111 3 <bits> second ] unit-test
-[ { t t t } ] [ BIN: 111111 3 <bits> >array ] unit-test
-[ f ] [ BIN: 111101 3 <bits> second ] unit-test
-[ { f f t } ] [ BIN: 111100 3 <bits> >array ] unit-test
-[ 3 ] [ BIN: 111111 3 <bits> length ] unit-test
-[ 6 ] [ BIN: 111111 make-bits length ] unit-test
+[ t ] [ 0b111111 3 <bits> second ] unit-test
+[ { t t t } ] [ 0b111111 3 <bits> >array ] unit-test
+[ f ] [ 0b111101 3 <bits> second ] unit-test
+[ { f f t } ] [ 0b111100 3 <bits> >array ] unit-test
+[ 3 ] [ 0b111111 3 <bits> length ] unit-test
+[ 6 ] [ 0b111111 make-bits length ] unit-test
 [ 0 ] [ 0 make-bits length ] unit-test
 [ 2 ] [ 3 make-bits length ] unit-test
 [ 2 ] [ -3 make-bits length ] unit-test
@@ -23,9 +23,12 @@ IN: math.bits.tests
 ] unit-test
 
 [ t ] [
-    1067811677921310779 make-bits peek
+    1067811677921310779 make-bits last
 ] unit-test
 
 [ t ] [
-    1067811677921310779 >bignum make-bits peek
-] unit-test
\ No newline at end of file
+    1067811677921310779 >bignum make-bits last
+] unit-test
+
+[ 6 ] [ 6 make-bits unbits ] unit-test
+[ 6 ] [ 6 3 <bits> >array unbits ] unit-test