From 0f5b5517909f3670bd2b002d65e3c280bdb0a64a Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Sat, 26 Nov 2011 17:37:17 -0800 Subject: [PATCH] math.integers: pass tests even if number-base set --- core/math/integers/integers-tests.factor | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/core/math/integers/integers-tests.factor b/core/math/integers/integers-tests.factor index 1204e5b929..5a10fd7a5c 100644 --- a/core/math/integers/integers-tests.factor +++ b/core/math/integers/integers-tests.factor @@ -1,9 +1,11 @@ USING: kernel math math.functions math.order namespaces prettyprint math.private continuations tools.test sequences -random ; +random prettyprint.config ; 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 ] [ 31415 number? ] unit-test @@ -54,9 +56,11 @@ IN: math.integers.tests [ -1 ] [ -1 >bignum >fixnum ] unit-test -[ "8589934592" ] -[ 134217728 dup + dup + dup + dup + dup + dup + unparse ] -unit-test +10 number-base [ + [ "8589934592" ] + [ 134217728 dup + dup + dup + dup + dup + dup + unparse ] + unit-test +] with-variable [ 7 ] [ 255 log2 ] unit-test [ 8 ] [ 256 log2 ] unit-test