test/TestSuite.hs

   1 {-# LANGUAGE NoMonomorphismRestriction #-}
   2 import Data.Monoid (mempty)
   3 import Test.Framework (
   4   Test,
   5   defaultMainWithOpts,
   6   )
   7 import Test.Framework.Runners.Options
   8
   9 import EmailAddress (email_address_tests)
  10
  11 tests :: [Test.Framework.Test]
  12 tests = [ email_address_tests ]
  13
  14 main :: IO ()
  15 main = do
  16   let empty_runner_opts = mempty :: RunnerOptions
  17   defaultMainWithOpts tests empty_runner_opts