steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

math.integers: add some more tests for bit?.

db4
John Benediktsson 2015-06-17 20:23:21 -07:00
parent 621b50a8e5
commit 7dfe023854
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
core/math/integers/integers-tests.factor
View File

@ -72,29 +72,37 @@ IN: math.integers.tests
[ 8 ] [ 257 >bignum log2 ] unit-test
[ 0 ] [ 1 >bignum log2 ] unit-test
[ f ] [ 0b1101 -1 bit? ] unit-test
[ t ] [ 0b1101 0 bit? ] unit-test
[ f ] [ 0b1101 1 bit? ] unit-test
[ t ] [ 0b1101 2 bit? ] unit-test
[ t ] [ 0b1101 3 bit? ] unit-test
[ f ] [ 0b1101 4 bit? ] unit-test
[ f ] [ 0b1101 1000 bit? ] unit-test
[ f ] [ 0b1101 >bignum -1 bit? ] unit-test
[ t ] [ 0b1101 >bignum 0 bit? ] unit-test
[ f ] [ 0b1101 >bignum 1 bit? ] unit-test
[ t ] [ 0b1101 >bignum 2 bit? ] unit-test
[ t ] [ 0b1101 >bignum 3 bit? ] unit-test
[ f ] [ 0b1101 >bignum 4 bit? ] unit-test
[ f ] [ 0b1101 >bignum 1000 bit? ] unit-test
[ t ] [ -0b1101 -1 bit? ] unit-test
[ t ] [ -0b1101 0 bit? ] unit-test
[ t ] [ -0b1101 1 bit? ] unit-test
[ f ] [ -0b1101 2 bit? ] unit-test
[ f ] [ -0b1101 3 bit? ] unit-test
[ t ] [ -0b1101 4 bit? ] unit-test
[ t ] [ -0b1101 1000 bit? ] unit-test
[ t ] [ -0b1101 >bignum -1 bit? ] unit-test
[ t ] [ -0b1101 >bignum 0 bit? ] unit-test
[ t ] [ -0b1101 >bignum 1 bit? ] unit-test
[ f ] [ -0b1101 >bignum 2 bit? ] unit-test
[ f ] [ -0b1101 >bignum 3 bit? ] unit-test
[ t ] [ -0b1101 >bignum 4 bit? ] unit-test
[ t ] [ -0b1101 >bignum 1000 bit? ] unit-test
[ t ] [ 1067811677921310779 >bignum 59 bit? ] unit-test