(handler-case
      (load-test-system :test-asdf/test9-1)
    (asdf:missing-component-of-version (c)
      (format t "got missing-component-of-version as expected: - ~%~A~%" c))
    (:no-error (c)
      (declare (ignore c))
      (error "should have failed, oops")))
  (load-test-system :test-asdf/test9-3)) ; positive case, to make sure.