aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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 8bf681b3..a76e476e 100644
--- a/tests/unit-tests/parsetests.hs
+++ b/tests/unit-tests/parsetests.hs
@@ -23,12 +23,12 @@ tests = [
}
, ParseTest {
- input = "foobar\n\nghci> fib 10\n55"
+ input = "foobar\n\n>>> fib 10\n55"
, result = Just $ DocAppend (DocParagraph $ DocString "foobar\n") (DocExamples $ [Example "fib 10" ["55"]])
}
, ParseTest {
- input = "foobar\nghci> fib 10\n55"
+ input = "foobar\n>>> fib 10\n55"
, result = Nothing -- parse error
}
@@ -50,7 +50,7 @@ main = do
where
toTestCase :: ParseTest -> Test
- toTestCase (ParseTest input result) = TestCase $ assertEqual input (parse input) result
+ toTestCase (ParseTest input result) = TestCase $ assertEqual input result (parse input)
parse :: String -> Maybe (Doc RdrName)
parse input = parseParas $ tokenise defaultDynFlags input (0,0)