ts: improve coverage of getLoadedPrereqPath proc

Author: xdelaruelle

testsuite/example/siteconfig.tcl-1

@@ -660,6 +660,11 @@ if {[info exists env(TESTSUITE_ENABLE_SITECONFIG_CHANGECONTEXTOFMODULEEVAL)]} {
     }
 }
 
+# specific tests to improve getLoadedPrereqPath coverage
+if {[info exists env(TESTSUITE_ENABLE_SITECONFIG_GETLOADEDPREREQPATH)]} {
+    set ::g_loadedModulePrereqPath(foo) {bar mp}
+    report [string length [getLoadedPrereqPath foo qux]]
+}
 
 
 }

testsuite/modules.00-init/120-siteconfig.exp

@@ -727,6 +727,13 @@ lappend ans $vers_reportre
 testouterr_cmd_re sh -V OK [join $ans \n]
 unsetenv_var TESTSUITE_ENABLE_SITECONFIG_CHANGECONTEXTOFMODULEEVAL
 
+setenv_var TESTSUITE_ENABLE_SITECONFIG_GETLOADEDPREREQPATH 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_GETLOADEDPREREQPATH
+
 
 } elseif {$verbose} {
     send_user "\tSkip tests relying on an excepted siteconfig file installed\n"