test/TestSuite.hs

   1 module Main
   2 where
   3
   4 import Data.Monoid (mempty)
   5 import Test.Framework (
   6   Test,
   7   defaultMainWithOpts )
   8 import Test.Framework.Runners.Options ( RunnerOptions )
   9
  10 import DNS (dns_properties, dns_tests)
  11
  12 main :: IO ()
  13 main = do
  14   let empty_options = mempty :: RunnerOptions
  15   defaultMainWithOpts tests empty_options
  16
  17 tests :: [Test]
  18 tests = [ dns_properties, dns_tests ]