Remove periods from test descriptions.

diff --git a/src/EmailAddress.hs b/src/EmailAddress.hs
index 8dca54b945695c238ff157ca95331668d2e8b992..f56813231adf99bc2534cd37b3aed848cb52580c 100644 (file)
--- 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