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

diff --git a/test/TestSuite.hs b/test/TestSuite.hs
new file mode 100644
index 0000000..7c553d2
--- /dev/null
+++ b/test/TestSuite.hs
@@ -0,0 +1,18 @@
+module Main
+where
+
+import Data.Monoid (mempty)
+import Test.Framework (
+  Test,
+  defaultMainWithOpts )
+import Test.Framework.Runners.Options ( RunnerOptions )
+
+import DNS (dns_properties, dns_tests)
+
+main :: IO ()
+main = do
+  let empty_options = mempty :: RunnerOptions
+  defaultMainWithOpts tests empty_options
+
+tests :: [Test]
+tests = [ dns_properties, dns_tests ]