HTTPd test fixes

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

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 ;