Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
asdf
asdf
Commits
38b8d960
Commit
38b8d960
authored
May 20, 2014
by
Francois-Rene Rideau
Browse files
Fix positional parameter call to test-scripts.
parent
b5a78bcb
Changes
1
Hide whitespace changes
Inline
Side-by-side
tools/test-scripts.lisp
View file @
38b8d960
...
...
@@ -3,7 +3,9 @@
(
defparameter
*default-test-scripts*
'
(
"*.script"
))
(
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/"
)
(
sort
(
loop
:for
pattern
:in
test-scripts
...
...
@@ -30,21 +32,20 @@
Use the preferred lisp implementation"
(
nest
(
with-asdf-dir
(
"test/"
))
(
let*
((
log
(
newlogfile
"test"
lisp
))
(
scripts
(
get-test-scripts
)))
(
let*
((
log
(
newlogfile
"test"
lisp
)))
(
log!
log
"Running the following ~D ASDF test scripts on ~(~A~):~%~{ ~A~%~}"
(
length
scripts
)
lisp
scripts
)
(
length
test-
scripts
)
lisp
test-
scripts
)
(
and
(
run-test-lisp
"compiling ASDF"
'
((
load
"script-support.lisp"
)
(
asdf-test::compile-asdf-script
))
:lisp
lisp
:log
log
)
(
loop
:with
n-tests
=
(
length
scripts
)
:with
n-tests
=
(
length
test-
scripts
)
:with
test-pass
=
0
:with
test-fail
=
0
:with
failed-list
=
()
:for
i
:in
scripts
:for
i
:in
test-
scripts
:for
ni
=
(
native-namestring
i
)
:for
test-count
:from
0
:do
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment