From 2a7f245979ec1dc33657cba9ee14144a77e45e25 Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Sun, 9 Jun 2013 13:40:30 -0400 Subject: [PATCH] Add the test suite. --- test/TestSuite.hs | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 test/TestSuite.hs diff --git a/test/TestSuite.hs b/test/TestSuite.hs new file mode 100644 index 0000000..7dd0880 --- /dev/null +++ b/test/TestSuite.hs @@ -0,0 +1,17 @@ +{-# LANGUAGE NoMonomorphismRestriction #-} +import Data.Monoid (mempty) +import Test.Framework ( + Test, + defaultMainWithOpts, + ) +import Test.Framework.Runners.Options + +import EmailAddress (email_address_tests) + +tests :: [Test.Framework.Test] +tests = [ email_address_tests ] + +main :: IO () +main = do + let empty_runner_opts = mempty :: RunnerOptions + defaultMainWithOpts tests empty_runner_opts -- 2.43.2