Commit 38b8d960 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Fix positional parameter call to test-scripts.

parent b5a78bcb
...@@ -3,7 +3,9 @@ ...@@ -3,7 +3,9 @@
(defparameter *default-test-scripts* '("*.script")) (defparameter *default-test-scripts* '("*.script"))
(defun get-test-scripts (&optional (test-scripts *test-scripts*)) (defun get-test-scripts (&optional (test-scripts *test-scripts*))
(if (eq test-scripts :default) (setf test-scripts *default-test-scripts*)) (typecase test-scripts
((eql :default) (setf test-scripts *default-test-scripts*))
(string (setf test-scripts (ensure-list-of-strings test-scripts))))
(with-asdf-dir ("test/") (with-asdf-dir ("test/")
(sort (sort
(loop :for pattern :in test-scripts (loop :for pattern :in test-scripts
...@@ -30,21 +32,20 @@ ...@@ -30,21 +32,20 @@
Use the preferred lisp implementation" Use the preferred lisp implementation"
(nest (nest
(with-asdf-dir ("test/")) (with-asdf-dir ("test/"))
(let* ((log (newlogfile "test" lisp)) (let* ((log (newlogfile "test" lisp)))
(scripts (get-test-scripts)))
(log! log "Running the following ~D ASDF test scripts on ~(~A~):~%~{ ~A~%~}" (log! log "Running the following ~D ASDF test scripts on ~(~A~):~%~{ ~A~%~}"
(length scripts) lisp scripts) (length test-scripts) lisp test-scripts)
(and (and
(run-test-lisp (run-test-lisp
"compiling ASDF" "compiling ASDF"
'((load "script-support.lisp") (asdf-test::compile-asdf-script)) '((load "script-support.lisp") (asdf-test::compile-asdf-script))
:lisp lisp :log log) :lisp lisp :log log)
(loop (loop
:with n-tests = (length scripts) :with n-tests = (length test-scripts)
:with test-pass = 0 :with test-pass = 0
:with test-fail = 0 :with test-fail = 0
:with failed-list = () :with failed-list = ()
:for i :in scripts :for i :in test-scripts
:for ni = (native-namestring i) :for ni = (native-namestring i)
:for test-count :from 0 :for test-count :from 0
:do :do
......
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