083-info-mode.exp (modules-5.1.1.tar.bz2) | : | 083-info-mode.exp (modules-5.2.0.tar.bz2) | ||
---|---|---|---|---|
skipping to change at line 87 | skipping to change at line 87 | |||
# instead of 'remove' when 'unload' action is called | # instead of 'remove' when 'unload' action is called | |||
test_cmd "sh" "unload $module" $ansrm | test_cmd "sh" "unload $module" $ansrm | |||
# test switching | # test switching | |||
# different behavior than C-version: on Tcl-version mode is set to 'unload' | # different behavior than C-version: on Tcl-version mode is set to 'unload' | |||
# then 'load' instead of 'switch1', 'switch2' and 'switch3' when 'switch' | # then 'load' instead of 'switch1', 'switch2' and 'switch3' when 'switch' | |||
# action is called | # action is called | |||
testouterr_cmd "sh" "switch $module $module2" $anssw "" | testouterr_cmd "sh" "switch $module $module2" $anssw "" | |||
# test refresh | # test refresh | |||
setenv_var __MODULES_LMREFRESH $module | ||||
set ansout [list refresh [shell_ok sh 1]] | set ansout [list refresh [shell_ok sh 1]] | |||
testouterr_cmd sh {refresh} [join $ansout \n] {} | testouterr_cmd sh {refresh} [join $ansout \n] {} | |||
unsetenv_var __MODULES_LMREFRESH | ||||
# Clean up the just changed environment | # Clean up the just changed environment | |||
unsetenv_loaded_module | unsetenv_loaded_module | |||
# test help | # test help | |||
set ansout [list "help" [shell_ok sh 1]] | set ansout [list "help" [shell_ok sh 1]] | |||
testouterr_cmd_re "sh" "help $module" [join $ansout "\n"] "$modlin\n$lin_help\n\ nhelp\n$modlin" | testouterr_cmd_re "sh" "help $module" [join $ansout "\n"] "$modlin\n$lin_help\n\ nhelp\n$modlin" | |||
# test test | # test test | |||
set ansout [list "test" [shell_ok sh 1]] | set ansout [list "test" [shell_ok sh 1]] | |||
End of changes. 2 change blocks. | ||||
0 lines changed or deleted | 2 lines changed or added |