2009-04-30 01:38:55 -04:00
|
|
|
USING: generic.math math tools.test kernel ;
|
2009-08-13 20:21:44 -04:00
|
|
|
IN: generic.math.tests
|
2009-04-30 00:36:05 -04:00
|
|
|
|
|
|
|
|
! 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
|
|
|
|
|
|
2009-04-30 01:38:55 -04:00
|
|
|
[ number ] [ number float math-class-max ] unit-test
|
|
|
|
|
[ number ] [ float number math-class-max ] unit-test
|
|
|
|
|
[ float ] [ real float math-class-max ] unit-test
|
|
|
|
|
[ float ] [ float real math-class-max ] unit-test
|
|
|
|
|
[ fixnum ] [ fixnum null math-class-max ] unit-test
|
|
|
|
|
[ fixnum ] [ null fixnum math-class-max ] unit-test
|
|
|
|
|
[ bignum ] [ fixnum bignum math-class-max ] unit-test
|
|
|
|
|
[ bignum ] [ bignum fixnum math-class-max ] unit-test
|
|
|
|
|
[ number ] [ fixnum number math-class-max ] unit-test
|
|
|
|
|
[ number ] [ number fixnum math-class-max ] unit-test
|
2009-04-30 00:36:05 -04:00
|
|
|
|
2010-08-21 16:04:37 -04:00
|
|
|
[ t ] [ \ + math-generic? ] unit-test
|
