using Test
using Glob

"""
    run_testfiles()
    run_testfiles(path)
    run_testfiles(path, glob)

Find and run all files with filenames starting with "test". If `path` is omitted the test folder is assumed.
The argument `glob` can optionally be supplied to filter which test files are run.
"""
function run_testfiles(args)
    if isempty(args)
        glob = fn"./*"
    else
        glob = Glob.FilenameMatch("./"*args[1]) #TBD: Allow multiple filters?
    end

    run_testfiles(".", glob)
end

# TODO change from prefix `test` to suffix `_test` for testfiles
function  run_testfiles(path, glob)
    for name ∈ readdir(path)
        filepath = joinpath(path, name)

        if isdir(filepath)
            @testset "$name" begin
                run_testfiles(filepath, glob)
            end
        end

        if !endswith(name, ".jl") ## TODO combine this into test below when switching to suffix
            continue
        end

        if startswith(name, "test") && occursin(glob, filepath)
            printstyled("Running "; bold=true, color=:green)
            println(filepath)
            include(filepath)
        end
    end
end

testsetname = isempty(ARGS) ? "Sbplib.jl" : ARGS[1]

@testset "$testsetname" begin
    run_testfiles(ARGS)
end