diff --git a/test/duplicate-components-test.script b/test/duplicate-components-test.script index eb75cab681d41e296627bed4334bc9d53db09679..a77d215c3c556f2b1288572713a3568658986522 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)))