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

Move some unit tests from generic to generic.math

db4
Slava Pestov 2009-04-29 23:36:05 -05:00
parent 3bbfc57de3
commit 9f4ac667dc
2 changed files with 16 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
core/generic/generic-tests.factor
View File

@ -96,15 +96,6 @@ M: shit big-generic-test "shit" ;
[ t ] [ \ + math-generic? ] unit-test [ 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 ! Regression
TUPLE: first-one ; TUPLE: first-one ;
TUPLE: second-one ; TUPLE: second-one ;

16
core/generic/math/math-tests.factor Normal file
View File

@ -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