ts: improve coverage of getModulefileFromLoadingModule proc

xdelaruelle · xdelaruelle · commit c6f72912efcd · 2024-11-10T20:40:16.000+01:00
diff --git a/testsuite/example/siteconfig.tcl-1 b/testsuite/example/siteconfig.tcl-1
@@ -666,5 +666,10 @@ if {[info exists env(TESTSUITE_ENABLE_SITECONFIG_GETLOADEDPREREQPATH)]} {
     report [string length [getLoadedPrereqPath foo qux]]
 }
 
+# specific tests to improve getModulefileFromLoadingModule coverage
+if {[info exists env(TESTSUITE_ENABLE_SITECONFIG_GETMODULEFILEFROMLOADINGMODULE)]} {
+    report [string length [getModulefileFromLoadingModule foo]]
+}
+
 
 }
diff --git a/testsuite/modules.00-init/120-siteconfig.exp b/testsuite/modules.00-init/120-siteconfig.exp
@@ -734,6 +734,13 @@ lappend ans $vers_reportre
 testouterr_cmd_re sh -V OK [join $ans \n]
 unsetenv_var TESTSUITE_ENABLE_SITECONFIG_GETLOADEDPREREQPATH
 
+setenv_var TESTSUITE_ENABLE_SITECONFIG_GETMODULEFILEFROMLOADINGMODULE 1
+set ans [list]
+lappend ans 0
+lappend ans $vers_reportre
+testouterr_cmd_re sh -V OK [join $ans \n]
+unsetenv_var TESTSUITE_ENABLE_SITECONFIG_GETMODULEFILEFROMLOADINGMODULE
+
 
 } elseif {$verbose} {
     send_user "\tSkip tests relying on an excepted siteconfig file installed\n"

Original file line number	Diff line number	Diff line change
`@@ -666,5 +666,10 @@ if {[info exists env(TESTSUITE_ENABLE_SITECONFIG_GETLOADEDPREREQPATH)]} {`
`666`	`666`	`report [string length [getLoadedPrereqPath foo qux]]`
`667`	`667`	`}`
`668`	`668`
	`669`	`+# specific tests to improve getModulefileFromLoadingModule coverage`
	`670`	`+if {[info exists env(TESTSUITE_ENABLE_SITECONFIG_GETMODULEFILEFROMLOADINGMODULE)]} {`
	`671`	`+ report [string length [getModulefileFromLoadingModule foo]]`
	`672`	`+}`
	`673`	`+`
`669`	`674`
`670`	`675`	`}`