From 1ca89a2acb3f4819a42128f1db66fc84b5cac367 Mon Sep 17 00:00:00 2001
From: Michael Orlitzky <michael@orlitzky.com>
Date: Thu, 1 Aug 2013 15:34:53 -0400
Subject: [PATCH] Truly add the test suite source files, which should have gone
 in a few commits ago.

---
 test/Doctests.hs  | 13 +++++++++++++
 test/TestSuite.hs | 18 ++++++++++++++++++
 2 files changed, 31 insertions(+)
 create mode 100644 test/Doctests.hs
 create mode 100644 test/TestSuite.hs

diff --git a/test/Doctests.hs b/test/Doctests.hs
new file mode 100644
index 0000000..d183b4b
--- /dev/null
+++ b/test/Doctests.hs
@@ -0,0 +1,13 @@
+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
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 ]
-- 
2.43.2