287-info-usergroups.exp (modules-5.1.1.tar.bz2) | : | 287-info-usergroups.exp (modules-5.2.0.tar.bz2) | ||
---|---|---|---|---|
skipping to change at line 32 | skipping to change at line 32 | |||
# ensure auto symbolic versions are not set for these tests | # ensure auto symbolic versions are not set for these tests | |||
setenv_var MODULES_ADVANCED_VERSION_SPEC 0 | setenv_var MODULES_ADVANCED_VERSION_SPEC 0 | |||
set mp $modpath.2 | set mp $modpath.2 | |||
set mpre [regsub -all "\(\[.+?\]\)" $mp {\\\1}] | set mpre [regsub -all "\(\[.+?\]\)" $mp {\\\1}] | |||
# setup specific environment | # setup specific environment | |||
setenv_path_var MODULEPATH $mp | setenv_path_var MODULEPATH $mp | |||
if {$group_name_fetch_failed} { | ||||
send_user "\tSkip user group tests, as group name fetch failed\n" | ||||
} else { | ||||
# modulefile usage | # modulefile usage | |||
set ans [list] | set ans [list] | |||
lappend ans [list set TS1 $usergroups] | lappend ans [list set TS1 $usergroups] | |||
lappend ans [list set TS2 1] | lappend ans [list set TS2 1] | |||
lappend ans [list set _LMFILES_ $mp/info/usergroups] | lappend ans [list set _LMFILES_ $mp/info/usergroups] | |||
lappend ans [list set LOADEDMODULES info/usergroups] | lappend ans [list set LOADEDMODULES info/usergroups] | |||
lappend ans [list set TS3 0] | lappend ans [list set TS3 0] | |||
testouterr_cmd sh {load info/usergroups} $ans {} | testouterr_cmd sh {load info/usergroups} $ans {} | |||
skip_if_quick_mode | skip_if_quick_mode | |||
skipping to change at line 130 | skipping to change at line 134 | |||
} | } | |||
default { | default { | |||
set tserr [escre [msg_moderr {module-info usergroups not supported on Window s platform} {module-info usergroups} $mp/info/.modulerc 7 { }]\n$err_path'info/ $userfgroup'] | set tserr [escre [msg_moderr {module-info usergroups not supported on Window s platform} {module-info usergroups} $mp/info/.modulerc 7 { }]\n$err_path'info/ $userfgroup'] | |||
}} | }} | |||
testouterr_cmd_re sh "load info/$userfgroup" ERR $tserr | testouterr_cmd_re sh "load info/$userfgroup" ERR $tserr | |||
unsetenv_var TESTSUITE_INFO_GROUP_IN_RC | unsetenv_var TESTSUITE_INFO_GROUP_IN_RC | |||
unsetenv_var TESTSUITE_ENABLE_SITECONFIG_WINDOWS_PLATFORM | unsetenv_var TESTSUITE_ENABLE_SITECONFIG_WINDOWS_PLATFORM | |||
} | } | |||
} | ||||
# | # | |||
# Cleanup | # Cleanup | |||
# | # | |||
reset_test_env | reset_test_env | |||
End of changes. 2 change blocks. | ||||
0 lines changed or deleted | 6 lines changed or added |