Re-enable the non-doc tests.

Add a doctest for the flatten function.

diff --git a/src/Misc.hs b/src/Misc.hs
index 48482b4f69a2cfe580b8b34a605beae82565168b..34c682e31a7609e590898311885ea397fed1f6c4 100644 (file)
--- a/src/Misc.hs
+++ b/src/Misc.hs
@@ -25,6 +25,12 @@ factorial n
 
 -- | Takes a three-dimensional list, and flattens it into a
 --   one-dimensional one.
+--
+--  Examples:
+--
+--  >>> flatten [ [[1,2], [3,4]], [[5,6], [7,8]] ]
+--  [1,2,3,4,5,6,7,8]
+--
 flatten :: [[[a]]] -> [a]
 flatten xs = concat $ concat xs
 

diff --git a/test/TestSuite.hs b/test/TestSuite.hs
index 7f49670f23a524723ce40778bc43286255a206df..756bcf3bfad316d0dce0c0358ccc48deadcf918f 100644 (file)
--- a/test/TestSuite.hs
+++ b/test/TestSuite.hs
@@ -19,7 +19,7 @@ import Tests.Tetrahedron as TT
 main :: IO ()
 main = do
   dt <- docTest ["src/Everything.hs"] ["-isrc"]
-  defaultMain $ [dt] -- ++ tests
+  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