190-emptyarg.exp (modules-5.1.1.tar.bz2) | : | 190-emptyarg.exp (modules-5.2.0.tar.bz2) | ||
---|---|---|---|---|
skipping to change at line 42 | skipping to change at line 42 | |||
set module2 "loc_dv1/1.0" | set module2 "loc_dv1/1.0" | |||
set modulefile2 "$modpath/$module2" | set modulefile2 "$modpath/$module2" | |||
# setup specific environment (with current path as modulepath and a module | # setup specific environment (with current path as modulepath and a module | |||
# loaded with full path name) to check passed empty argument is not mismatched | # loaded with full path name) to check passed empty argument is not mismatched | |||
# with something else due to these conditions | # with something else due to these conditions | |||
setenv_path_var MODULEPATH $modpath [pwd] | setenv_path_var MODULEPATH $modpath [pwd] | |||
setenv_loaded_module $module1 $modulefile1 | setenv_loaded_module $module1 $modulefile1 | |||
# wrong arg number if command does not accept any argument | # wrong arg number if command does not accept any argument | |||
foreach cmd [list purge reload aliases savelist autoinit] { | foreach cmd [list purge reload aliases autoinit] { | |||
testouterr_cmd "sh" "$cmd " "ERR" "$error_msgs: Unexpected number of args fo r '$cmd' command\n$err_typehelp" | testouterr_cmd "sh" "$cmd " "ERR" "$error_msgs: Unexpected number of args fo r '$cmd' command\n$err_typehelp" | |||
} | } | |||
# on most commands, empty arg leads to error | # on most commands, empty arg leads to error | |||
foreach cmd [list "load" "unload" "display" "help" "test"] { | foreach cmd [list "load" "unload" "display" "help" "test"] { | |||
testouterr_cmd "sh" "$cmd " "ERR" $err_emptymodname | testouterr_cmd "sh" "$cmd " "ERR" $err_emptymodname | |||
} | } | |||
foreach cmd [list "save" "restore" "saveshow" "saverm" "is-saved"] { | foreach cmd [list "save" "restore" "saveshow" "saverm" "is-saved"] { | |||
testouterr_cmd "sh" "$cmd " "ERR" $err_emptycollname | testouterr_cmd "sh" "$cmd " "ERR" $err_emptycollname | |||
} | } | |||
skipping to change at line 100 | skipping to change at line 100 | |||
# restore MODULEPATH | # restore MODULEPATH | |||
setenv_path_var MODULEPATH $modpath | setenv_path_var MODULEPATH $modpath | |||
# empty string currently understood like wildcard | # empty string currently understood like wildcard | |||
foreach cmd [list whatis apropos] { | foreach cmd [list whatis apropos] { | |||
# error rendered as some evaluated modules produce error | # error rendered as some evaluated modules produce error | |||
testouterr_cmd_re "sh" "$cmd " "ERR" ".+" | testouterr_cmd_re "sh" "$cmd " "ERR" ".+" | |||
} | } | |||
testouterr_cmd_re "sh" "avail " "" ".+" | testouterr_cmd_re "sh" "avail " "" ".+" | |||
testouterr_cmd_re sh {list } OK .+ | ||||
testouterr_cmd_re sh {savelist } OK [msg_no_named_coll] | ||||
# except for non-wild search like paths sub-command | # except for non-wild search like paths sub-command | |||
testouterr_cmd_re "sh" "paths " "" ".+" | testouterr_cmd_re "sh" "paths " "" ".+" | |||
# | # | |||
# Cleanup | # Cleanup | |||
# | # | |||
reset_test_env | reset_test_env | |||
End of changes. 2 change blocks. | ||||
1 lines changed or deleted | 3 lines changed or added |