From cf42c2659f8f04c8c586909849ba69302eb0d2e2 Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
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/unit-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