From b6a4b15b280ba3213ad9b70511cb1f822f77636d Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Fri, 1 Feb 2013 16:33:34 -0500 Subject: [PATCH] Add a test for previous failure. --- test/asdf-pathname-test.script | 3 +++ test/test-asdf.asd | 6 ++++++ 2 files changed, 9 insertions(+) diff --git a/test/asdf-pathname-test.script b/test/asdf-pathname-test.script index 2e9d5256..edab2e58 100644 --- a/test/asdf-pathname-test.script +++ b/test/asdf-pathname-test.script @@ -401,6 +401,9 @@ #-gcl (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) (leave-test "test failed" 1))) diff --git a/test/test-asdf.asd b/test/test-asdf.asd index 3826d362..53cd5857 100644 --- a/test/test-asdf.asd +++ b/test/test-asdf.asd @@ -16,3 +16,9 @@ (defsystem :test-asdf/test9-3 :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") -- GitLab