diff options
author | Hans Huebner <hans.huebner@gmail.com> | 2014-01-05 22:05:52 +0100 |
---|---|---|
committer | Hans Huebner <hans.huebner@gmail.com> | 2014-01-05 22:05:52 +0100 |
commit | 18d3ad3023b44dc52821f8503359be5cc5a4ca5f (patch) | |
tree | e3d5f17f684684c12e13d9c4e303a563e6dcaf04 | |
parent | 1075f9c3bbb028ed72e5e1561e19c73276daeeb5 (diff) | |
parent | 30037c7d5e15ed45e38e963a33a672e02d1c8134 (diff) |
Merge branch 'master' of github.com:edicl/cl-ppcre
-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)))))))))) |