(defmethod run ((ob test) &key (handle-errors t))
"Generalized to work on test-case and test-suites"
(let ((res (make-test-results)))
(defmethod run ((ob test) &key (handle-errors t))
"Generalized to work on test-case and test-suites"
(let ((res (make-test-results)))