From 4383f675429378faa35e5c6f8081f0d344a8e526 Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Fri, 8 Jul 2011 20:17:47 -0400 Subject: [PATCH] Add doctests to the test suite. --- test/TestSuite.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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 -- 2.43.2