Merge pull request #10 from nbtrap/test-fix

Don't stop testing on the first test where PERL-ERROR is T.
edicl · Jan 5, 2014 · 30037c7 · 30037c7
2 parents b2c0f81 + 53b6516
commit 30037c7
Showing 1 changed file with 21 additions and 21 deletions.
diff --git 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))))))))))