14 lines
485 B
Factor
14 lines
485 B
Factor
! Copyright (C) 2013 Jon Harper.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: accessors tools.test furnace.auth.basic http.server
|
|
http.server.responses kernel http namespaces ;
|
|
IN: furnace.auth.basic.tests
|
|
|
|
CONSTANT: GET-AUTH "Basic Zm9vOmJhcg=="
|
|
{ "foo" "bar" } [ GET-AUTH parse-basic-auth ] unit-test
|
|
|
|
{ t } [ [ <request> "GET" >>method init-request
|
|
"path" <304> <trivial-responder> "name" <basic-auth-realm>
|
|
call-responder* >boolean
|
|
] with-scope ] unit-test
|