Finish moving the tests to test-framework.

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

diff --git a/src/Tests/Misc.hs b/src/Tests/Misc.hs
index f28243488b1300654c8c1f7011f1d2518bf01b39..fd160644780e00e3fb75b2fe1d23e051b575a031 100644 (file)
--- 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 ]