OSCL/cl-ppcre
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add a test-case which exercises a branch of end-string-aux.

Browse Source
This commit is contained in:
Stas Boukarev
2013-04-11 14:06:37 +04:00
parent 7d64a90203
commit b7706d3a10
1 changed files with 16 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
test/simple
View File

@ -347,3 +347,19 @@ characters if there's a match."
for s = (create-scanner "(([a-c])+)x") for s = (create-scanner "(([a-c])+)x")
always (equalp (multiple-value-list (scan s "abcxy")) always (equalp (multiple-value-list (scan s "abcxy"))
(list 0 4 #(0 2) #(3 3)))) (list 0 4 #(0 2) #(3 3))))
(labels ((char-code-odd-p (char)
(oddp (char-code char)))
(char-code-even-p (char)
(evenp (char-code char)))
(resolver (name)
(cond ((string= name "odd") #'char-code-odd-p)
((string= name "even") #'char-code-even-p)
((string= name "true") (constantly t))
(t (error "Can't resolve ~S." name)))))
(equalp
(let ((*property-resolver* #'resolver))
(list (regex-replace-all (create-scanner "\\p{odd}") "abcd" "+")
(regex-replace-all (create-scanner "\\p{even}") "abcd" "+")
(regex-replace-all (create-scanner "\\p{true}") "abcd" "+")))
'("+b+d" "a+c+" "++++")))