ts: test module-info tags on full path mod in 50/441

This commit is contained in:
Xavier Delaruelle
2023-05-29 12:01:36 +02:00
parent 5fec9222a8
commit 358aaba21f
3 changed files with 24 additions and 0 deletions

View File

@@ -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
}
}
}

View File

@@ -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]
}
}
}

View File

@@ -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 <bar:foo>}]
testouterr_cmd sh {load -v tag/1.0} $ans $tserr
#
# Cleanup
#