test-weakly-depends-on-unpresent.script 718 Bytes
Newer Older
1
;;; -*- Lisp -*-
2 3 4 5 6 7 8

;;;---------------------------------------------------------------------------
;;; This test verifies that if you have a system with a weakly-depends-on
;;; dependency, and the weakly-depended-on system is NOT THERE, the depending
;;; system will still load successfully. [2011/12/14:rpg]
;;;---------------------------------------------------------------------------

9

10

11

12 13 14 15
(asdf:load-system 'test-weakly-depends-on-unpresent)
;; test that it compiled
(defparameter file1 (test-fasl "file1"))
(defparameter file1-date (file-write-date file1))
16

17 18 19 20
(format t "~&test1 1: ~S ~S~%" file1 file1-date)
(assert file1-date)
;; and loaded
(assert (symbol-value (find-symbol (symbol-name :*file1*) :test-package)))