From a3fcaf4a111639c61b26967c14f8b3415d6b15f4 Mon Sep 17 00:00:00 2001
From: Jon Harper <jon.harper87@gmail.com>
Date: Sun, 3 Nov 2013 21:22:15 +0100
Subject: [PATCH] Fix furnace basic auth; add test

---
 basis/furnace/auth/basic/basic-tests.factor | 13 +++++++++++++
 basis/furnace/auth/basic/basic.factor       |  2 ++
 2 files changed, 15 insertions(+)
 create mode 100644 basis/furnace/auth/basic/basic-tests.factor

diff --git a/basis/furnace/auth/basic/basic-tests.factor b/basis/furnace/auth/basic/basic-tests.factor
new file mode 100644
index 0000000000..63797607b3
--- /dev/null
+++ b/basis/furnace/auth/basic/basic-tests.factor
@@ -0,0 +1,13 @@
+! 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
diff --git a/basis/furnace/auth/basic/basic.factor b/basis/furnace/auth/basic/basic.factor
index a9b367c5c9..802e489e74 100644
--- a/basis/furnace/auth/basic/basic.factor
+++ b/basis/furnace/auth/basic/basic.factor
@@ -27,3 +27,5 @@ M: basic-auth-realm logged-in-username ( realm -- uid )
     drop
     request get "authorization" header parse-basic-auth
     dup [ over check-login swap and ] [ 2drop f ] if ;
+
+M: basic-auth-realm init-realm drop ;