Browse Source

More test cases

master
Stephen Starkey 2 years ago
parent
commit
d092e89183
  1. 7
      test/clj/email_counter/test/emails.clj

7
test/clj/email_counter/test/emails.clj

@ -8,7 +8,8 @@
nil ""
"me@here.com" "me@here.com "
"m.e@here.com" "\n\t m.e@here.com"
"me@here.com" "Me <me@here.com>"))
"me@here.com" "Me <me@here.com>"
"me+you@here.com" "me+you@here.com"))
(deftest parse-for-gmail-test
(are [expected given] (= expected (parse-for-gmail given))
@ -16,6 +17,8 @@
nil ""
"me@here.com" "me@here.com"
"me@here.com" "m.e@here.com"
"me@here.com" "me+you@here.com"
"me@here.com" "me+you+another-person@here.com"
"me@here.com" "Me <me@here.com>"))
(deftest unique-gmail-parsed-emails-test
@ -26,6 +29,8 @@
"m.e@here.com"
"Me <me@here.com>"
"Me <ME@HERE.COM>"
"me+you@here.com"
"you@there.com"
"you+me@there.com"
""
nil]))))
Loading…
Cancel
Save