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
Jan Moringen
asdf
Commits
a6d43fa4
Commit
a6d43fa4
authored
Oct 22, 2016
by
Francois-Rene Rideau
Browse files
Add debugging to duplicate-components-test.script
parent
74c2f241
Changes
1
Hide whitespace changes
Inline
Side-by-side
test/duplicate-components-test.script
View file @
a6d43fa4
...
...
@@ -3,9 +3,12 @@
(handler-case (asdf:find-system "duplicate-components")
(asdf:duplicate-names (x) (declare (ignore x)) t)
(asdf:load-system-definition-error (x)
(
if
(and (asdf/find-system::error-condition x)
(
or
(and (asdf/find-system::error-condition x)
(typep (asdf/find-system::error-condition x) 'asdf:duplicate-names))
t
(error "LOAD-SYSTEM-DEFINITION-ERROR not as expected (no contained DUPLICATE-NAMES error).")))
(progn
(DBG :err (asdf/find-system::error-condition x))
(error "LOAD-SYSTEM-DEFINITION-ERROR not as expected ~%~
(no contained DUPLICATE-NAMES error)."))))
(:no-error (x)
(error "FIND-SYSTEM of duplicate-components returned ~S instead of raising DUPLICATE-NAMES error." x)))
(error "FIND-SYSTEM of duplicate-components returned ~S ~%~
instead of raising DUPLICATE-NAMES error." x)))
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