From: Michael Orlitzky <michael@orlitzky.com>
Date: Sat, 15 Feb 2014 19:36:39 +0000 (-0500)
Subject: Remove periods from test descriptions.
X-Git-Tag: 0.0.3~1
X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=669780bc9406b0e3677d0e1bca23fc49b174517b;p=email-validator.git

Remove periods from test descriptions.
---

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