test-samedir-modules.script 530 Bytes
Newer Older
1
;;; -*- Lisp -*-
2
(load "script-support.lisp")
3 4
(load-asdf)

5
(with-test ()
6
 (DBG "loading test-samedir-modules")
7 8 9 10 11
 (asdf:operate 'asdf:load-op 'test-samedir-modules)
 (let* ((file1 (asdf:compile-file-pathname* "file1"))
        (file2 (asdf:compile-file-pathname* "file2"))
        (file1-date (file-write-date file1)))

12
   (DBG "test that it compiled" file1 file1-date)
13 14 15
   (assert file1-date)
   (assert (file-write-date file2))

16
   (DBG "and loaded")
17
   (assert (symbol-value (find-symbol (symbol-name :*file1*) :test-package)))))