Added text and test for it

All tests pass

diff --git a/src/Network/IMAP/Parser/Prim.hs b/src/Network/IMAP/Parser/Prim.hs
index 1f494511aa922ded2c1c51f87e4138eeb8b08a2a..204b0af8d0923880492f7e1b7ddd664881c2daed 100644 (file)
--- a/src/Network/IMAP/Parser/Prim.hs
+++ b/src/Network/IMAP/Parser/Prim.hs
@@ -116,4 +116,8 @@ quotedChar =
     noneOf quotedSpecials <|> (do char '\\'
                                   oneOf quotedSpecials
                               )
-           
\ No newline at end of file
+
+-- | Fixme: should exclude 8-bit data per RFC3501           
+textChar = noneOf crlf
+
+text = many1 textChar

diff --git a/testsrc/TestParserPrim.hs b/testsrc/TestParserPrim.hs
index 2438c6b150b743075d5cae98b9bec2b721c25146..36d44600c4f09a3ef9c0171cf3359df009af0232 100644 (file)
--- a/testsrc/TestParserPrim.hs
+++ b/testsrc/TestParserPrim.hs
@@ -88,10 +88,19 @@ prop_astring s useQuoted =
        then p astring s @=? Just s
        else p astring (gen_string3501 s useQuoted) @=? Just s
 
+prop_text :: String -> Result
+prop_text s =
+    p text s @=? if isValid
+                 then Just s
+                 else Nothing
+    where isValid = not (null s) && all (`notElem` crlf) s
+
 allt = [q "quoted" prop_quoted,
         q "literal" prop_literal,
         q "string3501" prop_string3501,
         q "atom" prop_atom,
         q "astring basic" prop_astring_basic,
-        q "prop_astring" prop_astring
+        q "astring full" prop_astring,
+        q "text" prop_text
        ]
+