generate valid names for test modules

Author: xitology

NEWS.md

@@ -4,8 +4,9 @@
 ## v0.5.0
 
 - Now that `@__DIR__` is provided, do not `cd()` into the test directory.
-- Allow running tests in the context of a specific module.
+- Added an option to run tests in the context of a specific module.
 - Added an option to suppress any output except for error reports.
+- Generate valid names for test modules.
 
 
 ## v0.4.1

src/NarrativeTest.jl

@@ -518,11 +518,11 @@ function runtest(test::Test; subs=common_subs(), mod=nothing)
     no_output = endswith(test.code.val, ";\n") || test.expect === nothing
     # Generate a module object for running the test code.
     if mod === nothing
-        modid = Base.PkgId(test.loc.file)
+        modid = Base.PkgId(module_name(test.loc.file))
         if Base.root_module_exists(modid)
             mod = Base.root_module(modid)
         else
-            mod = Module(Symbol(test.loc.file))
+            mod = Module(Symbol(modid.name))
             @eval mod begin
                 eval(x) = Core.eval($mod, x)
                 include(p) = Base.include($mod, p)
@@ -625,4 +625,11 @@ function expect2regex(pattern, subs)
     return Regex(pattern)
 end
 
+# Generate a module name from the filename.
+
+function module_name(file)
+    file = relpath(abspath(file), abspath(dirname(PROGRAM_FILE)))
+    return join(titlecase.(split(file, r"[^0-9A-Za-z]+")))
+end
+
 end

test/index.md

@@ -478,15 +478,15 @@ Functions `include` and `eval` are available in the test code.
 Macros `@__MODULE__`, `@__DIR__`, `@__FILE__`, `@__LINE__` properly report the
 location of the test code.
 
-    result = runtest(@__FILE__, "println(@__MODULE__)", expect=@__FILE__)
+    result = runtest(@__FILE__, "println(@__MODULE__)", expect=string(@__MODULE__))
     display(result)
     #=>
     Test passed at /…/index.md:
         println(@__MODULE__)
     Expected output:
-        /…/index.md
+        IndexMd
     Actual output:
-        /…/index.md
+        IndexMd
     =#
 
     result = runtest(@__FILE__, "println(@__DIR__)", expect=@__DIR__)