diff options
Diffstat (limited to 'test/perl-tests.lisp')
| -rw-r--r-- | test/perl-tests.lisp | 42 |
1 files changed, 21 insertions, 21 deletions
diff --git a/test/perl-tests.lisp b/test/perl-tests.lisp index b89ea78..f714c8c 100644 --- a/test/perl-tests.lisp +++ b/test/perl-tests.lisp @@ -126,25 +126,25 @@ test files." (t (when (not (eq start expected-result)) (if start - (let ((result (subseq target start end))) - (unless (string= result expected-result) - (push (format nil "expected ~S but got ~S." - expected-result result) - errors)) - (setq reg-starts (coerce reg-starts 'list) - reg-ends (coerce reg-ends 'list)) - (loop for i from 0 - for expected-register in expected-registers - for reg-start = (nth i reg-starts) - for reg-end = (nth i reg-ends) - for register = (if (and reg-start reg-end) - (subseq target reg-start reg-end) - nil) - unless (string= expected-register register) - do (push (format nil "\\~A: expected ~S but got ~S." - (1+ i) expected-register register) - errors))) - (push (format nil "expected ~S but got ~S." - expected-result start) - errors)))))) + (let ((result (subseq target start end))) + (unless (string= result expected-result) + (push (format nil "expected ~S but got ~S." + expected-result result) + errors)) + (setq reg-starts (coerce reg-starts 'list) + reg-ends (coerce reg-ends 'list)) + (loop for i from 0 + for expected-register in expected-registers + for reg-start = (nth i reg-starts) + for reg-end = (nth i reg-ends) + for register = (if (and reg-start reg-end) + (subseq target reg-start reg-end) + nil) + unless (string= expected-register register) + do (push (format nil "\\~A: expected ~S but got ~S." + (1+ i) expected-register register) + errors))) + (push (format nil "expected ~S but got ~S." + expected-result start) + errors)))))) errors)))))))))) |