Method: (%RUN TEST-SUITE)

Source

(defmethod %run ((suite test-suite))
  (let ((suite-results '()))
    (bind-run-state ((result-list '()))
      (loop for test being the hash-values of (tests suite)
	    do (%run test)
	    finally (setf suite-results result-list)))
    (setf (status suite) (every (lambda (res)
				  (typep res 'test-passed))
				  suite-results))
    (with-run-state (result-list)
      (setf result-list (nconc result-list suite-results)))))