Add test cases for empty value/whitespace in key

Author: rvl

testsrc/ConfigParser/Parsertest.hs

@@ -43,6 +43,7 @@ test_basic =
           [("Cemptysect", [])]
         ,f "comments4" "[emptysect]\n# [nonexistant]\n" [("emptysect", [])]
         ,f "simple section" "[sect1]\nfoo: bar\n" [("sect1", [("foo", "bar")])]
+        ,f "empty value" "[sect1]\nfoo: \n" [("sect1", [("foo", "")])]
         ,f "comments5" "\n#foo\n[sect1]\n\n#iiii \no1: v1\no2:  v2\no3: v3"
           [("sect1", [("o1", "v1"), ("o2", "v2"), ("o3", "v3")])]
         ,f "comments5ext" "\n#foo\n[sect1]\n\n#iiii \no1: v1\no2:  v2\n o3: v3"
@@ -53,6 +54,7 @@ test_basic =
         ,f "default1" "v1: o1\n[sect1]\nv2: o2" [("DEFAULT", [("v1", "o1")]),
                                      ("sect1", [("v2", "o2")])]
         ,f "simple default" "foo: bar" [("DEFAULT", [("foo", "bar")])]
+        ,f "whitespace in key" "foo bar : baz" [("DEFAULT", [("foo bar", "baz")])]
                ]
 
 test_asserts =