-{-# LANGUAGE NoMonomorphismRestriction #-}
-import Data.Monoid (mempty)
-import Test.Framework (
- Test,
- defaultMainWithOpts,
- )
-import Test.Framework.Runners.Options
+import Test.Tasty ( TestTree, defaultMain, testGroup )
-import EmailAddress (email_address_tests)
+import EmailAddress ( email_address_tests )
-tests :: [Test.Framework.Test]
-tests = [ email_address_tests ]
+tests :: TestTree
+tests = testGroup "All Tests" [ email_address_tests ]
main :: IO ()
-main = do
- let empty_runner_opts = mempty :: RunnerOptions
- defaultMainWithOpts tests empty_runner_opts
+main = defaultMain tests