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
72fa50e6
Commit
72fa50e6
authored
Jun 08, 2015
by
Francois-Rene Rideau
Browse files
make test-utilities more robust when *asdf-directory* isn't a truename.
parent
853dd73a
Changes
1
Hide whitespace changes
Inline
Side-by-side
test/test-utilities.script
View file @
72fa50e6
...
...
@@ -7,15 +7,17 @@
:output '(:string :stripped t))
:ensure-directory t))
(chdir *asdf-directory*)
(assert-pathname-equal *asdf-directory* (getcwd))
(assert-pathname-equal *asdf-directory* (getcwd-from-run-program))
(assert (probe-file* "asdf.asd"))
(let ((asdf-directory (truename *asdf-directory*)))
(chdir asdf-directory)
(assert-pathname-equal asdf-directory (getcwd))
(assert-pathname-equal asdf-directory (getcwd-from-run-program))
(assert (probe-file* "asdf.asd")))
(chdir *test-directory*)
(assert-pathname-equal *test-directory* (getcwd))
(assert-pathname-equal *test-directory* (getcwd-from-run-program))
(assert (probe-file* "test-utilities.script"))
(let ((test-directory (truename *test-directory*)))
(chdir test-directory)
(assert-pathname-equal test-directory (getcwd))
(assert-pathname-equal test-directory (getcwd-from-run-program))
(assert (probe-file* "test-utilities.script")))
(assert
(every #'directory-pathname-p
...
...
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