Unit test for function for sourcing folders: How to source files within testthat

Question

I created a function that sources folders instead of files:

source_folder <- function(path, recursive = TRUE) {
    files <- list.files(
        path,