13 lines
		
	
	
		
			350 B
		
	
	
	
		
			Factor
		
	
	
		
			Executable File
		
	
			
		
		
	
	
			13 lines
		
	
	
		
			350 B
		
	
	
	
		
			Factor
		
	
	
		
			Executable File
		
	
USING: math kernel sequences io.files tools.crossref tools.test
 | 
						|
parser namespaces source-files generic definitions ;
 | 
						|
IN: tools.crossref.tests
 | 
						|
 | 
						|
GENERIC: foo
 | 
						|
 | 
						|
M: integer foo + ;
 | 
						|
 | 
						|
"resource:extra/tools/crossref/test/foo.factor" run-file
 | 
						|
 | 
						|
[ t ] [ integer \ foo method \ + usage member? ] unit-test
 | 
						|
[ t ] [ \ foo usage [ pathname? ] contains? ] unit-test
 |