[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 b69fa1b8603a53ff79cbf3365d72aafe24ac573c
Author: John Goerzen <jgoerzen at complete.org>
Date:   Fri Nov 19 02:13:50 2004 +0100

    Finished off basic tests
    
    Keywords:
    
    
    (jgoerzen at complete.org--projects/missingh--head--0.5--patch-80)

diff --git a/ChangeLog b/ChangeLog
index 9dfe23d..dfeedfc 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,18 @@
 # arch-tag: automatic-ChangeLog--jgoerzen at complete.org--projects/missingh--head--0.5
 #
 
+2004-11-18 19:13:50 GMT	John Goerzen <jgoerzen at complete.org>	patch-80
+
+    Summary:
+      Finished off basic tests
+    Revision:
+      missingh--head--0.5--patch-80
+
+
+    modified files:
+     ChangeLog testsrc/ConfigParser/Parsertest.hs
+
+
 2004-11-18 19:10:38 GMT	John Goerzen <jgoerzen at complete.org>	patch-79
 
     Summary:
diff --git a/testsrc/ConfigParser/Parsertest.hs b/testsrc/ConfigParser/Parsertest.hs
index 36edca2..2f9f999 100644
--- a/testsrc/ConfigParser/Parsertest.hs
+++ b/testsrc/ConfigParser/Parsertest.hs
@@ -38,8 +38,15 @@ test_basic =
         f "[sect1]\nfoo: bar\n" [("sect1", [("foo", "bar")])]
         f "\n#foo\n[sect1]\n\n#iiii \no1: v1\no2:  v2\n o3: v3"
           [("sect1", [("o1", "v1"), ("o2", "v2"), ("o3", "v3")])]
+
         assertRaises (ErrorCall "Lexer: \"(string)\" (line 1, column 5):\nunexpected \"\\n\"\nexpecting Option separator")
                       (f "#foo\nthis is bad data" [])
+
+        assertRaises (ErrorCall "Lexer: \"(string)\" (line 2, column 9):\nunexpected \"\\n\"\nexpecting Option separator")
+                     (f "[sect1]\n#iiiiii \n  extensionline\n#foo" [])
+
+        f "v1: o1\n[sect1]\nv2: o2" [("DEFAULT", [("v1", "o1")]),
+                                     ("sect1", [("v2", "o2")])]
         f "foo: bar" [("DEFAULT", [("foo", "bar")])]
 
 tests = TestList [TestLabel "test_basic" (TestCase test_basic)

-- 
haskell-testpack