Commit 72fa50e6 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

make test-utilities more robust when *asdf-directory* isn't a truename.

parent 853dd73a
...@@ -7,15 +7,17 @@ ...@@ -7,15 +7,17 @@
:output '(:string :stripped t)) :output '(:string :stripped t))
:ensure-directory t)) :ensure-directory t))
(chdir *asdf-directory*) (let ((asdf-directory (truename *asdf-directory*)))
(assert-pathname-equal *asdf-directory* (getcwd)) (chdir asdf-directory)
(assert-pathname-equal *asdf-directory* (getcwd-from-run-program)) (assert-pathname-equal asdf-directory (getcwd))
(assert (probe-file* "asdf.asd")) (assert-pathname-equal asdf-directory (getcwd-from-run-program))
(assert (probe-file* "asdf.asd")))
(chdir *test-directory*) (let ((test-directory (truename *test-directory*)))
(assert-pathname-equal *test-directory* (getcwd)) (chdir test-directory)
(assert-pathname-equal *test-directory* (getcwd-from-run-program)) (assert-pathname-equal test-directory (getcwd))
(assert (probe-file* "test-utilities.script")) (assert-pathname-equal test-directory (getcwd-from-run-program))
(assert (probe-file* "test-utilities.script")))
(assert (assert
(every #'directory-pathname-p (every #'directory-pathname-p
Markdown is supported
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