2008-08-12 04:31:48 -04:00
|
|
|
IN: math.partial-dispatch.tests
|
2008-07-22 05:45:03 -04:00
|
|
|
USING: math.partial-dispatch tools.test math kernel sequences ;
|
|
|
|
|
|
|
|
|
|
[ t ] [ \ + integer fixnum math-both-known? ] unit-test
|
|
|
|
|
[ t ] [ \ + bignum fixnum math-both-known? ] unit-test
|
|
|
|
|
[ t ] [ \ + integer bignum math-both-known? ] unit-test
|
|
|
|
|
[ t ] [ \ + float fixnum math-both-known? ] unit-test
|
|
|
|
|
[ f ] [ \ + real fixnum math-both-known? ] unit-test
|
|
|
|
|
[ f ] [ \ + object number math-both-known? ] unit-test
|
|
|
|
|
[ f ] [ \ number= fixnum object math-both-known? ] unit-test
|
|
|
|
|
[ t ] [ \ number= integer fixnum math-both-known? ] unit-test
|
|
|
|
|
[ f ] [ \ >fixnum \ shift derived-ops memq? ] unit-test
|
