use radix literals

[factor.git] / basis / bit-arrays / bit-arrays-tests.factor

diff --git a/basis/bit-arrays/bit-arrays-tests.factor b/basis/bit-arrays/bit-arrays-tests.factor
index 7397791ab5b1b05058058d87fade66942c1ccb6d..79f4844f4942831ef4a1216f29ab7f7982e6fc87 100644 (file)
--- a/basis/bit-arrays/bit-arrays-tests.factor
+++ b/basis/bit-arrays/bit-arrays-tests.factor
@@ -1,7 +1,9 @@
-USING: sequences sequences.private arrays bit-arrays kernel
+USING: alien sequences sequences.private arrays bit-arrays kernel
 tools.test math random ;
 IN: bit-arrays.tests
 
+[ -1 <bit-array> ] [ T{ bad-array-length f -1 } = ] must-fail-with
+
 [ 100 ] [ 100 <bit-array> length ] unit-test
 
 [
@@ -40,7 +42,7 @@ IN: bit-arrays.tests
     100 [
         drop 100 [ 2 random zero? ] replicate
         dup >bit-array >array =
-    ] all?
+    ] all-integers?
 ] unit-test
 
 [ ?{ f } ] [
@@ -65,12 +67,12 @@ IN: bit-arrays.tests
     t t t t t t t t   t t t t t t t t   t t t t t t t t  t t t t t t t t
     t t t t t t t t   t t t t t t t t   t t t t t t t t  t t t t t t t t
 } ] [
-    HEX: ffffffffffffffffffffffffffffffff integer>bit-array
+    0xffffffffffffffffffffffffffffffff integer>bit-array
 ] unit-test
 
 [ 14 ] [ ?{ f t t t } bit-array>integer ] unit-test
 [ 0 ] [ ?{ } bit-array>integer ] unit-test
-[ HEX: ffffffffffffffffffffffffffffffff ] [ ?{
+[ 0xffffffffffffffffffffffffffffffff ] [ ?{
     t t t t t t t t   t t t t t t t t   t t t t t t t t  t t t t t t t t
     t t t t t t t t   t t t t t t t t   t t t t t t t t  t t t t t t t t
     t t t t t t t t   t t t t t t t t   t t t t t t t t  t t t t t t t t
@@ -79,4 +81,8 @@ IN: bit-arrays.tests
 
 [ 49 ] [ 49 <bit-array> dup set-bits [ ] count ] unit-test
 
-[ HEX: 100 ] [ ?{ f f f f f f f f t } bit-array>integer ] unit-test
+[ 1 ] [ ?{ f t f t } byte-length ] unit-test
+
+[ 0xa ] [ ?{ f t f t } bit-array>integer ] unit-test
+
+[ 0x100 ] [ ?{ f f f f f f f f t } bit-array>integer ] unit-test