X-Git-Url: http://gitweb.michael.orlitzky.com/?p=haeredes.git;a=blobdiff_plain;f=test%2FTestSuite.hs;h=91e044c8acc4f0e4a70149d89bc1356f37563ab3;hp=7c553d223d23e115a69a7f283aadcbaed2cbaad9;hb=b2a53e06f43162d4b23f7d16740d6e55275c1c1b;hpb=1ca89a2acb3f4819a42128f1db66fc84b5cac367

diff --git a/test/TestSuite.hs b/test/TestSuite.hs
index 7c553d2..91e044c 100644
--- a/test/TestSuite.hs
+++ b/test/TestSuite.hs
@@ -1,18 +1,12 @@
 module Main
 where
 
-import Data.Monoid (mempty)
-import Test.Framework (
-  Test,
-  defaultMainWithOpts )
-import Test.Framework.Runners.Options ( RunnerOptions )
+import Test.Tasty ( TestTree, defaultMain, testGroup )
 
-import DNS (dns_properties, dns_tests)
+import DNS ( dns_properties, dns_tests )
 
-main :: IO ()
-main = do
-  let empty_options = mempty :: RunnerOptions
-  defaultMainWithOpts tests empty_options
+tests :: TestTree
+tests = testGroup "All tests" [ dns_properties, dns_tests ]
 
-tests :: [Test]
-tests = [ dns_properties, dns_tests ]
+main :: IO ()
+main = defaultMain tests