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

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

diff --git a/basis/furnace/auth/providers/db/db-tests.factor b/basis/furnace/auth/providers/db/db-tests.factor
index 18a9a350d28a648167505a773bdbf98e80768059..41c8cfda3917b1b9fb7100ccb058ab8f84e4f434 100644 (file)
--- a/basis/furnace/auth/providers/db/db-tests.factor
+++ b/basis/furnace/auth/providers/db/db-tests.factor
@@ -1,50 +1,50 @@
-USING: furnace.actions\r
-furnace.auth\r
-furnace.auth.login\r
-furnace.auth.providers\r
-furnace.auth.providers.db tools.test\r
-namespaces db db.sqlite db.tuples continuations\r
-io.files io.files.temp io.directories accessors kernel\r
-sequences system ;\r
-IN: furnace.auth.providers.db.tests\r
-\r
-<action> "test" <login-realm> realm set\r
-\r
-: auth-test-db-name ( -- string )\r
-    cpu name>> "auth-test." ".db" surround ;\r
-\r
-[ auth-test-db-name temp-file delete-file ] ignore-errors\r
-\r
-auth-test-db-name temp-file <sqlite-db> [\r
-\r
-    user ensure-table\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
-    [ ] [ "user" get users update-user ] unit-test\r
-\r
-    [ t ] [ "fdasf" "slava" check-login >boolean ] unit-test\r
-\r
-    [ f ] [ "foobar" "slava" check-login >boolean ] unit-test\r
-] with-db\r
+USING: furnace.actions
+furnace.auth
+furnace.auth.login
+furnace.auth.providers
+furnace.auth.providers.db tools.test
+namespaces db db.sqlite db.tuples continuations
+io.files io.files.temp io.directories accessors kernel
+sequences system ;
+IN: furnace.auth.providers.db.tests
+
+<action> "test" <login-realm> realm set
+
+: auth-test-db-name ( -- string )
+    cpu name>> "auth-test." ".db" surround ;
+
+[ auth-test-db-name temp-file delete-file ] ignore-errors
+
+auth-test-db-name temp-file <sqlite-db> [
+
+    user ensure-table
+
+    [ 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
+
+    [ ] [ "user" get users update-user ] unit-test
+
+    [ t ] [ "fdasf" "slava" check-login >boolean ] unit-test
+
+    [ f ] [ "foobar" "slava" check-login >boolean ] unit-test
+] with-db