080-help.exp (modules-5.1.1.tar.bz2) | : | 080-help.exp (modules-5.2.0.tar.bz2) | ||
---|---|---|---|---|
skipping to change at line 73 | skipping to change at line 73 | |||
DEBUG \\\[#1:help:$module\\\] execute-modulefile: puts stderr Help_err | DEBUG \\\[#1:help:$module\\\] execute-modulefile: puts stderr Help_err | |||
.*Help_err.* | .*Help_err.* | |||
(DEBUG .*)+ | (DEBUG .*)+ | |||
$modlin | $modlin | |||
(DEBUG .*)+" | (DEBUG .*)+" | |||
set err_debug2_help "((DEBUG|Evaluate modulerc:|Evaluate modulefile:|Get modules :) .*)+ | set err_debug2_help "((DEBUG|Evaluate modulerc:|Evaluate modulefile:|Get modules :) .*)+ | |||
$modlin | $modlin | |||
.*Module Specific Help for $modpathre/$module: | .*Module Specific Help for $modpathre/$module: | |||
((DEBUG|Evaluate modulerc:|Evaluate modulefile:|Get modules:) .*)+ | ((DEBUG|Evaluate modulerc:|Evaluate modulefile:|Get modules:) .*)+ | |||
DEBUG \\\[#1:help:$module\\\] execute-modulefile: putsModfileCmd __modfile_help_ 1 stderr Help_out | DEBUG \\\[#1:help:$module\\\] execute-modulefile: putsModfileCmd __modfile_help_ 0_1 stderr Help_out | |||
.*Help_out.* | .*Help_out.* | |||
DEBUG \\\[#1:help:$module\\\] execute-modulefile: putsModfileCmd __modfile_help_ 1 stderr Help_err | DEBUG \\\[#1:help:$module\\\] execute-modulefile: putsModfileCmd __modfile_help_ 0_1 stderr Help_err | |||
.*Help_err.* | .*Help_err.* | |||
(DEBUG .*)+ | (DEBUG .*)+ | |||
$modlin | $modlin | |||
(DEBUG .*)+" | (DEBUG .*)+" | |||
set module_2 "bad" | set module_2 "bad" | |||
set out_interr "[escre [msg_moderr "$msg_invcmdname \"bad-command\"" bad-command $modpath/$module_2/.modulerc 28 { }]] | set out_interr "[escre [msg_moderr "$msg_invcmdname \"bad-command\"" bad-command $modpath/$module_2/.modulerc 28 { }]] | |||
$modlin | $modlin | |||
Module Specific Help for $modpathre/$module_2/before: | Module Specific Help for $modpathre/$module_2/before: | |||
skipping to change at line 134 | skipping to change at line 134 | |||
testouterr_cmd_re "sh" "help $modulefile" "OK" "$err_help" | testouterr_cmd_re "sh" "help $modulefile" "OK" "$err_help" | |||
testouterr_cmd_re "sh" "help $modulefile_reld" "OK" "$err_help" | testouterr_cmd_re "sh" "help $modulefile_reld" "OK" "$err_help" | |||
testouterr_cmd_re "sh" "help $modulefile_reldd" "OK" "$err_help" | testouterr_cmd_re "sh" "help $modulefile_reldd" "OK" "$err_help" | |||
if {$plus_in_modpath && $install_advversspec eq {y}} { | if {$plus_in_modpath && $install_advversspec eq {y}} { | |||
unsetenv_var MODULES_ADVANCED_VERSION_SPEC | unsetenv_var MODULES_ADVANCED_VERSION_SPEC | |||
} | } | |||
# test debug mode | # test debug mode | |||
testouterr_cmd_re "sh" "-D help $module" "OK" "$err_debug_help" | testouterr_cmd_re "sh" "-D help $module" "OK" "$err_debug_help" | |||
# test multiple debug argument: sets debug2 mode which change result a bit | # test multiple debug argument: sets debug2 mode which change result a bit | |||
setenv_var MODULES_AUTO_HANDLING 0 | ||||
testouterr_cmd_re "sh" "--debug help $module -D" "OK" "$err_debug2_help" | testouterr_cmd_re "sh" "--debug help $module -D" "OK" "$err_debug2_help" | |||
unsetenv_var MODULES_AUTO_HANDLING | ||||
# test stdout output: MUST be empty | # test stdout output: MUST be empty | |||
test_cmd "sh" "help $module" "OK" | test_cmd "sh" "help $module" "OK" | |||
# test with erroneous modulefile | # test with erroneous modulefile | |||
testouterr_cmd_re "sh" "help $module_2" "ERR" "$out_interr" | testouterr_cmd_re "sh" "help $module_2" "ERR" "$out_interr" | |||
# test with erroneous ModulesHelp proc in modulefile | # test with erroneous ModulesHelp proc in modulefile | |||
testouterr_cmd_re "sh" "help $module_3" "ERR" "$out_interr_3" | testouterr_cmd_re "sh" "help $module_3" "ERR" "$out_interr_3" | |||
# test with module passed as full path | # test with module passed as full path | |||
End of changes. 4 change blocks. | ||||
2 lines changed or deleted | 4 lines changed or added |