16 lines
		
	
	
		
			402 B
		
	
	
	
		
			Factor
		
	
	
			
		
		
	
	
			16 lines
		
	
	
		
			402 B
		
	
	
	
		
			Factor
		
	
	
USING: accessors db.sqlite http.server io.files.temp io.servers
 | 
						|
io.sockets.secure.debug kernel ;
 | 
						|
IN: webapps.utils
 | 
						|
 | 
						|
: <temp-sqlite-db> ( name -- db )
 | 
						|
    temp-file <sqlite-db> ;
 | 
						|
 | 
						|
: <test-http-server> ( -- threaded-server )
 | 
						|
    <http-server>
 | 
						|
        <test-secure-config> >>secure-config
 | 
						|
        8081 >>insecure
 | 
						|
        8431 >>secure ;
 | 
						|
 | 
						|
: run-test-httpd ( -- )
 | 
						|
    <test-http-server> start-server drop ;
 |