Skip to content
Snippets Groups Projects
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
No related branches found
No related tags found
No related merge requests found
;;; -*- 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
|#
;;; -*- 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)))))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment