basis/optimizer/math/partial/partial-tests.factor

   1 IN: optimizer.math.partial.tests
   2 USING: optimizer.math.partial tools.test math kernel
   3 sequences ;
   4
   5 [ t ] [ \ + integer fixnum math-both-known? ] unit-test
   6 [ t ] [ \ + bignum fixnum math-both-known? ] unit-test
   7 [ t ] [ \ + integer bignum math-both-known? ] unit-test
   8 [ t ] [ \ + float fixnum math-both-known? ] unit-test
   9 [ f ] [ \ + real fixnum math-both-known? ] unit-test
  10 [ f ] [ \ + object number math-both-known? ] unit-test
  11 [ f ] [ \ number= fixnum object math-both-known? ] unit-test
  12 [ t ] [ \ number= integer fixnum math-both-known? ] unit-test
  13 [ f ] [ \ >fixnum \ shift derived-ops memq? ] unit-test