X-Git-Url: http://gitweb.michael.orlitzky.com/?p=email-validator.git;a=blobdiff_plain;f=src%2FEmailAddress.hs;h=f56813231adf99bc2534cd37b3aed848cb52580c;hp=8dca54b945695c238ff157ca95331668d2e8b992;hb=669780bc9406b0e3677d0e1bca23fc49b174517b;hpb=34f7ff7e07e3f3a0e53225b1efeeb6275c67c674

diff --git a/src/EmailAddress.hs b/src/EmailAddress.hs
index 8dca54b..f568132 100644
--- a/src/EmailAddress.hs
+++ b/src/EmailAddress.hs
@@ -158,7 +158,7 @@ test_good_addresses :: TestTree
 test_good_addresses =
   testCase desc $ actual @?= expected
   where
-    desc = "Good addresses are accepted."
+    desc = "Good addresses are accepted"
     expected = True
     actual = all (validate_syntax False) good_addresses
 
@@ -166,7 +166,7 @@ test_good_addresses_rfc :: TestTree
 test_good_addresses_rfc =
   testCase desc $ actual @?= expected
   where
-    desc = "Good addresses are accepted with --rfc5322."
+    desc = "Good addresses are accepted with --rfc5322"
     expected = True
     actual = all (validate_syntax True) good_addresses
 
@@ -174,7 +174,7 @@ test_bad_addresses :: TestTree
 test_bad_addresses =
   testCase desc $ actual @?= expected
   where
-    desc = "Bad addresses are not accepted."
+    desc = "Bad addresses are not accepted"
     expected = True
     actual = all (not . (validate_syntax False)) bad_addresses
 
@@ -183,7 +183,7 @@ test_bad_addresses_rfc =
   testCase desc $
     assertEqual desc expected actual
   where
-    desc = "Bad addresses are not accepted with --rfc5322."
+    desc = "Bad addresses are not accepted with --rfc5322"
     expected = True
     actual = all (not . (validate_syntax True)) bad_addresses
 
@@ -191,7 +191,7 @@ test_unsupported_addresses :: TestTree
 test_unsupported_addresses =
   testCase desc $ actual @?= expected
   where
-    desc = "Unsupported addresses are not accepted."
+    desc = "Unsupported addresses are not accepted"
     expected = True
     actual = all (not . (validate_syntax False)) unsupported_addresses
 
@@ -199,7 +199,7 @@ test_unsupported_addresses_rfc :: TestTree
 test_unsupported_addresses_rfc =
   testCase desc $ actual @?= expected
   where
-    desc = "Unsupported addresses are accepted with --rfc5322."
+    desc = "Unsupported addresses are accepted with --rfc5322"
     expected = True
     actual = all (validate_syntax True) unsupported_addresses