diff options
author | Simon Hengel <simon.hengel@wiktory.org> | 2011-04-08 16:01:24 +0000 |
---|---|---|
committer | Simon Hengel <simon.hengel@wiktory.org> | 2011-04-08 16:01:24 +0000 |
commit | 79a924301378410d38f1ee9400232fe967189429 (patch) | |
tree | 355e29cabaf713089fe0612064e340faa1859ea5 /tests/unit-tests | |
parent | 69100027e6b6024fa6c7956e8593a2eef712fcb8 (diff) |
Set unit tests back to work
Here "ghci>" was still used instead of ">>>".
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 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) |