From: Michael Orlitzky <michael@orlitzky.com>
Date: Sat, 9 Jul 2011 00:26:34 +0000 (-0400)
Subject: Re-enable the non-doc tests.
X-Git-Tag: 0.0.1~261
X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=26f0a2204a0bdb41b1d6aa5430544c404b77e638;p=spline3.git

Re-enable the non-doc tests.
Add a doctest for the flatten function.
---

diff --git a/src/Misc.hs b/src/Misc.hs
index 48482b4..34c682e 100644
--- 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 7f49670..756bcf3 100644
--- 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