23 lines
		
	
	
		
			517 B
		
	
	
	
		
			Factor
		
	
	
			
		
		
	
	
			23 lines
		
	
	
		
			517 B
		
	
	
	
		
			Factor
		
	
	
USING: furnace.utilities io.encodings.utf8 io.files io.files.temp kernel
 | 
						|
multiline parser tools.test webapps.counter ;
 | 
						|
IN: furnace.utilities.tests
 | 
						|
 | 
						|
<<
 | 
						|
STRING: dummy-vocab
 | 
						|
IN: dummy-vocab
 | 
						|
 | 
						|
: dummy-word ( -- ) ;
 | 
						|
;
 | 
						|
 | 
						|
dummy-vocab "dummy.factor" temp-file [ utf8 set-file-contents ] keep run-file
 | 
						|
>>
 | 
						|
 | 
						|
{ t } [
 | 
						|
    USE: dummy-vocab
 | 
						|
    { dummy-word "index" } resolve-template-path "index" temp-file =
 | 
						|
] unit-test
 | 
						|
 | 
						|
{ "resource:extra/webapps/counter/counter" } [
 | 
						|
    { counter-app "counter" } resolve-template-path
 | 
						|
] unit-test
 |