1 ! Copyright (C) 2013 Jon Harper.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors tools.test furnace.auth.basic http.server
4 http.server.responses kernel http namespaces ;
5 IN: furnace.auth.basic.tests
7 CONSTANT: GET-AUTH "Basic Zm9vOmJhcg=="
8 { "foo" "bar" } [ GET-AUTH parse-basic-auth ] unit-test
10 { t } [ [ <request> "GET" >>method init-request
11 "path" <304> <trivial-responder> "name" <basic-auth-realm>
12 call-responder* >boolean
13 ] with-scope ] unit-test