core/generic/math/math-tests.factor

   1 USING: generic.math kernel math tools.test ;
   2
   3 ! Test math-combination
   4 { [ [ >float ] dip ] } [ \ real \ float math-upgrade ] unit-test
   5 { [ >float ] } [ \ float \ real math-upgrade ] unit-test
   6 { [ [ >bignum ] dip ] } [ \ fixnum \ bignum math-upgrade ] unit-test
   7 { [ >float ] } [ \ float \ integer math-upgrade ] unit-test
   8
   9 { number } [ number float math-class-max ] unit-test
  10 { number } [ float number math-class-max ] unit-test
  11 { float } [ real float math-class-max ] unit-test
  12 { float } [ float real math-class-max ] unit-test
  13 { fixnum } [ fixnum null math-class-max ] unit-test
  14 { fixnum } [ null fixnum math-class-max ] unit-test
  15 { bignum } [ fixnum bignum math-class-max ] unit-test
  16 { bignum } [ bignum fixnum math-class-max ] unit-test
  17 { number } [ fixnum number math-class-max ] unit-test
  18 { number } [ number fixnum math-class-max ] unit-test
  19
  20 { t } [ \ + math-generic? ] unit-test