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