From 79a924301378410d38f1ee9400232fe967189429 Mon Sep 17 00:00:00 2001
From: Simon Hengel <simon.hengel@wiktory.org>
Date: Fri, 8 Apr 2011 16:01:24 +0000
Subject: Set unit tests back to work

Here "ghci>" was still used instead of ">>>".
---
 tests/unit-tests/parsetests.hs | 6 +++---
 1 file 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)
-- 
cgit v1.2.3