Function: RESULTS-STATUS

Documentation

Given a list of test results (generated while running a test) return true if all of the results are of type TEST-PASSED, faile otherwise.

Source

(defun results-status (result-list)
  "Given a list of test results (generated while running a test)
  return true if all of the results are of type TEST-PASSED,
  faile otherwise."
  (every (lambda (res)
	   (typep res 'test-passed))
	 result-list))