diff options
| -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) |