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