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