test2.script 877 Bytes
Newer Older
Daniel Barlow's avatar
Daniel Barlow committed
1
;;; -*- Lisp -*-
2

3 4
;; We don't use load-system, because it can be load-fasl-op on ECL,
;; and these systems define manual dependencies on compile-op.
5 6

(DBG "test2: loading test2b1")
7
(operate 'load-op 'test2b1)
8 9 10 11 12 13

(DBG "test2: file3 and file4 were compiled")
(assert (and (probe-file (test-fasl "file3.lisp"))
             (probe-file (test-fasl "file4.lisp"))))

(DBG "test2: loading test2b2 should fail")
14

15
(handler-case
16
    (operate 'load-op 'test2b2)
17 18 19 20 21 22 23
  (asdf:missing-dependency (c)
    (format t "load failed as expected: - ~%~A~%" c))
  (:no-error (c)
    (declare (ignore c))
    (error "should have failed, oops")))

(DBG "test2: loading test2b3 should fail")
24

25
(handler-case
26
    (operate 'load-op 'test2b3)
27 28 29 30 31
  (asdf:missing-dependency (c)
    (format t "load failed as expected: - ~%~A~%" c))
  (:no-error (c)
    (declare (ignore c))
    (error "should have failed, oops")))