X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=test%2FTestSuite.hs;h=7f49670f23a524723ce40778bc43286255a206df;hb=4383f675429378faa35e5c6f8081f0d344a8e526;hp=abe2275b7ea87c8ec14c3c841f8865629a3ffeed;hpb=effb6b9a8716ce58fed6c8260c57164601a7df30;p=spline3.git

diff --git a/test/TestSuite.hs b/test/TestSuite.hs
index abe2275..7f49670 100644
--- 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