Commit e7ad0cca authored by Robert P. Goldman's avatar Robert P. Goldman

Extended the test for cl-source-file.cl to cl-source-file.lsp.

parent a14ddac2
(defsystem test-builtin-source-file-type-3
:default-component-class cl-source-file.lsp
:serial t
:components ((:cl-source-file "file1") ; for the package
(:file "test-tmp")))
(defsystem test-builtin-source-file-type-4
:default-component-class cl-source-file.lsp
:serial t
:components ((:file "file1" :type "lisp") ; for package
(:file "test-tmp")))
......@@ -12,4 +12,14 @@
'("lisp" "cl")))
(delete-package :test-package)
(asdf:load-system 'test-builtin-source-file-type-2 :verbose t)
(assert (symbol-value (read-from-string "test-package::*test-tmp-cl*"))))
(assert (symbol-value (read-from-string "test-package::*test-tmp-cl*")))
(asdf:load-system 'test-builtin-source-file-type-3 :verbose t)
(assert (symbol-value (read-from-string "test-package::*test-tmp-cl*")))
(assert
(equal (mapcar #'pathname-type
(mapcar #'asdf:component-pathname (asdf:module-components (asdf:find-system :test-source-file-type-1))))
'("lisp" "cl")))
(delete-package :test-package)
(asdf:load-system 'test-builtin-source-file-type-4 :verbose t)
(assert (symbol-value (read-from-string "test-package::*test-tmp-cl*")))
)
;; part of the test-module-pathnames test
(in-package #:test-package)
(defparameter *test-tmp-cl* t)
(eval-when (:compile-toplevel :execute)
(format t "compiling test-tmp.cl~%"))
(eval-when (:load-toplevel :execute)
(format t "loading test-tmp.cl~%"))
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