test8.script 474 Bytes
Newer Older
1 2 3 4
;;; -*- Lisp -*-

;;; make sure we get a missing-component error

5
(in-package :asdf-test)
6

7 8 9 10 11 12 13 14 15 16
(handler-case
    (asdf:oos 'asdf:load-op 'system-does-not-exist)
  (asdf:missing-component-of-version (c)
    (declare (ignore c))
    (error "Should not have gotten 'missing-component-of-version, dang"))
  (asdf:missing-component (c)
    (format t "got missing-component as expected: - ~%~A~%" c))
  (:no-error (c)
    (declare (ignore c))
    (error "should have failed, oops")))