From 5e20085d789eae171c14feafa1ee2c39f27aa542 Mon Sep 17 00:00:00 2001
From: "Robert P. Goldman" <rpgoldman@real-time.com>
Date: Sun, 24 Apr 2011 10:41:14 -0500
Subject: [PATCH] Modified this test case to check launchpad bug 769634.

Ernst van Waning reports that the return value of ASDF:COMPONENT-PATHNAME
does not honor an override of SOURCE-FILE-TYPE.  This test verifies the
claim.
---
 test/test-source-file-type.script | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/test/test-source-file-type.script b/test/test-source-file-type.script
index 86ec0a92..720231fb 100644
--- a/test/test-source-file-type.script
+++ b/test/test-source-file-type.script
@@ -7,6 +7,13 @@
  (asdf:load-system 'test-source-file-type-1 :verbose t)
  (let ((sym (read-from-string "test-package::*test-tmp-cl*")))
   (assert (symbol-value sym))
+  ;; (assert
+  ;;  (equalp (mapcar #'asdf::source-file-explicit-type (asdf:module-components (asdf:find-system :test-source-file-type-1)))
+  ;;          '("cl" "cl")))
+  (assert
+   (equalp (mapcar #'pathname-type
+                  (mapcar #'asdf:component-pathname (asdf:module-components (asdf:find-system :test-source-file-type-1))))
+          '("cl" "cl")))
   (set sym nil)
   (asdf:load-system 'test-source-file-type-2 :verbose t)
   (assert (symbol-value sym))))
-- 
GitLab