From 6fb8371616b3febb7dcc3a00141a802ba516f6fb Mon Sep 17 00:00:00 2001
From: "Robert P. Goldman" <rpgoldman@sift.net>
Date: Mon, 15 Aug 2016 21:33:33 -0500
Subject: [PATCH] Make test more verbose.

---
 test/test-symlink-loop.script | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/test/test-symlink-loop.script b/test/test-symlink-loop.script
index 6e12859da..fdea26bcd 100644
--- a/test/test-symlink-loop.script
+++ b/test/test-symlink-loop.script
@@ -29,6 +29,7 @@
                          (format nil "~a" (namestring (make-sub-pathname :name "loop"
                                                                          :type "asd"
                                                                          :defaults scratch-dir))))
+         (DBG "Testing search for asdf system definitions.")
          (assert-equal (list "loop")
                        (let ((asds nil))
                          (declare (special asds))
@@ -47,10 +48,14 @@
                                                name)))
                                 (push name asds))))
                          asds))
+         (DBG "Resetting source registry.")
          (initialize-source-registry
           `(:source-registry (:tree ,scratch-dir) :ignore-inherited-configuration))
+         (DBG "Looking for the LOOP system")
          (assert (asdf:find-system :loop)))
     ;; clean up
+    (DBG "Cleaning up")
     (uiop:run-program (format nil "rm -r ~a" scratch-dir))))
 
+(DBG "Exiting")
 (exit-lisp 0)
-- 
GitLab