Commit 4e6d3b8d authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Fix a scoping issue in test-all.

parent 186ae594
......@@ -3,8 +3,9 @@
(defun call-with-all-lisps (thunk &key (lisps *test-lisps*) (fail-fast t))
(let ((thunks
(loop :for lisp :in (get-lisps lisps)
:collect (lambda () (with-failure-context ((format nil "using ~(~A~)" lisp))
(funcall thunk lisp))))))
:collect (let ((l lisp))
(lambda () (with-failure-context ((format nil "using ~(~A~)" l))
(funcall thunk l)))))))
(if fail-fast
(progn (map () 'funcall thunks) (success))
(apply 'call-without-stopping thunks))))
......@@ -62,9 +63,9 @@
(with-asdf-dir ()
(let ((bad-lisps
`(grep "-L" "[5-9][0-9] passing and 0 failing"
`(grep "-L" "All tests apparently successful."
,@(mapcar (lambda (l) (format nil "build/results/~(~A~)-test.text" l))
*test-lisps*)) :on-error nil)))
(failure-if bad-lisps
"Unexpected test failures on these implementations:~%~{~A~%~}" bad-lisps))))
......@@ -75,7 +76,7 @@
`(grep "-L" "Upgrade test succeeded for "
,@(mapcar (lambda (l) (format nil "build/results/~(~A~)-upgrade.text" l))
*upgrade-test-lisps*)) :on-error nil)))
(failure-if bad-lisps
"Unexpected upgrade failures on these implementations:~%~{~A~%~}~%" bad-lisps))))
......@@ -33,7 +33,7 @@ Use the preferred lisp implementation"
(with-asdf-dir ())
(let* ((log (newlogfile "test" lisp)))
(log! log "Running the following ~D ASDF test scripts on ~(~A~):~%~{ ~A~%~}"
(log! log "Running the following ~D ASDF test script~:*~P on ~(~A~):~%~{ ~A~%~}"
(length test-scripts) lisp test-scripts))
(without-stopping ())
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment