test-cache.script 338 Bytes
Newer Older
1 2
;;; -*- Lisp -*-

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

5
(in-package :asdf-test)
6

7 8
(setf asdf::*asdf-session* nil)
(setf *central-registry* nil)
9
(asdf::clear-registered-systems)
10

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