12 lines
		
	
	
		
			290 B
		
	
	
	
		
			Factor
		
	
	
			
		
		
	
	
			12 lines
		
	
	
		
			290 B
		
	
	
	
		
			Factor
		
	
	
 | 
						|
USING: kernel math tools.test ;
 | 
						|
IN: compiler.tests.dead-code
 | 
						|
 | 
						|
: test-outputs0 ( a b -- ) /mod 2drop ;
 | 
						|
: test-outputs1 ( a b -- ) /i drop ;
 | 
						|
: test-outputs2 ( a b -- ) mod drop ;
 | 
						|
 | 
						|
[ ] [ 10 3 test-outputs0 ] unit-test
 | 
						|
[ ] [ 10 3 test-outputs1 ] unit-test
 | 
						|
[ ] [ 10 3 test-outputs2 ] unit-test
 |