X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FTests%2FMisc.hs;h=fd160644780e00e3fb75b2fe1d23e051b575a031;hb=a2cc10f44d77965b97c21ba74aa2acb302cd8fe0;hp=f28243488b1300654c8c1f7011f1d2518bf01b39;hpb=7c648d2c1ca966c4ba1dfff08a13100f065d5dbf;p=spline3.git

diff --git a/src/Tests/Misc.hs b/src/Tests/Misc.hs
index f282434..fd16064 100644
--- a/src/Tests/Misc.hs
+++ b/src/Tests/Misc.hs
@@ -11,13 +11,10 @@ prop_factorial_greater n =
     n <= 20 ==> factorial n >= n
 
 
-test_flatten1 :: Test
+test_flatten1 :: Assertion
 test_flatten1 =
-    TestCase $ assertEqual "flatten actually works" expected_list actual_list
+    assertEqual "flatten actually works" expected_list actual_list
     where
       target = [[[1::Int]], [[2, 3]]]
       expected_list = [1, 2, 3]
       actual_list = flatten target
-
-misc_tests :: [Test]
-misc_tests = [ test_flatten1 ]