Simplify a few lines of tests.

[email-validator.git] / src / EmailAddress.hs

diff --git a/src/EmailAddress.hs b/src/EmailAddress.hs
index 615d43cf5ae02358de0ff5b47c9ab2b4e705e33f..0c1080613bb69d1db5b02a9c874d6fab6f4baf46 100644 (file)
--- 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