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