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

math.integers: pass tests even if number-base set

db4
Joe Groff 2011-11-26 17:37:17 -08:00
parent 269fe9ea1a
commit 0f5b551790
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,9 +1,11 @@
USING: kernel math math.functions math.order namespaces USING: kernel math math.functions math.order namespaces
prettyprint math.private continuations tools.test sequences prettyprint math.private continuations tools.test sequences
random ; random prettyprint.config ;
IN: math.integers.tests IN: math.integers.tests
[ "-8" ] [ -8 unparse ] unit-test 10 number-base [
[ "-8" ] [ -8 unparse ] unit-test
] with-variable
[ t ] [ 0 fixnum? ] unit-test [ t ] [ 0 fixnum? ] unit-test
[ t ] [ 31415 number? ] unit-test [ t ] [ 31415 number? ] unit-test
@ -54,9 +56,11 @@ IN: math.integers.tests
[ -1 ] [ -1 >bignum >fixnum ] unit-test [ -1 ] [ -1 >bignum >fixnum ] unit-test
[ "8589934592" ] 10 number-base [
[ 134217728 dup + dup + dup + dup + dup + dup + unparse ] [ "8589934592" ]
unit-test [ 134217728 dup + dup + dup + dup + dup + dup + unparse ]
unit-test
] with-variable
[ 7 ] [ 255 log2 ] unit-test [ 7 ] [ 255 log2 ] unit-test
[ 8 ] [ 256 log2 ] unit-test [ 8 ] [ 256 log2 ] unit-test