test3.script 535 Bytes
Newer Older
Daniel Barlow's avatar
Daniel Barlow committed
1
;;; -*- Lisp -*-
2 3 4 5 6 7 8

(defparameter *fasl1* (test-fasl "file1.lisp"))
(defparameter *fasl2* (test-fasl "file2.lisp"))

(delete-file-if-exists *fasl1*)
(delete-file-if-exists *fasl2*)
(DBG "should load file1 but not file2")
Francois-Rene Rideau's avatar
Francois-Rene Rideau committed
9 10

;;; Use REQUIRE where we boast integration, load-system where not.
11
(if (or #+(or abcl clozure cmucl ecl mkcl sbcl) t
12 13 14
        #+clisp (find-symbol* '#:*module-provider-functions* :custom nil))
    (funcall 'require :test3)
    (load-system :test3))
Francois-Rene Rideau's avatar
Francois-Rene Rideau committed
15

16 17
(assert (probe-file *fasl1*))
(assert (not (probe-file *fasl2*)))