init-testing ( -- )

Vocabulary

websites.concatenative

Inputs

None

Outputs

None

Definition

USING: furnace.alloy http.server http.server.dispatchers
namespaces webapps.help webapps.mason webapps.pastebin
webapps.planet webapps.user-admin webapps.wiki ;

IN: websites.concatenative

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