package-inferred-system-test.script 624 Bytes
Newer Older
1 2
;;-*- Lisp -*-

3 4 5 6 7 8 9
(register-directory (subpathname *test-directory* "package-inferred-system-test/"))
(load-system :package-inferred-system-test/a/x)
(load-system :package-inferred-system-test/d)

(signals package-inferred-system-missing-package-error (load-system :package-inferred-system-test/e))

;; No such file.
10 11
(signals missing-component
         (handler-bind ((system-out-of-date 'continue)) (load-system :package-inferred-system-test/f)))
12 13 14

;; Test that around-compile is inherited by inferred systems.
(assert-equal 3 (symbol-call :package-inferred-system-test/a :add10 1)) ;; add10 must have been compiled in base 2