HTTPd test fixes
parent
27c89d75d4
commit
d17470b5fb
|
@ -125,7 +125,7 @@ USING: http.server http.server.static furnace.sessions furnace.alloy
|
|||
furnace.actions furnace.auth furnace.auth.login furnace.db http.client
|
||||
io.servers.connection io.files io io.encodings.ascii
|
||||
accessors namespaces threads
|
||||
http.server.responses http.server.redirection
|
||||
http.server.responses http.server.redirection furnace.redirection
|
||||
http.server.dispatchers db.tuples ;
|
||||
|
||||
: add-quit-action
|
||||
|
|
|
@ -144,5 +144,11 @@ M: http-server handle-client*
|
|||
"http" protocol-port >>insecure
|
||||
"https" protocol-port >>secure ;
|
||||
|
||||
: httpd ( port -- )
|
||||
<http-server>
|
||||
swap >>insecure
|
||||
f >>secure
|
||||
start-server ;
|
||||
|
||||
: http-insomniac ( -- )
|
||||
"http.server" { "httpd-hit" } schedule-insomniac ;
|
||||
|
|
Loading…
Reference in New Issue