runtests: uniquify modules in Base.loaded_modules + TESTED_MODULES

Author: rfourquet

src/ReTest.jl

@@ -221,15 +221,13 @@ function wrap_ts(partial, regex, ts::TestsetExpr, loopvals=nothing)
 end
 
 function runtests(pattern::Union{AbstractString,Regex} = r""; wrap::Bool=true)
-    for mods in (values(Base.loaded_modules), TESTED_MODULES)
-        # TESTED_MODULES is not up-to-date w.r.t. package modules which have
-        # precompilation, so we have to also look in Base.loaded_modules
-        # TODO: look recursively in "loaded modules" which use ReTest for sub-modules
-        foreach(mods) do m
-            if isdefined(m, INLINE_TEST[])
-                # will automatically skip ReTest and ReTest.ReTestTest
-                runtests(m, pattern, wrap=wrap)
-            end
+    # TESTED_MODULES is not up-to-date w.r.t. package modules which have
+    # precompilation, so we have to also look in Base.loaded_modules
+    # TODO: look recursively in "loaded modules" which use ReTest for sub-modules
+    for m in unique(Iterators.flatten((values(Base.loaded_modules), TESTED_MODULES)))
+        if isdefined(m, INLINE_TEST[])
+            # will automatically skip ReTest and ReTest.ReTestTest
+            runtests(m, pattern, wrap=wrap)
         end
     end
 end

test/runtests.jl

@@ -156,5 +156,16 @@ if VERSION >= v"1.3"
     P.check("b|c", ["a", "b|c"]) # "b" is not matched
 end
 
+RUN = []
+@testset "toplevel" begin
+    # this tests that the testset is run exactly once
+    # Main is special here, as it's both in Base.loaded_modules
+    # and it gets registered automatically in ReTest.TESTED_MODULES
+    push!(RUN, "toplevel")
+    @test true
+end
+
 runtests()
+@test RUN == ["toplevel"]
+
 runtests(r"^/f1") # just test that a regex can be passed