Commit 5e20085d authored by Robert P. Goldman's avatar Robert P. Goldman

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.
parent b06641ed
......@@ -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))))
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