A bunch more test cleanup.

[spline3.git] / src / Tests / Misc.hs

diff --git a/src/Tests/Misc.hs b/src/Tests/Misc.hs
deleted file mode 100644 (file)
index fd16064..0000000
--- a/src/Tests/Misc.hs
+++ /dev/null
@@ -1,20 +0,0 @@
-module Tests.Misc
-where
-
-import Test.HUnit
-import Test.QuickCheck
-
-import Misc
-
-prop_factorial_greater :: Int -> Property
-prop_factorial_greater n =
-    n <= 20 ==> factorial n >= n
-
-
-test_flatten1 :: Assertion
-test_flatten1 =
-    assertEqual "flatten actually works" expected_list actual_list
-    where
-      target = [[[1::Int]], [[2, 3]]]
-      expected_list = [1, 2, 3]
-      actual_list = flatten target