Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
asdf
asdf
Commits
40a448a2
Commit
40a448a2
authored
Aug 15, 2016
by
Robert Goldman
Browse files
Merge branch 'master' into run-program-bug-fixes
* master: Make test more verbose.
parents
6248043b
6fb83716
Changes
1
Hide whitespace changes
Inline
Side-by-side
test/test-symlink-loop.script
View file @
40a448a2
...
...
@@ -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)
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment