add unit tests for comparisons against nan
parent
521b3ab12c
commit
1bc97b4624
|
@ -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
|
||||
|
||||
|
||||
|
|
Loading…
Reference in New Issue