Skip to content
Snippets Groups Projects
Commit 6fb83716 authored by Robert Goldman's avatar Robert Goldman
Browse files

Make test more verbose.

parent ff34993c
No related branches found
No related tags found
No related merge requests found
...@@ -29,6 +29,7 @@ ...@@ -29,6 +29,7 @@
(format nil "~a" (namestring (make-sub-pathname :name "loop" (format nil "~a" (namestring (make-sub-pathname :name "loop"
:type "asd" :type "asd"
:defaults scratch-dir)))) :defaults scratch-dir))))
(DBG "Testing search for asdf system definitions.")
(assert-equal (list "loop") (assert-equal (list "loop")
(let ((asds nil)) (let ((asds nil))
(declare (special asds)) (declare (special asds))
...@@ -47,10 +48,14 @@ ...@@ -47,10 +48,14 @@
name))) name)))
(push name asds)))) (push name asds))))
asds)) asds))
(DBG "Resetting source registry.")
(initialize-source-registry (initialize-source-registry
`(:source-registry (:tree ,scratch-dir) :ignore-inherited-configuration)) `(:source-registry (:tree ,scratch-dir) :ignore-inherited-configuration))
(DBG "Looking for the LOOP system")
(assert (asdf:find-system :loop))) (assert (asdf:find-system :loop)))
;; clean up ;; clean up
(DBG "Cleaning up")
(uiop:run-program (format nil "rm -r ~a" scratch-dir)))) (uiop:run-program (format nil "rm -r ~a" scratch-dir))))
(DBG "Exiting")
(exit-lisp 0) (exit-lisp 0)
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment