From cf42c2659f8f04c8c586909849ba69302eb0d2e2 Mon Sep 17 00:00:00 2001 From: David Waern Date: Tue, 11 May 2010 19:18:03 +0000 Subject: Shorten function name --- tests/unit-tests/parsetests.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'tests') diff --git a/tests/unit-tests/parsetests.hs b/tests/unit-tests/parsetests.hs index f66355e2..8bf681b3 100644 --- a/tests/unit-tests/parsetests.hs +++ b/tests/unit-tests/parsetests.hs @@ -45,12 +45,12 @@ tests = [ main = do - _ <- runTestTT $ TestList $ map testFromParseTest tests + _ <- runTestTT $ TestList $ map toTestCase tests return (); where - testFromParseTest :: ParseTest -> Test - testFromParseTest (ParseTest input result) = TestCase $ assertEqual input (parse input) result + toTestCase :: ParseTest -> Test + toTestCase (ParseTest input result) = TestCase $ assertEqual input (parse input) result parse :: String -> Maybe (Doc RdrName) parse input = parseParas $ tokenise defaultDynFlags input (0,0) -- cgit v1.2.3