From 9f4ac667dc5d76b57956d798d5a88cd67d2fab49 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Wed, 29 Apr 2009 23:36:05 -0500 Subject: [PATCH] Move some unit tests from generic to generic.math --- core/generic/generic-tests.factor | 9 --------- core/generic/math/math-tests.factor | 16 ++++++++++++++++ 2 files changed, 16 insertions(+), 9 deletions(-) create mode 100644 core/generic/math/math-tests.factor diff --git a/core/generic/generic-tests.factor b/core/generic/generic-tests.factor index e7ae583aa6..a63cab1c5c 100755 --- a/core/generic/generic-tests.factor +++ b/core/generic/generic-tests.factor @@ -96,15 +96,6 @@ M: shit big-generic-test "shit" ; [ t ] [ \ + math-generic? ] unit-test -! Test math-combination -[ [ [ >float ] dip ] ] [ \ real \ float math-upgrade ] unit-test -[ [ >float ] ] [ \ float \ real math-upgrade ] unit-test -[ [ [ >bignum ] dip ] ] [ \ fixnum \ bignum math-upgrade ] unit-test -[ [ >float ] ] [ \ float \ integer math-upgrade ] unit-test -[ number ] [ \ number \ float math-class-max ] unit-test -[ float ] [ \ real \ float math-class-max ] unit-test -[ fixnum ] [ \ fixnum \ null math-class-max ] unit-test - ! Regression TUPLE: first-one ; TUPLE: second-one ; diff --git a/core/generic/math/math-tests.factor b/core/generic/math/math-tests.factor new file mode 100644 index 0000000000..12baeb64b5 --- /dev/null +++ b/core/generic/math/math-tests.factor @@ -0,0 +1,16 @@ +IN: generic.math.tests +USING: generic.math math tools.test ; + +! Test math-combination +[ [ [ >float ] dip ] ] [ \ real \ float math-upgrade ] unit-test +[ [ >float ] ] [ \ float \ real math-upgrade ] unit-test +[ [ [ >bignum ] dip ] ] [ \ fixnum \ bignum math-upgrade ] unit-test +[ [ >float ] ] [ \ float \ integer math-upgrade ] unit-test + +[ number ] [ \ number \ float math-class-max ] unit-test +[ float ] [ \ real \ float math-class-max ] unit-test +[ fixnum ] [ \ fixnum \ null math-class-max ] unit-test +[ bignum ] [ \ fixnum \ bignum math-class-max ] unit-test +[ number ] [ \ fixnum \ number math-class-max ] unit-test + +