210-clear.exp (modules-5.1.1.tar.bz2) | : | 210-clear.exp (modules-5.2.0.tar.bz2) | ||
---|---|---|---|---|
skipping to change at line 29 | skipping to change at line 29 | |||
# }C% | # }C% | |||
# | # | |||
############################################################################## | ############################################################################## | |||
set mp "$modpath.2" | set mp "$modpath.2" | |||
# setup specific environment | # setup specific environment | |||
setenv_path_var MODULEPATH $mp | setenv_path_var MODULEPATH $mp | |||
# no module loaded | # no module loaded | |||
# no Modules-specific env variables, nothing cleared | ||||
testouterr_cmd sh {clear y} OK {} | ||||
# basic module loaded | ||||
setenv_loaded_module [list clear/3] [list $mp/clear/3] | ||||
set ans [list] | set ans [list] | |||
lappend ans [list unset __MODULES_LMVARIANT] | ||||
lappend ans [list unset __MODULES_LMCONFLICT] | ||||
lappend ans [list unset __MODULES_LMALTNAME] | ||||
lappend ans [list unset _LMFILES_] | lappend ans [list unset _LMFILES_] | |||
lappend ans [list unset __MODULES_LMPREREQ] | ||||
lappend ans [list unset LOADEDMODULES] | lappend ans [list unset LOADEDMODULES] | |||
lappend ans [list unset __MODULES_LMEXTRATAG] | testouterr_cmd sh {clear y} $ans {} | |||
lappend ans [list unset __MODULES_LMTAG] | ||||
lappend ans [list unset __MODULES_LMSOURCESH] | skip_if_quick_mode | |||
# test all valid confirmation strings | # test all valid confirmation strings | |||
foreach str [list y Y yes YES Yes yESfoo] { | foreach str [list y Y yes YES Yes yESfoo] { | |||
testouterr_cmd sh "clear $str" $ans {} | testouterr_cmd sh "clear $str" $ans {} | |||
} | } | |||
skip_if_quick_mode | ||||
# test valid confirmation passed via stdin | # test valid confirmation passed via stdin | |||
foreach str [list y Y yes YES Yes yESfoo] { | foreach str [list y Y yes YES Yes yESfoo] { | |||
testinouterr_cmd sh {clear} $str $ans {} | testinouterr_cmd sh {clear} $str $ans {} | |||
} | } | |||
# basic module loaded | ||||
setenv_loaded_module [list clear/3] [list $mp/clear/3] | ||||
set ans [list] | ||||
lappend ans [list unset __MODULES_LMVARIANT] | ||||
lappend ans [list unset __MODULES_LMCONFLICT] | ||||
lappend ans [list unset __MODULES_LMALTNAME] | ||||
lappend ans [list unset _LMFILES_] | ||||
lappend ans [list unset __MODULES_LMPREREQ] | ||||
lappend ans [list unset LOADEDMODULES] | ||||
lappend ans [list unset __MODULES_LMEXTRATAG] | ||||
lappend ans [list unset __MODULES_LMTAG] | ||||
lappend ans [list unset __MODULES_LMSOURCESH] | ||||
testouterr_cmd sh {clear y} $ans {} | ||||
# advanced module-set loaded | # advanced module-set loaded | |||
setenv_loaded_module [list clear/1 clear/3] [list $mp/clear/1 $mp/clear/3] [list clear/1] | setenv_loaded_module [list clear/1 clear/2] [list $mp/clear/1 $mp/clear/2] [list clear/1] | |||
setenv_var __MODULES_LMALTNAME clear/1&clear/foo | setenv_var __MODULES_LMALTNAME clear/1&clear/foo | |||
setenv_var __MODULES_LMPREREQ clear/2&clear/1 | setenv_var __MODULES_LMPREREQ clear/2&clear/1 | |||
setenv_var __MODULES_LMCONFLICT clear/2&clear/3 | setenv_var __MODULES_LMCONFLICT clear/2&clear/3 | |||
setenv_var __MODULES_LMSOURCESH "clear/2&bash testsuite/example/sh-to-mod.sh arg 1:arg2|prepend-path FOOPATH /path/to/dir1" | setenv_var __MODULES_LMSOURCESH "clear/2&bash testsuite/example/sh-to-mod.sh arg 1:arg2|prepend-path FOOPATH /path/to/dir1" | |||
setenv_var __MODULES_LMEXTRATAG clear/2&foo | setenv_var __MODULES_LMEXTRATAG clear/2&foo | |||
setenv_var __MODULES_LMTAG clear/2&nearly-forbidden&foo | setenv_var __MODULES_LMTAG clear/1&auto-loaded:clear/2&nearly-forbidden&foo | |||
setenv_var __MODULES_LMVARIANT clear/2&foo|val1|0|0 | setenv_var __MODULES_LMVARIANT clear/2&foo|val1|0|0 | |||
setenv_var __MODULES_LMINIT "module use --append $mp:module load --tag=auto-load | ||||
ed clear/1" | ||||
setenv_var __MODULES_LMREFRESH clear/1 | ||||
setenv_path_var FOO bar | setenv_path_var FOO bar | |||
set ans [list] | set ans [list] | |||
lappend ans [list unset __MODULES_LMVARIANT] | lappend ans [list unset __MODULES_LMVARIANT] | |||
lappend ans [list unset __MODULES_LMCONFLICT] | lappend ans [list unset __MODULES_LMCONFLICT] | |||
lappend ans [list unset __MODULES_LMALTNAME] | lappend ans [list unset __MODULES_LMALTNAME] | |||
lappend ans [list unset _LMFILES_] | ||||
lappend ans [list unset __MODULES_LMPREREQ] | lappend ans [list unset __MODULES_LMPREREQ] | |||
lappend ans [list unset __MODULES_LMREFRESH] | ||||
lappend ans [list unset _LMFILES_] | ||||
lappend ans [list unset LOADEDMODULES] | lappend ans [list unset LOADEDMODULES] | |||
lappend ans [list unset __MODULES_LMEXTRATAG] | lappend ans [list unset __MODULES_LMEXTRATAG] | |||
lappend ans [list unset __MODULES_LMTAG] | ||||
lappend ans [list unset __MODULES_LMSOURCESH] | lappend ans [list unset __MODULES_LMSOURCESH] | |||
lappend ans [list unset __MODULES_LMINIT] | ||||
lappend ans [list unset __MODULES_LMTAG] | ||||
testouterr_cmd sh {clear YES} $ans {} | testouterr_cmd sh {clear YES} $ans {} | |||
# test cancellation strings | # test cancellation strings | |||
# no empty arg test not to make testsuite execution wait on an input | # no empty arg test not to make testsuite execution wait on an input | |||
foreach str [list no NO n N {} foo] { | foreach str [list no NO n N {} foo] { | |||
testouterr_cmd sh "clear $str" {} "$info_msgs: Modules runtime information w ere not cleared" | testouterr_cmd sh "clear $str" {} "$info_msgs: Modules runtime information w ere not cleared" | |||
} | } | |||
# test cancelled confirmation passed via stdin | # test cancelled confirmation passed via stdin | |||
foreach str [list no NO n N {} foo] { | foreach str [list no NO n N {} foo] { | |||
End of changes. 13 change blocks. | ||||
27 lines changed or deleted | 17 lines changed or added |