From 669780bc9406b0e3677d0e1bca23fc49b174517b Mon Sep 17 00:00:00 2001
From: Michael Orlitzky <michael@orlitzky.com>
Date: Sat, 15 Feb 2014 14:36:39 -0500
Subject: [PATCH] Remove periods from test descriptions.

---
 src/EmailAddress.hs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

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
 
-- 
2.43.2