From 6b940cb9726d4dfaad85d11ac583698a4ccfff72 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Bj=C3=B6rn=20Lindqvist?= <bjourne@gmail.com>
Date: Fri, 2 Oct 2015 13:14:26 +0200
Subject: [PATCH] furnace.auth.login: name of the realm is already set in the
 <login-realm> constructor

---
 basis/furnace/auth/auth-docs.factor               | 1 -
 basis/furnace/auth/login/login-tests.factor       | 6 ++++++
 extra/webapps/site-watcher/site-watcher.factor    | 1 -
 extra/webapps/todo/todo.factor                    | 1 -
 extra/websites/concatenative/concatenative.factor | 1 -
 5 files changed, 6 insertions(+), 4 deletions(-)
 create mode 100644 basis/furnace/auth/login/login-tests.factor

diff --git a/basis/furnace/auth/auth-docs.factor b/basis/furnace/auth/auth-docs.factor
index 49dae0d275..45bcb8a0ec 100644
--- a/basis/furnace/auth/auth-docs.factor
+++ b/basis/furnace/auth/auth-docs.factor
@@ -173,7 +173,6 @@ ARTICLE: "furnace.auth.example" "Furnace authentication example"
 { $code
 ": <login-config> ( responder -- responder' )
     \"Factor website\" <login-realm>
-        \"Factor website\" >>name
         allow-registration
         allow-password-recovery
         allow-edit-profile
diff --git a/basis/furnace/auth/login/login-tests.factor b/basis/furnace/auth/login/login-tests.factor
new file mode 100644
index 0000000000..728fb6ef33
--- /dev/null
+++ b/basis/furnace/auth/login/login-tests.factor
@@ -0,0 +1,6 @@
+USING: accessors furnace.auth.login tools.test ;
+IN: furnace.auth.login.tests
+
+{ "Some realm" } [
+    f "Some realm" <login-realm> name>>
+] unit-test
diff --git a/extra/webapps/site-watcher/site-watcher.factor b/extra/webapps/site-watcher/site-watcher.factor
index 5045e4fdaf..80ec7363b9 100644
--- a/extra/webapps/site-watcher/site-watcher.factor
+++ b/extra/webapps/site-watcher/site-watcher.factor
@@ -57,7 +57,6 @@ IN: webapps.site-watcher
 
 : <login-config> ( responder -- responder' )
     "SiteWatcher" <login-realm>
-        "SiteWatcher" >>name
         allow-registration
         allow-password-recovery
         allow-edit-profile
diff --git a/extra/webapps/todo/todo.factor b/extra/webapps/todo/todo.factor
index ab9e578308..eb81c2b78a 100644
--- a/extra/webapps/todo/todo.factor
+++ b/extra/webapps/todo/todo.factor
@@ -127,7 +127,6 @@ io.sockets.secure ;
 
 : <login-config> ( responder -- responder' )
     "Todo list" <login-realm>
-        "Todo list" >>name
         allow-registration
         allow-edit-profile
         allow-deactivation ;
diff --git a/extra/websites/concatenative/concatenative.factor b/extra/websites/concatenative/concatenative.factor
index 271eb7165e..46bb4eaea3 100644
--- a/extra/websites/concatenative/concatenative.factor
+++ b/extra/websites/concatenative/concatenative.factor
@@ -54,7 +54,6 @@ TUPLE: concatenative-website < dispatcher ;
 
 : <login-config> ( responder -- responder' )
     "Factor website" <login-realm>
-        "Factor website" >>name
         allow-registration
         allow-password-recovery
         allow-edit-profile
-- 
2.34.1