Commit a6d43fa4 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Add debugging to duplicate-components-test.script

parent 74c2f241
Loading
Loading
Loading
Loading
+7 −4
Original line number Diff line number Diff line
@@ -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)))