From: Michael Orlitzky 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