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

Merge branch 'master' of github.com:edicl/cl-ppcre

Browse Source
This commit is contained in:
Hans Huebner
2014-01-05 22:05:52 +01:00
parent 1075f9c3bb 30037c7d5e
commit 18d3ad3023
1 changed files with 21 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
test/perl-tests.lisp
View File

@ -126,25 +126,25 @@ test files."
(t (t
(when (not (eq start expected-result)) (when (not (eq start expected-result))
(if start (if start
(let ((result (subseq target start end))) (let ((result (subseq target start end)))
(unless (string= result expected-result) (unless (string= result expected-result)
(push (format nil "expected ~S but got ~S." (push (format nil "expected ~S but got ~S."
expected-result result) expected-result result)
errors)) errors))
(setq reg-starts (coerce reg-starts 'list) (setq reg-starts (coerce reg-starts 'list)
reg-ends (coerce reg-ends 'list)) reg-ends (coerce reg-ends 'list))
(loop for i from 0 (loop for i from 0
for expected-register in expected-registers for expected-register in expected-registers
for reg-start = (nth i reg-starts) for reg-start = (nth i reg-starts)
for reg-end = (nth i reg-ends) for reg-end = (nth i reg-ends)
for register = (if (and reg-start reg-end) for register = (if (and reg-start reg-end)
(subseq target reg-start reg-end) (subseq target reg-start reg-end)
nil) nil)
unless (string= expected-register register) unless (string= expected-register register)
do (push (format nil "\\~A: expected ~S but got ~S." do (push (format nil "\\~A: expected ~S but got ~S."
(1+ i) expected-register register) (1+ i) expected-register register)
errors))) errors)))
(push (format nil "expected ~S but got ~S." (push (format nil "expected ~S but got ~S."
expected-result start) expected-result start)
errors)))))) errors))))))
errors)))))))))) errors))))))))))