From 00f3b7078819554507681ac37b1c90709430ba3a Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 11 Mar 2016 14:06:26 -0800
Subject: [PATCH] websites.concatenative: fix init-testing

---
 .../concatenative/concatenative.factor        | 32 ++++++++++---------
 1 file changed, 17 insertions(+), 15 deletions(-)

diff --git a/extra/websites/concatenative/concatenative.factor b/extra/websites/concatenative/concatenative.factor
index c67b2dc182..272b974a65 100644
--- a/extra/websites/concatenative/concatenative.factor
+++ b/extra/websites/concatenative/concatenative.factor
@@ -80,26 +80,28 @@ SYMBOLS: key-password key-file dh-file ;
     "noreply@concatenative.org" lost-password-from set-global
     init-factor-db ;
 
-: init-testing ( -- )
-    "vocab:openssl/test/dh1024.pem" dh-file set-global
-    "vocab:openssl/test/server.pem" key-file set-global
-    "password" key-password set-global
-    common-configuration
-    <concatenative-website>
-        <wiki> <factor-recaptcha> <login-config> <factor-boilerplate> "wiki" add-responder
-        <user-admin> <login-config> <factor-boilerplate> "user-admin" add-responder
-        <pastebin> <factor-recaptcha> <login-config> <factor-boilerplate> "pastebin" add-responder
-        <planet> <login-config> <factor-boilerplate> "planet" add-responder
-        <mason-app> <login-config> <factor-boilerplate> "mason" add-responder
-        "/tmp/docs/" <help-webapp> "docs" add-responder
-    website-db <alloy>
-    main-responder set-global ;
-
 : <gitweb> ( path -- responder )
     <dispatcher>
         swap <static> enable-cgi >>default
         URL" /gitweb.cgi" <redirect-responder> "" add-responder ;
 
+: init-testing-concatenative ( -- )
+    "vocab:openssl/test/dh1024.pem" dh-file set-global
+    "vocab:openssl/test/server.pem" key-file set-global
+    "password" key-password set-global
+    common-configuration
+    <dispatcher>
+        <concatenative-website>
+            <wiki> <factor-recaptcha> "wiki" add-responder
+            <user-admin> "user-admin" add-responder
+        <login-config> <factor-boilerplate> website-db <alloy> "concatenative" add-responder
+        <pastebin> <factor-recaptcha> <login-config> <factor-boilerplate> website-db <alloy> "paste" add-responder
+        <planet> <login-config> <factor-boilerplate> website-db <alloy> "planet" add-responder
+        <mason-app> <login-config> <factor-boilerplate> website-db <alloy> "builds" add-responder
+        home "docs" append-path <help-webapp> "docs" add-responder
+        home "cgi" append-path <gitweb> "gitweb" add-responder
+    main-responder set-global ;
+
 : init-production ( -- )
     common-configuration
     <vhost-dispatcher>