From a6d43fa47b0264283e75987f676bdadb42eb1c01 Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <fare@tunes.org> Date: Sat, 22 Oct 2016 15:34:16 -0400 Subject: [PATCH] Add debugging to duplicate-components-test.script --- test/duplicate-components-test.script | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/test/duplicate-components-test.script b/test/duplicate-components-test.script index eb75cab68..a77d215c3 100644 --- a/test/duplicate-components-test.script +++ b/test/duplicate-components-test.script @@ -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))) -- GitLab