Commit b6a4b15b authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Add a test for previous failure.

parent dbfdf37a
...@@ -401,6 +401,9 @@ ...@@ -401,6 +401,9 @@
#-gcl #-gcl
(assert-pathname-equal (resolve-location '("/foo" "bar" :**/ "baz" #p"*.*") :ensure-directory nil :wilden t) #p"/foo/bar/**/baz/*.*") (assert-pathname-equal (resolve-location '("/foo" "bar" :**/ "baz" #p"*.*") :ensure-directory nil :wilden t) #p"/foo/bar/**/baz/*.*")
(assert (directory-pathname-p (system-source-directory (find-system :test-asdf/test-source-directory-1))))
(assert (directory-pathname-p (system-source-directory (find-system :test-asdf/test-source-directory-2))))
(or (test-component-pathnames :delete-host t :support-string-pathnames nil) (or (test-component-pathnames :delete-host t :support-string-pathnames nil)
(leave-test "test failed" 1))) (leave-test "test failed" 1)))
...@@ -16,3 +16,9 @@ ...@@ -16,3 +16,9 @@
(defsystem :test-asdf/test9-3 (defsystem :test-asdf/test9-3
:depends-on ((:version :test-asdf/test9-2 "1.0"))) :depends-on ((:version :test-asdf/test9-2 "1.0")))
(defsystem :test-asdf/test-source-directory-1
:pathname "some/relative/pathname/")
(defsystem :test-asdf/test-source-directory-2
:pathname "some/relative/pathname/with-file.type")
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