core, basis, extra: Remove DOS line endings from files.

[factor.git] / basis / furnace / auth / providers / assoc / assoc-tests.factor

diff --git a/basis/furnace/auth/providers/assoc/assoc-tests.factor b/basis/furnace/auth/providers/assoc/assoc-tests.factor
index 44a20e7ae39688857fc8bae7f6b8b90a65d42a8c..e9e4c0816c2e8a7c6d6213a13056b37dcf603c53 100644 (file)
--- a/basis/furnace/auth/providers/assoc/assoc-tests.factor
+++ b/basis/furnace/auth/providers/assoc/assoc-tests.factor
@@ -1,35 +1,35 @@
-USING: furnace.actions furnace.auth furnace.auth.providers \r
-furnace.auth.providers.assoc furnace.auth.login\r
-tools.test namespaces accessors kernel ;\r
-IN: furnace.auth.providers.assoc.tests\r
-\r
-<action> "Test" <login-realm>\r
-    <users-in-memory> >>users\r
-realm set\r
-\r
-[ t ] [\r
-    "slava" <user>\r
-        "foobar" >>encoded-password\r
-        "slava@factorcode.org" >>email\r
-        H{ } clone >>profile\r
-    users new-user\r
-    username>> "slava" =\r
-] unit-test\r
-\r
-[ f ] [\r
-    "slava" <user>\r
-        H{ } clone >>profile\r
-    users new-user\r
-] unit-test\r
-\r
-[ f ] [ "fdasf" "slava" check-login >boolean ] unit-test\r
-\r
-[ ] [ "foobar" "slava" check-login "user" set ] unit-test\r
-\r
-[ t ] [ "user" get >boolean ] unit-test\r
-\r
-[ ] [ "user" get "fdasf" >>encoded-password drop ] unit-test\r
-\r
-[ t ] [ "fdasf" "slava" check-login >boolean ] unit-test\r
-\r
-[ f ] [ "foobar" "slava" check-login >boolean ] unit-test\r
+USING: furnace.actions furnace.auth furnace.auth.providers 
+furnace.auth.providers.assoc furnace.auth.login
+tools.test namespaces accessors kernel ;
+IN: furnace.auth.providers.assoc.tests
+
+<action> "Test" <login-realm>
+    <users-in-memory> >>users
+realm set
+
+[ t ] [
+    "slava" <user>
+        "foobar" >>encoded-password
+        "slava@factorcode.org" >>email
+        H{ } clone >>profile
+    users new-user
+    username>> "slava" =
+] unit-test
+
+[ f ] [
+    "slava" <user>
+        H{ } clone >>profile
+    users new-user
+] unit-test
+
+[ f ] [ "fdasf" "slava" check-login >boolean ] unit-test
+
+[ ] [ "foobar" "slava" check-login "user" set ] unit-test
+
+[ t ] [ "user" get >boolean ] unit-test
+
+[ ] [ "user" get "fdasf" >>encoded-password drop ] unit-test
+
+[ t ] [ "fdasf" "slava" check-login >boolean ] unit-test
+
+[ f ] [ "foobar" "slava" check-login >boolean ] unit-test