Skip to content
Snippets Groups Projects
Commit 81134efb authored by Robert P. Goldman's avatar Robert P. Goldman
Browse files

New test for cache correctness.

It seems that the cache may override the error flag for FIND-SYSTEM.
parent b90d556a
No related branches found
No related tags found
No related merge requests found
;;; -*- Lisp -*-
;;; test to check that the cache doesn't upset error signaling from FIND-SYSTEM
(in-package asdf-test)
(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)
(mapc #'asdf/find-system:clear-defined-system *all-systems*))
(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)))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment