steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/http/http-tests.factor
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 furnace.actions furnace.auth furnace.auth.login furnace.db http.client
io.servers.connection io.files io io.encodings.ascii io.servers.connection io.files io io.encodings.ascii
accessors namespaces threads accessors namespaces threads
http.server.responses http.server.redirection http.server.responses http.server.redirection furnace.redirection
http.server.dispatchers db.tuples ; http.server.dispatchers db.tuples ;
: add-quit-action : add-quit-action

6
extra/http/server/server.factor
View File

@ -144,5 +144,11 @@ M: http-server handle-client*
"http" protocol-port >>insecure "http" protocol-port >>insecure
"https" protocol-port >>secure ; "https" protocol-port >>secure ;
: httpd ( port -- )
<http-server>
swap >>insecure
f >>secure
start-server ;
: http-insomniac ( -- ) : http-insomniac ( -- )
"http.server" { "httpd-hit" } schedule-insomniac ; "http.server" { "httpd-hit" } schedule-insomniac ;