Skip to content
Snippets Groups Projects
test8.script 532 B
Newer Older
;;; -*- Lisp -*-

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

  (trace operate)
  (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"))))