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

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

test/test-source-file-type.script

+7 −0
Original line number Diff line number Diff line
@@ -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))))