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