From 6b940cb9726d4dfaad85d11ac583698a4ccfff72 Mon Sep 17 00:00:00 2001
From: =?UTF-8?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