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