aboutsummaryrefslogtreecommitdiff
path: root/tests/unit-tests/parsetests.hs
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2010-05-11 19:18:03 +0000
committerDavid Waern <david.waern@gmail.com>2010-05-11 19:18:03 +0000
commitcf42c2659f8f04c8c586909849ba69302eb0d2e2 (patch)
tree5db3210939942eebeffe7113f60107890ef38d6f /tests/unit-tests/parsetests.hs
parenta7cfb1d83c7e0f97a806e1f2c202416e625b2ce2 (diff)
Shorten function name
Diffstat (limited to 'tests/unit-tests/parsetests.hs')
-rw-r--r--tests/unit-tests/parsetests.hs6
1 files changed, 3 insertions, 3 deletions
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)