-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
[
[
{ t f t } { f t f }
] [
- { t f t } >bit-array dup clone dup [ not ] change-each
+ { t f t } >bit-array dup clone [ not ] map!
[ >array ] bi@
] unit-test
100 [
drop 100 [ 2 random zero? ] replicate
dup >bit-array >array =
- ] all?
+ ] all-integers?
] unit-test
[ ?{ f } ] [
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
} bit-array>integer ] unit-test
[ 49 ] [ 49 <bit-array> dup set-bits [ ] count ] 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