440-module-tag.exp (modules-5.1.1.tar.bz2) | : | 440-module-tag.exp (modules-5.2.0.tar.bz2) | ||
---|---|---|---|---|
skipping to change at line 312 | skipping to change at line 312 | |||
tag/6.0 <foo> | tag/6.0 <foo> | |||
tag/7.0" | tag/7.0" | |||
testouterr_cmd sh {avail -t tag@5:7} OK $tserr | testouterr_cmd sh {avail -t tag@5:7} OK $tserr | |||
set ans [list] | set ans [list] | |||
lappend ans [list set _LMFILES_ $mp/tag/5.0] | lappend ans [list set _LMFILES_ $mp/tag/5.0] | |||
lappend ans [list set LOADEDMODULES tag/5.0] | lappend ans [list set LOADEDMODULES tag/5.0] | |||
lappend ans [list set __MODULES_LMTAG tag/5.0&foo] | lappend ans [list set __MODULES_LMTAG tag/5.0&foo] | |||
testouterr_cmd sh {load tag/5.0} $ans {} | testouterr_cmd sh {load tag/5.0} $ans {} | |||
unsetenv_var TESTSUITE_MODULE_TAG_SET6 | unsetenv_var TESTSUITE_MODULE_TAG_SET6 | |||
if {$group_name_fetch_failed} { | ||||
send_user "\tSkip user group tests, as group name fetch failed\n" | ||||
} else { | ||||
setenv_var TESTSUITE_MODULE_TAG_SET7 1 | setenv_var TESTSUITE_MODULE_TAG_SET7 1 | |||
set tserr "$mp: | set tserr "$mp: | |||
tag/5.0 | tag/5.0 | |||
tag/6.0 | tag/6.0 | |||
tag/7.0" | tag/7.0" | |||
testouterr_cmd sh {avail -t tag@5:7} OK $tserr | testouterr_cmd sh {avail -t tag@5:7} OK $tserr | |||
set ans [list] | set ans [list] | |||
lappend ans [list set _LMFILES_ $mp/tag/5.0] | lappend ans [list set _LMFILES_ $mp/tag/5.0] | |||
lappend ans [list set LOADEDMODULES tag/5.0] | lappend ans [list set LOADEDMODULES tag/5.0] | |||
testouterr_cmd sh {load tag/5.0} $ans {} | testouterr_cmd sh {load tag/5.0} $ans {} | |||
skipping to change at line 337 | skipping to change at line 341 | |||
tag/6.0 <foo> | tag/6.0 <foo> | |||
tag/7.0" | tag/7.0" | |||
testouterr_cmd sh {avail -t tag@5:7} OK $tserr | testouterr_cmd sh {avail -t tag@5:7} OK $tserr | |||
set ans [list] | set ans [list] | |||
lappend ans [list set _LMFILES_ $mp/tag/5.0] | lappend ans [list set _LMFILES_ $mp/tag/5.0] | |||
lappend ans [list set LOADEDMODULES tag/5.0] | lappend ans [list set LOADEDMODULES tag/5.0] | |||
lappend ans [list set __MODULES_LMTAG tag/5.0&foo] | lappend ans [list set __MODULES_LMTAG tag/5.0&foo] | |||
testouterr_cmd sh {load tag/5.0} $ans {} | testouterr_cmd sh {load tag/5.0} $ans {} | |||
unsetenv_var TESTSUITE_MODULE_TAG_SET8 | unsetenv_var TESTSUITE_MODULE_TAG_SET8 | |||
} | ||||
unsetenv_var MODULES_ADVANCED_VERSION_SPEC | unsetenv_var MODULES_ADVANCED_VERSION_SPEC | |||
# use module-tag in modulefile | # use module-tag in modulefile | |||
set tserr "$mp: | set tserr "$mp: | |||
tag/7.0" | tag/7.0" | |||
testouterr_cmd sh {avail -t tag/7.0} OK $tserr | testouterr_cmd sh {avail -t tag/7.0} OK $tserr | |||
set ans [list] | set ans [list] | |||
lappend ans [list set _LMFILES_ $mp/tag/7.0] | lappend ans [list set _LMFILES_ $mp/tag/7.0] | |||
lappend ans [list set LOADEDMODULES tag/7.0] | lappend ans [list set LOADEDMODULES tag/7.0] | |||
lappend ans [list set __MODULES_LMTAG tag/7.0&foo] | lappend ans [list set __MODULES_LMTAG tag/7.0&foo] | |||
End of changes. 2 change blocks. | ||||
0 lines changed or deleted | 6 lines changed or added |