X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fmath%2Fbits%2Fbits-tests.factor;h=6a39488bdbabbea6f216e4e0ea192be393a5bb1b;hp=c6f4c6e8fad5d17fe1f0d5b61da6523a9b7fcc81;hb=943596575ad294c074dfa381b70af74dba5992b1;hpb=e738c7206c32bd9b76f3cee31e950835e1b1ee24 diff --git a/basis/math/bits/bits-tests.factor b/basis/math/bits/bits-tests.factor index c6f4c6e8fa..6a39488bdb 100644 --- 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 second ] unit-test -[ { t t t } ] [ BIN: 111111 3 >array ] unit-test -[ f ] [ BIN: 111101 3 second ] unit-test -[ { f f t } ] [ BIN: 111100 3 >array ] unit-test -[ 3 ] [ BIN: 111111 3 length ] unit-test -[ 6 ] [ BIN: 111111 make-bits length ] unit-test +[ t ] [ 0b111111 3 second ] unit-test +[ { t t t } ] [ 0b111111 3 >array ] unit-test +[ f ] [ 0b111101 3 second ] unit-test +[ { f f t } ] [ 0b111100 3 >array ] unit-test +[ 3 ] [ 0b111111 3 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