From d95b58a9f705f51dd0c8fbfb79b2e1d50c9591fd Mon Sep 17 00:00:00 2001 From: slava Date: Wed, 1 Nov 2006 05:25:33 +0000 Subject: [PATCH] Unit test fixes --- library/test/kernel.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/library/test/kernel.factor b/library/test/kernel.factor index 121f71fc0f..4a9b57e784 100644 --- a/library/test/kernel.factor +++ b/library/test/kernel.factor @@ -8,8 +8,8 @@ test errors math-internals ; ! some primitives are missing GC checks [ ] [ 1000000 [ drop H{ } clone >n n> drop ] each ] unit-test ! [ ] [ 1.0 10000000 [ drop 1.0 * ] each ] unit-test -! [ ] [ 268435455 >fixnum 10000000 [ drop dup dup + drop ] each ] unit-test -! [ ] [ 268435455 >fixnum 10000000 [ drop dup dup fixnum+ drop ] each ] unit-test +! [ ] [ 268435455 >fixnum 10000000 [ dup dup + drop ] each drop ] unit-test +[ ] [ 268435455 >fixnum 10000000 [ dup dup fixnum+ drop ] each drop ] unit-test [ ] [ 10000000 [ drop 1/3 >fixnum drop ] each ] unit-test [ ] [ 10000000 [ drop 1/3 >bignum drop ] each ] unit-test [ ] [ 10000000 [ drop 1/3 >float drop ] each ] unit-test