Loading test/duplicate-components-test.script +7 −4 Original line number Diff line number Diff line Loading @@ -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))) Loading
test/duplicate-components-test.script +7 −4 Original line number Diff line number Diff line Loading @@ -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)))