basis/furnace/auth/basic/basic-tests.factor

   1 ! Copyright (C) 2013 Jon Harper.
   2 ! See https://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
   6
   7 CONSTANT: GET-AUTH "Basic Zm9vOmJhcg=="
   8 { "foo" "bar" } [ GET-AUTH parse-basic-auth ] unit-test
   9
  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