test-cache.script 876 Bytes
Newer Older
1 2 3 4
;;; -*- Lisp -*-

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

5
(in-package :asdf-test)
6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

(defparameter *all-systems*
  (list
   "test-asdf"
   "test-asdf/all"
   "test-asdf/1"
   "test-asdf/2"
   "test-asdf/4"
   "test-asdf/test9-1"
   "test-asdf/test-module-depend"
   "test-asdf/test9-2"
   "test-asdf/test9-3"
   "test-asdf/test-source-directory-1"
   "test-asdf/test-source-directory-2"
   "test-asdf/bundle-1"
   "test-asdf/bundle-2"
   "test-asdf/force"
   "test-asdf/force1"))

(defun clear-caches-and-search ()
  (setf asdf:*central-registry* nil)
27
  (mapc #'clear-system *all-systems*))
28 29 30 31 32 33 34

(clear-caches-and-search)
(assert (not (asdf:find-system "test-asdf/force1" nil)))
(multiple-value-bind (ret cond)
    (ignore-errors (asdf:find-system "test-asdf/force1" t))
  (assert (not ret))
  (assert (typep cond 'asdf:missing-component)))