2009-01-27 05:11:43 -05:00
										 
									 
								 
							 | 
							
								
							 | 
							
								
							 | 
							
							
								USING: eval tools.test ;
							 | 
						
					
						
							
								
									
										
										
										
											2009-08-13 20:21:44 -04:00
										 
									 
								 
							 | 
							
								
									
										
									
								
							 | 
							
								
							 | 
							
							
								IN: eval.tests
							 | 
						
					
						
							
								
									
										
										
										
											2009-01-27 05:11:43 -05:00
										 
									 
								 
							 | 
							
								
							 | 
							
								
							 | 
							
							
								
							 | 
						
					
						
							
								
									
										
										
										
											2009-04-17 16:50:03 -04:00
										 
									 
								 
							 | 
							
								
									
										
									
								
							 | 
							
								
							 | 
							
							
								[ 4 ] [ "USE: math 2 2 +" eval( -- result ) ] unit-test
							 | 
						
					
						
							| 
								
							 | 
							
								
							 | 
							
								
							 | 
							
							
								[ "USE: math 2 2 +" eval( -- ) ] must-fail
							 | 
						
					
						
							
								
									
										
										
										
											2009-01-27 17:54:41 -05:00
										 
									 
								 
							 | 
							
								
									
										
									
								
							 | 
							
								
							 | 
							
							
								[ "4\n" ] [ "USING: math prettyprint ; 2 2 + ." eval>string ] unit-test
							 |