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

New test for modules that put their files in the top-level directory of the system.

parent 6a89cbc0
Loading
Loading
Loading
Loading
+13 −0
Original line number Diff line number Diff line
;;; -*- Lisp -*-
(asdf:defsystem test-samedir-modules
  :components ((:module "here"
                        :components
                        (
                         (:file "file2" :in-order-to ((compile-op (load-op "file1"))))
                         (:file "file1"))
                        :pathname "")))

#|
from clean, check that all fasl files build and that some function
   defined in the second file is present
|#
+19 −0
Original line number Diff line number Diff line
;;; -*- Lisp -*-
(load "script-support")
(load-asdf)

(quit-on-error
 (setf asdf:*central-registry* '(*default-pathname-defaults*))
 (asdf:operate 'asdf:load-op 'test-samedir-modules)
 ;; test that it compiled
 (let* ((file1 (asdf:compile-file-pathname* "file1"))
        (file2 (asdf:compile-file-pathname* "file2"))
        (file1-date (file-write-date file1)))

   (format t "~&test samedir modules 1: ~S ~S~%" file1 file1-date)
   (assert file1-date)
   (assert (file-write-date file2))

   ;; and loaded
   (assert (symbol-value (find-symbol (symbol-name :*file1*) :test-package)))))