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

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

parent a14ddac2
Loading
Loading
Loading
Loading
+5 −0
Original line number Diff line number Diff line
(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")))
+5 −0
Original line number Diff line number Diff line
(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")))
+11 −1
Original line number Diff line number Diff line
@@ -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*")))
 )

test/test-tmp.lsp

0 → 100644
+10 −0
Original line number Diff line number Diff line
;; 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~%"))