test-samedir-modules.script 436 Bytes
Newer Older
1
;;; -*- Lisp -*-
2

3

4

5 6 7 8 9
(DBG "loading test-samedir-modules")
(asdf:operate 'asdf:load-op 'test-samedir-modules)
(defparameter file1 (test-fasl "file1"))
(defparameter file2 (test-fasl "file2"))
(defparameter file1-date (file-write-date file1))
10

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

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