Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
asdf
asdf
Commits
7d67f76c
Commit
7d67f76c
authored
Jan 10, 2013
by
Francois-Rene Rideau
Browse files
Redirect all streams to one during testing.
Avoids interspersed error output in CCL, or backtrace to terminal in SBCL.
parent
61d00892
Changes
1
Hide whitespace changes
Inline
Side-by-side
test/script-support.lisp
View file @
7d67f76c
...
...
@@ -130,13 +130,22 @@
(
ext:quit
:status
return
)
(
error
"Don't know how to quit Lisp; wanting to use exit code ~a"
return
))
(
defun
finish-outputs
()
(
loop
:for
s
:in
(
list
*standard-output*
*error-output*
*trace-output*
*debug-io*
)
:do
(
finish-output
s
)))
(
defun
redirect-outputs
()
(
finish-outputs
)
(
setf
*error-output*
*standard-output*
*trace-output*
*standard-output*
))
(
defun
leave-lisp
(
message
return
)
(
finish-outputs
)
(
fresh-line
*error-output*
)
(
when
message
(
format
*error-output*
message
)
(
terpri
*error-output*
))
(
finish-output
*error-output*
)
(
finish-output
*standard-output*
)
(
finish-outputs
)
(
exit-lisp
return
))
(
defmacro
assert-equal
(
x
y
)
...
...
@@ -150,6 +159,7 @@
"Unless the environment variable DEBUG_ASDF_TEST
is bound, write a message and exit on an error. If
*asdf-test-debug* is true, enter the debugger."
(
redirect-outputs
)
(
handler-bind
((
error
(
lambda
(
c
)
(
format
*error-output*
"~&~a~&"
c
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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