Emacs fixed some whitespace

chrismgray · Nov 21, 2011 · 6b79fef · 6b79fef
1 parent 01660ca
commit 6b79fef
Showing 1 changed file with 9 additions and 10 deletions.
diff --git a/test/foreclojure/test/register.clj b/test/foreclojure/test/register.clj
@@ -6,7 +6,7 @@
   (:use [midje.sweet])
   (:use [foreclojure.utils :only [form-row assuming flash-error]])
   (:use [somnium.congomongo :only [insert! fetch-one]]))
-  
+
 
 
 
@@ -28,37 +28,36 @@
                          (session/flash-put! :email anything) => nil]
       (fact "about do-register - good inputs"
           (do-register uname pwd pwd email) => truthy
-            (provided 
+            (provided
               (response/redirect "/") => 1))
       (fact "about do-register - userexists"
           (do-register uname pwd pwd email) => truthy
-            (provided 
+            (provided
               (fetch-one :users :where {:user uname}) => {:user "username"}
               (flash-error "/register" "User already exists") => 1))
       (fact "about do-register - username too long"
           (do-register lngname pwd pwd email) => truthy
-            (provided 
+            (provided
               (flash-error "/register" "Username must be 4-13 characters long") => 1))
       (fact "about do-register - username not alphanumeric"
           (do-register bname pwd pwd email) => truthy
-            (provided 
+            (provided
               (flash-error "/register" "Username must be alphanumeric") => 1))
       (fact "about do-register - short password"
           (do-register uname shpwd shpwd email) => truthy
-            (provided 
+            (provided
               (flash-error "/register" "Password must be at least seven characters long") => 1))
       (fact "about do-register - passwords don't match"
           (do-register uname pwd shpwd email) => truthy
-            (provided 
+            (provided
               (flash-error "/register" "Passwords don't match") => 1))
       (fact "about do-register - bad emal"
           (do-register uname pwd pwd bemail) => truthy
-            (provided 
+            (provided
               (flash-error "/register" "Please enter a valid email address") => 1))
       (fact "about do-register - email exists"
           (do-register uname pwd pwd email) => truthy
-            (provided 
+            (provided
               (fetch-one :users :where {:user uname}) => nil
               (fetch-one :users :where {:email email}) => {:user "username"}
               (flash-error "/register" "User with this email address already exists") => 1)))))
-