;;; -*- Lisp -*-

;;; Test to check that the cache doesn't upset error signaling from FIND-SYSTEM

(in-package :asdf-test)

(setf asdf::*asdf-session* nil)
(setf *central-registry* nil)
(asdf::clear-registered-systems)

(assert-equal nil (find-system "test-asdf/force1" nil))
(errors missing-component (find-system "test-asdf/force1" t))
