diff --git a/testsuite/modulefiles.4/tag/.modulerc b/testsuite/modulefiles.4/tag/.modulerc index e2c29729..6381938d 100644 --- a/testsuite/modulefiles.4/tag/.modulerc +++ b/testsuite/modulefiles.4/tag/.modulerc @@ -138,5 +138,9 @@ if {[info exists env(TESTSUITE_FPMOD_TAG)]} { hide13 { module-hide --soft --hidden-loaded [file dirname $ModulesCurrentModulefile]/1.0 } + info1 { + module-tag foo [file dirname $ModulesCurrentModulefile]/1.0 + module-tag bar [file dirname $ModulesCurrentModulefile]/1.0 + } } } diff --git a/testsuite/modulefiles.4/tag/1.0 b/testsuite/modulefiles.4/tag/1.0 index e2b306d1..8c7976b4 100644 --- a/testsuite/modulefiles.4/tag/1.0 +++ b/testsuite/modulefiles.4/tag/1.0 @@ -15,5 +15,9 @@ if {[info exists env(TESTSUITE_FPMOD_TAG)]} { hide4 - hide5 { module-whatis [module-info name] } + info1 { + setenv FOO [module-info tags] + setenv BAR [module-info tags bar] + } } } diff --git a/testsuite/modules.50-cmds/441-module-tag-full-path.exp b/testsuite/modules.50-cmds/441-module-tag-full-path.exp index d97452e8..5b09a181 100644 --- a/testsuite/modules.50-cmds/441-module-tag-full-path.exp +++ b/testsuite/modules.50-cmds/441-module-tag-full-path.exp @@ -397,6 +397,22 @@ if {$plus_in_modpath && $install_advversspec eq {y}} { setenv_var MODULERCFILE $ORIG_MODULERCFILE +# +# full path tag set and module-info tags queries +# + +setenv_var TESTSUITE_FPMOD_TAG info1 + +set ans [list] +lappend ans [list set FOO {bar foo}] +lappend ans [list set BAR 1] +lappend ans [list set _LMFILES_ $mp/tag/1.0] +lappend ans [list set LOADEDMODULES tag/1.0] +lappend ans [list set __MODULES_LMTAG tag/1.0&foo&bar] +set tserr [msg_load {tag/1.0 }] +testouterr_cmd sh {load -v tag/1.0} $ans $tserr + + # # Cleanup #