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

Don't stop testing on the first test where PERL-ERROR is T.

Browse Source
This commit is contained in:
Nathan Trapuzzano
2013-12-30 17:47:52 -05:00
parent 0bb107db3a
commit 53b6516725
1 changed files with 35 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
test/perl-tests.lisp
View File

@ -104,6 +104,7 @@ test files."
(unless (find counter *tests-to-skip* :test #'=)
(when verbose
(format t "~&~4D: ~S" counter info-string))
(block inner-test-block
(let ((scanner
(handler-bind ((error (lambda (condition)
(declare (ignore condition))
@ -111,13 +112,12 @@ test files."
;; we expected an
;; error, so we can
;; signal success
(return-from test-block)))))
(return-from inner-test-block)))))
(create-scanner regex
:case-insensitive-mode case-insensitive-mode
:multi-line-mode multi-line-mode
:single-line-mode single-line-mode
:extended-mode extended-mode))))
(block test-block
(multiple-value-bind (start end reg-starts reg-ends)
(scan scanner target)
(cond (perl-error