--- /dev/null
+module Main
+where
+
+import Test.DocTest
+import System.FilePath.Find ((==?), always, extension, find)
+
+find_sources :: IO [FilePath]
+find_sources = find always (extension ==? ".hs") "src/"
+
+main :: IO ()
+main = do
+ sources <- find_sources
+ doctest $ ["-isrc", "-idist/build/autogen"] ++ sources
--- /dev/null
+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 ]