[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 11a787dd913b4200f2a51c9dccb6ea4cd3c3bece
Author: John Goerzen <jgoerzen at complete.org>
Date:   Tue Nov 23 05:48:09 2004 +0100

    More tests
    
    Keywords:
    
    
    (jgoerzen at complete.org--projects/missingh--head--0.5--patch-109)

diff --git a/ChangeLog b/ChangeLog
index 8f37c83..dea45af 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,18 @@
 # arch-tag: automatic-ChangeLog--jgoerzen at complete.org--projects/missingh--head--0.5
 #
 
+2004-11-22 22:48:09 GMT	John Goerzen <jgoerzen at complete.org>	patch-109
+
+    Summary:
+      More tests
+    Revision:
+      missingh--head--0.5--patch-109
+
+
+    modified files:
+     ChangeLog testsrc/ConfigParser/Maintest.hs
+
+
 2004-11-22 22:43:44 GMT	John Goerzen <jgoerzen at complete.org>	patch-108
 
     Summary:
diff --git a/testsrc/ConfigParser/Maintest.hs b/testsrc/ConfigParser/Maintest.hs
index 3d831c8..93dd4c8 100644
--- a/testsrc/ConfigParser/Maintest.hs
+++ b/testsrc/ConfigParser/Maintest.hs
@@ -23,7 +23,8 @@ import Testutil
 import Control.Exception
 
 test_basic =
-    let f msg inp exp conv = TestLabel msg $ TestCase $ assertEqual "" exp (conv (readstring empty inp))
+    let p inp = readstring empty inp
+        f msg inp exp conv = TestLabel msg $ TestCase $ assertEqual "" exp (conv (p inp))
         in
         [
          f "empty doc, no sections" "" [] sections,
@@ -37,7 +38,13 @@ test_basic =
            "# [nonexistant]\n[emptysect]\n" ["emptysect"] sections,
          f "1 empty s w/comments"
            "#fo\n[Cemptysect]\n#asdf boo\n  \n  # fnonexistantg"
-           ["Cemptysect"] sections
+           ["Cemptysect"] sections,
+         f "1 empty s, comments, EOL"
+           "[emptysect]\n# [nonexistant]\n" ["emptysect"] sections,
+         TestLabel "1 sec w/option" $ TestCase $
+           do let cp = p "[sect1]\nfoo: bar\n"
+              ["sect1"] @=? sections cp
+              "bar" @=? get cp "sect1" "foo"
         ]
 
 {-

-- 
haskell-testpack