In R/test-files.r:
>
> >  #' @export
> >  test_dir <- function(path, filter = NULL, reporter = "summary", env = NULL) {
> > -  reporter <- find_reporter(reporter)
> > +  current_reporter <- find_reporter(reporter)
>
> Ok, in that case you could just make find_reporter() always return a
> ListReporter. It just seems to me that that behaviour better belongs to
> find_reporter() than to test_dir()
>

 But find_reporter() mission is: "Find reporter object given name", it's a
kind of meta constructor,  so it can not return a lister reporter if asked
for another reporter right ?