From 8ae93700a5116f3aac00fb006b1a93ae0a5305bc Mon Sep 17 00:00:00 2001
From: John Goerzen <jgoerzen@complete.org>
Date: Tue, 12 Aug 2008 00:41:30 -0500
Subject: [PATCH] Added test for string3501

---
 testsrc/TestParserPrim.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/testsrc/TestParserPrim.hs b/testsrc/TestParserPrim.hs
index 49c4a32..ec65c06 100644
--- a/testsrc/TestParserPrim.hs
+++ b/testsrc/TestParserPrim.hs
@@ -52,6 +52,11 @@ gen_literal :: String -> String
 gen_literal s =
     "{" ++ show (length s) ++ "}\r\n" ++ s
 
+prop_string3501 :: String -> Bool -> Result
+prop_string3501 s True = p string3501 (gen_quoted s) @?= Right s
+prop_string3501 s False = p string3501 (gen_literal s) @?= Right s
+    
 allt = [q "quoted" prop_quoted,
-        q "literal" prop_literal
+        q "literal" prop_literal,
+        q "string3501" prop_string3501
        ]
-- 
2.39.2