Add doctests to the test suite.

diff --git a/test/TestSuite.hs b/test/TestSuite.hs
index abe2275b7ea87c8ec14c3c841f8865629a3ffeed..7f49670f23a524723ce40778bc43286255a206df 100644 (file)
--- a/test/TestSuite.hs
+++ b/test/TestSuite.hs
@@ -3,6 +3,7 @@ where
 
 import Test.Framework (defaultMain, testGroup, Test, TestName, TestOptions(..))
 import Test.Framework.Providers.API (TestName)
+import Test.Framework.Providers.DocTest
 import Test.Framework.Providers.HUnit (testCase)
 import Test.Framework.Providers.QuickCheck2 (testProperty)
 import Test.HUnit
@@ -16,7 +17,9 @@ import Tests.Misc
 import Tests.Tetrahedron as TT
 
 main :: IO ()
-main = defaultMain tests
+main = do
+  dt <- docTest ["src/Everything.hs"] ["-isrc"]
+  defaultMain $ [dt] -- ++ tests
 
 -- | Defined so that my test names fit on one line.
 tc :: Test.Framework.Providers.API.TestName -> Test.HUnit.Assertion -> Test.Framework.Test