Commit 40a448a2 authored by Robert Goldman's avatar Robert Goldman
Browse files

Merge branch 'master' into run-program-bug-fixes

* master:
  Make test more verbose.
parents 6248043b 6fb83716
......@@ -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 @@
(push name asds))))
(DBG "Resetting 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)
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment