diff options
| author | David Waern <david.waern@gmail.com> | 2010-05-11 19:18:03 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2010-05-11 19:18:03 +0000 |
| commit | cf42c2659f8f04c8c586909849ba69302eb0d2e2 (patch) | |
| tree | 5db3210939942eebeffe7113f60107890ef38d6f /tests/unit-tests | |
| parent | a7cfb1d83c7e0f97a806e1f2c202416e625b2ce2 (diff) | |
Shorten function name
Diffstat (limited to 'tests/unit-tests')
| -rw-r--r-- | tests/unit-tests/parsetests.hs | 6 |
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) |