[Pkg-haskell-commits] [SCM] haskell-testpack branch, master, updated. debian/1.0.2-1-4-gb0d6b36

[John Goerzen]

The following commit has been merged in the master branch:
commit 1aaee5b56ff01d8f5120999b8fd9beedc5e275b5
Author: John Goerzen <jgoerzen at complete.org>
Date:   Tue Nov 30 22:40:16 2004 +0100

    Tests run
    
    Keywords:
    
    
    (jgoerzen at complete.org--projects/missingh--head--0.5--patch-122)

diff --git a/ChangeLog b/ChangeLog
index b50090f..3b592cc 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,18 @@
 # arch-tag: automatic-ChangeLog--jgoerzen at complete.org--projects/missingh--head--0.5
 #
 
+2004-11-30 15:40:16 GMT	John Goerzen <jgoerzen at complete.org>	patch-122
+
+    Summary:
+      Tests run
+    Revision:
+      missingh--head--0.5--patch-122
+
+
+    modified files:
+     ChangeLog testsrc/ConfigParser/Parsertest.hs
+
+
 2004-11-30 15:37:24 GMT	John Goerzen <jgoerzen at complete.org>	patch-121
 
     Summary:
diff --git a/testsrc/ConfigParser/Parsertest.hs b/testsrc/ConfigParser/Parsertest.hs
index beaaec3..859cf48 100644
--- a/testsrc/ConfigParser/Parsertest.hs
+++ b/testsrc/ConfigParser/Parsertest.hs
@@ -60,9 +60,9 @@ test_asserts =
     let f msg inp exp = TestLabel msg $ TestCase $ exp @=? parse_string inp in
         [
          f "e test1" "#foo\nthis is bad data"
-                     (Left (ParseError "\"(string)\" (line 1, column 5):\nunexpected \"\\n\"\nexpecting Option separator", "Lexer"))
+                     (Left (ParseError "\"(string)\" (line 2, column 1):\nunexpected \"t\"\nexpecting end of input, whitespace, start of comment, empty line, start of section or option separator", "lexer"))
         ,f "e test2" "[sect1]\n#iiiiii \n  extensionline\n#foo"
-                     (Left (ParseError "\"(string)\" (line 2, column 9):\nunexpected \"\\n\"\nexpecting Option separator", "Lexer"))
+                     (Left (ParseError "\"(string)\" (line 4, column 1):\nunexpected EXTENSIONLINE \"extensionline\"","parser"))
         ]
         
 {-

-- 
haskell-testpack