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