;;; -*- Lisp -*-

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

(load "script-support.lisp")

(load-asdf)

(in-package #:asdf-test)

(quit-on-error

 (setf asdf:*central-registry* '(*default-pathname-defaults*))

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