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 ]