HTTPd test fixes

db4
Slava Pestov 2008-06-17 05:25:21 -05:00
parent 27c89d75d4
commit d17470b5fb
2 changed files with 7 additions and 1 deletions

View File

@ -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

View File

@ -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 ;