diff --git a/testsuite/example/siteconfig.tcl-1 b/testsuite/example/siteconfig.tcl-1 index 466940833..77e41698a 100644 --- a/testsuite/example/siteconfig.tcl-1 +++ b/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]] +} } diff --git a/testsuite/modules.00-init/120-siteconfig.exp b/testsuite/modules.00-init/120-siteconfig.exp index 1b2211f57..6c5213514 100644 --- a/testsuite/modules.00-init/120-siteconfig.exp +++ b/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"