From 1793a14549446b74c347b4ae578703e775f97bba Mon Sep 17 00:00:00 2001 From: Ramarren Date: Fri, 2 Mar 2012 08:16:21 +0100 Subject: [PATCH] Add tests for quoted? --- test-parsers.lisp | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/test-parsers.lisp b/test-parsers.lisp index 9005a92..82e0495 100644 --- a/test-parsers.lisp +++ b/test-parsers.lisp @@ -293,3 +293,16 @@ (defparsertest test-curtail? (curtail? e (choice (seq-list? e #\+ e) #\A)) ("A" #\A "A+A" '(#\A #\+ #\A) "A+A+A" '((#\A #\+ #\A) #\+ #\A)) ()) + +(defparsertest test-quoted? (quoted? :quote-char #\' :escape-char #\- :include-quotes t) + ("'AAA'" "'AAA'" "'AB-'C'" "'AB-'C'") + ("AAA")) + +(defparsertest test-quoted?2 (quoted? :quote-char #\' :escape-char #\- :include-quotes nil) + ("'AAA'" "AAA" "'AB-'C'" "AB'C") + ("AAA")) + +(defparsertest test-quoted?3 (quoted? :left-quote-char #\1 :right-quote-char #\2 :escape-char #\3 :include-quotes nil) + ("1AAA2" "AAA" "1AB32C2" "AB2C") + ("AAA")) +