Permalink
Browse files

Add basic tests for whitespace? and whitespace*.

  • Loading branch information...
1 parent ad7ebba commit 2046da538b0c40fbe8f773c53025fd2fe786bbee @Ramarren committed Mar 27, 2012
Showing with 8 additions and 0 deletions.
  1. +8 −0 test-parsers.lisp
View
@@ -36,6 +36,14 @@
("A" #\A "b" #\b "1" #\1 "5" #\5)
(" " ","))
+(defparsertest test-whitespace? (whitespace?)
+ (" " nil " " nil)
+ ("a" ","))
+
+(defparsertest test-whitespace* (whitespace*)
+ (" " nil " " nil)
+ ("a" ","))
+
(defparsertest test-word? (word?)
("abc" "abc" "123" "123" "abc!def" "abc")
(" " ";,!"))

0 comments on commit 2046da5

Please sign in to comment.