X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FTests%2FMisc.hs;fp=src%2FTests%2FMisc.hs;h=0000000000000000000000000000000000000000;hb=9849853e69c46b46996e8c775d15661b2aba27a8;hp=fd160644780e00e3fb75b2fe1d23e051b575a031;hpb=c3d4eba6aa5ada928b351e9ec7c12c3077808ba7;p=spline3.git

diff --git a/src/Tests/Misc.hs b/src/Tests/Misc.hs
deleted file mode 100644
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