envmodules/modules
1
0
Fork 0
mirror of https://github.com/envmodules/modules.git synced 2026-06-14 00:42:43 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

Specific err on cmdModuleUse when empty dir name

Browse Source
This commit is contained in:
Xavier Delaruelle
2018-01-07 22:18:34 +01:00
parent 7c0e21bc95
commit e2bb42a4c7
3 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
modulecmd.tcl.in
View File

@@ -5828,6 +5828,9 @@ proc cmdModuleUse {args} {
{-p} - {--prepend} - {-prepend} {
set pos "prepend"
}
{} {
reportError "Directory name empty"
}
default {
# tranform given path in an absolute path to avoid
# dependency to the current work directory.

2
testsuite/modules.10-use/030-use.exp
View File

@@ -30,7 +30,7 @@ regsub "^.*/$tsdirname" $path "$tsdirname" relpath
set badpath "$modpath.bad"
set mod_path "$path:$modpath"
set bad_use "$error_msgs: Directory '$badpath' not found"
set empty_use "$error_msgs: Directory '' not found"
set empty_use "$error_msgs: Directory name empty"
set loaded_path "$modpath"
regsub "^.*/$tsdirname" $loaded_path "$tsdirname" loaded_relpath
regsub "$tsdirname" $loaded_relpath "$tsdirname/../$tsdirname/./" loaded_relpath_wdot

2
testsuite/modules.50-cmds/015-use.exp
View File

@@ -136,7 +136,7 @@ lappend ans [list setpath LOADEDMODULES $module8]
lappend ans [list setpath _LMFILES_ $modulefile8]
lappend ans [list ERR]
set err_msg "$error_msgs: Directory '' not found"
set err_msg "$error_msgs: Directory name empty"
testouterr_cmd_re "ALL" "load $module8" $ans "$err_msg"