diff --git a/test/test-source-file-type.script b/test/test-source-file-type.script index 86ec0a92d73990461baa2fdf3ee2ade1e51ecdee..720231fb3da98eb108ee2078000546fd838ffebe 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))))