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
							 |