add unit tests for comparisons against nan

db4
Joe Groff 2009-09-03 17:27:06 -05:00
parent 521b3ab12c
commit 1bc97b4624
1 changed files with 32 additions and 0 deletions

View File

@ -36,3 +36,35 @@ IN: math.tests
[ -0.0 ] [ 0.0 prev-float ] unit-test
[ t ] [ 1.0 dup prev-float > ] unit-test
[ t ] [ -1.0 dup prev-float > ] unit-test
[ f ] [ 0/0. 0/0. = ] unit-test
[ f ] [ 0/0. 1.0 = ] unit-test
[ f ] [ 0/0. 1/0. = ] unit-test
[ f ] [ 0/0. -1/0. = ] unit-test
[ f ] [ 0/0. 0/0. = ] unit-test
[ f ] [ 1.0 0/0. = ] unit-test
[ f ] [ -1/0. 0/0. = ] unit-test
[ f ] [ 1/0. 0/0. = ] unit-test
[ f ] [ 0/0. 0/0. < ] unit-test
[ f ] [ 0/0. 1.0 < ] unit-test
[ f ] [ 0/0. 1/0. < ] unit-test
[ f ] [ 0/0. -1/0. < ] unit-test
[ f ] [ 0/0. 0/0. <= ] unit-test
[ f ] [ 0/0. 1.0 <= ] unit-test
[ f ] [ 0/0. 1/0. <= ] unit-test
[ f ] [ 0/0. -1/0. <= ] unit-test
[ f ] [ 0/0. 0/0. > ] unit-test
[ f ] [ 1.0 0/0. > ] unit-test
[ f ] [ -1/0. 0/0. > ] unit-test
[ f ] [ 1/0. 0/0. > ] unit-test
[ f ] [ 0/0. 0/0. >= ] unit-test
[ f ] [ 1.0 0/0. >= ] unit-test
[ f ] [ -1/0. 0/0. >= ] unit-test
[ f ] [ 1/0. 0/0. >= ] unit-test