I want a retry test for failed tests

[cxxxr]

First, collect the names of failed tests from the return value of rove:run.

(defun collect-failed-tests (failed-tests)
  (let ((test-names '()))
    (labels ((recursive (failed-tests)
               (dolist (test failed-tests)
                 (when (and (typep test 'rove:test))
                   (when (symbolp (rove:test-name test))
                     (push (rove:test-name test) test-names))
                   (recursive (rove:failed-tests test))))))
      (recursive failed-tests))
    test-names))

;; example
(collect-failed-tests (nth-value 1 (rove:run :foo/tests))) ; => '(test-1 test-2)

This result is a list of test names.

I want to run this test again.
However, there is no function in rove to achieve this.

Candidate solutions that come to mind are.

1. Add run-tests function
   However, there is concern that this may compromise encapsulation.
2. Allow multiple functions to be passed to run-test
   There is a concern that the return value is not uniquely determined.
3. Extend rove:run to accept list of test-name
   There is a concern that the assumption that only the system name is used may be broken.

It might be a trade-off, but isn't there a better solution?