From: Michael Orlitzky <michael@orlitzky.com>
Date: Sat, 9 Jul 2011 00:17:47 +0000 (-0400)
Subject: Add doctests to the test suite.
X-Git-Tag: 0.0.1~262
X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=4383f675429378faa35e5c6f8081f0d344a8e526;p=spline3.git

Add doctests to the test suite.
---

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