From: Michael Orlitzky <michael@orlitzky.com>
Date: Sun, 9 Jun 2013 19:25:16 +0000 (-0400)
Subject: Simplify a few lines of tests.
X-Git-Tag: 0.0.2~5
X-Git-Url: http://gitweb.michael.orlitzky.com/?p=email-validator.git;a=commitdiff_plain;h=e986eafc21f9225bef296d13d143d096732bc7f9

Simplify a few lines of tests.
---

diff --git a/src/EmailAddress.hs b/src/EmailAddress.hs
index 615d43c..0c10806 100644
--- a/src/EmailAddress.hs
+++ b/src/EmailAddress.hs
@@ -116,7 +116,7 @@ test_good_addresses =
   where
     desc = "Good addresses are accepted."
     expected = True
-    actual = and (map validate_syntax good_addresses)
+    actual = all validate_syntax good_addresses
 
 test_bad_addresses :: Test
 test_bad_addresses =
@@ -125,7 +125,7 @@ test_bad_addresses =
   where
     desc = "Bad addresses are not accepted."
     expected = True
-    actual = and (map (not . validate_syntax) bad_addresses)
+    actual = all (not . validate_syntax) bad_addresses
 
 test_unsupported_addresses :: Test
 test_unsupported_addresses =
@@ -134,7 +134,7 @@ test_unsupported_addresses =
   where
     desc = "Unsupported addresses are not accepted."
     expected = True
-    actual = and (map (not . validate_syntax) unsupported_addresses)
+    actual = all (not . validate_syntax) unsupported_addresses
 
 
 email_address_tests :: Test