Merge pull request #100 from scstarkey/master

is-email? should be case insensitive
noir-clojure · May 11, 2012 · 65c950d · 65c950d
2 parents 0943053 + 998e846
commit 65c950d
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/src/noir/validation.clj b/src/noir/validation.clj
@@ -37,7 +37,7 @@
 (defn is-email?
   "Returns true if v is an email address"
   [v]
-  (re-matches #"[a-z0-9!#$%&'*+/=?^_`{|}~-]+(?:\.[a-z0-9!#$%&'*+/=?^_`{|}~-]+)*@(?:[a-z0-9](?:[a-z0-9-]*[a-z0-9])?\.)+[a-z0-9](?:[a-z0-9-]*[a-z0-9])?" v))
+  (re-matches #"(?i)[a-z0-9!#$%&'*+/=?^_`{|}~-]+(?:\.[a-z0-9!#$%&'*+/=?^_`{|}~-]+)*@(?:[a-z0-9](?:[a-z0-9-]*[a-z0-9])?\.)+[a-z0-9](?:[a-z0-9-]*[a-z0-9])?" v))
 
 
 (defn valid-file?

diff --git a/test/noir/test/validation.clj b/test/noir/test/validation.clj
@@ -16,3 +16,10 @@
     (vali/set-error :a "blah")
     (vali/set-error :b "cool")
     (is (= (set (vali/get-errors)) (set ["blah" "cool"])))))
+
+(deftest is-email-case-insensitive
+  (with-noir
+   (is (vali/is-email? "me@here.com"))
+   (is (vali/is-email? "Me@here.com"))
+   (is (vali/is-email? "me@Here.coM"))
+   (is (vali/is-email? "ME@HERE.COM"))))