Fix furnace basic auth; add test

[factor.git] / basis / furnace / auth / basic / basic.factor

diff --git a/basis/furnace/auth/basic/basic.factor b/basis/furnace/auth/basic/basic.factor
index a9b367c5c99b1c07c33ecd9b6ee1980a61bce8e2..802e489e74b5546a0d84a9db59c8b0252cec1c0a 100644 (file)
--- 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\r
     request get "authorization" header parse-basic-auth\r
     dup [ over check-login swap and ] [ 2drop f ] if ;\r
+\r
+M: basic-auth-realm init-realm drop ;\r