runtests: keep track of tested modules

Instead of using `Base.loaded_modules`, which doesn't seem to
list "local" modules (which are not associated to a package),
including nested modules.

Author: rfourquet

src/InlineTest.jl

@@ -19,6 +19,7 @@ using Test: Test,
 
 
 const INLINE_TEST = Ref{Symbol}(:__INLINE_TEST__)
+const TESTED_MODULES = Module[]
 
 include("testset.jl")
 
@@ -34,10 +35,11 @@ struct TestsetExpr
     final::Bool
 end
 
-function tests(m)
+function tests(m::Module)
     inline_test::Symbol = m ∈ (InlineTest, InlineTest.InlineTestTest) ? :__INLINE_TEST__ : INLINE_TEST[]
     if !isdefined(m, inline_test)
         @eval m $inline_test = []
+        push!(TESTED_MODULES, m)
     end
     getfield(m, inline_test)
 end
@@ -213,7 +215,7 @@ function wrap_ts(partial, regex, ts::TestsetExpr, loopvals=nothing)
 end
 
 function runtests(pattern::Union{AbstractString,Regex} = r""; wrap::Bool=true)
-    foreach(values(Base.loaded_modules)) do m
+    foreach(TESTED_MODULES) do m
         if isdefined(m, INLINE_TEST[])
             # will automatically skip InlineTest and InlineTest.InlineTestTest
             runtests(m, pattern, wrap=wrap)

test/runtests.jl

@@ -154,4 +154,4 @@ P.check("b", ["a", "b", "b|c"]) # an implicit prefix r".*" is added
 P.check("b|c", ["a", "b|c"]) # "b" is not matched
 
 runtests()
-runtests(r"/a") # just test that a regex can be passed
+runtests(r"^/f1") # just test that a regex can be passed