Browse Source

More test coverage

Stephen Starkey 5 months ago
parent
commit
017dd41912
1 changed files with 6 additions and 0 deletions
  1. 6
    0
      test/clj/email_counter/test/emails.clj

+ 6
- 0
test/clj/email_counter/test/emails.clj View File

@@ -11,6 +11,8 @@
11 11
   (are [expected given] (= expected (parse-email given))
12 12
     nil nil
13 13
     nil ""
14
+    nil "one@two@three"
15
+    "wow.yo" "wow.yo"
14 16
     "+wow@gmail.com" "+wow@gmail.com"
15 17
     "me@here.com" "me@here.com "
16 18
     "m.e@here.com" "\n\t m.e@here.com"
@@ -22,6 +24,8 @@
22 24
     nil nil
23 25
     nil ""
24 26
     nil "+wow@gmail.com"
27
+    nil "wow.yo"
28
+    nil "one@two@three"
25 29
     "me@here.com" "me@here.com"
26 30
     "me@here.com" "m.e@here.com"
27 31
     "me@here.com" "me+you@here.com"
@@ -40,5 +44,7 @@
40 44
             "you@there.com"
41 45
             "you+me@there.com"
42 46
             "+wow@gmail.com"
47
+            "wow.yo"
48
+            "one@two@three"
43 49
             ""
44 50
             nil]))))