anchor.diff:      :initarg :predicate
       :type function
       :accessor test-predicate)
  -   (summary
  -    :initarg :summary
  -    :initform nil
  -    :accessor test-summary
  -    :type (or string null))
      ;; NOTE: The following slots are defined with non-conventional
      ;; accessors, below.
      (setup-function
  
positive.code: 
  (defgeneric %test-suite-tests (suite))
  
  (defgeneric test-suite-default-test-class (suite))
  (defgeneric (setf test-suite-default-test-class) (new-value suite))
  
  (defclass test-suite (simple-associative-index associative-object)
    ((default-test-class
         :initarg :default-test-class
       :initform (find-class 'lisp-test)
       :type class-designator 
       :accessor test-suite-default-test-class))
    (:metaclass associative-class)
    (:key-slot . mcicl.utils::name)
    (:default-initargs :key-function #'object-name))
  
  
negative.code:     :accessor %test-cleanup-function)
     ))
  
  #+NIL ;; regression test - test initialization
  (make-instance  'test)
  
  
  (define-condition test-not-found (container-condition entity-not-found)
    ()
    (:report format-condition))
  