From d17470b5fbf6f51f7d3f32a8f398b170e6f60e94 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 17 Jun 2008 05:25:21 -0500
Subject: [PATCH] HTTPd test fixes
---
extra/http/http-tests.factor | 2 +-
extra/http/server/server.factor | 6 ++++++
2 files changed, 7 insertions(+), 1 deletion(-)
diff --git a/extra/http/http-tests.factor b/extra/http/http-tests.factor
index b5ed144579..a02382f083 100755
--- a/extra/http/http-tests.factor
+++ b/extra/http/http-tests.factor
@@ -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
diff --git a/extra/http/server/server.factor b/extra/http/server/server.factor
index 0312e62e8d..21ab074907 100755
--- a/extra/http/server/server.factor
+++ b/extra/http/server/server.factor
@@ -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 ;