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

testsuite: check args handling in 070-stderrtty

Browse Source 
Set a directory with name starting by '$' to check if shell arguments
are correctly escaped.

Complements #154.
This commit is contained in:
Xavier Delaruelle
2018-02-22 06:52:43 +01:00
parent a14062fd98
commit 9a10db163d
1 changed files with 31 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
testsuite/install.00-init/070-stderrtty.exp
View File

@@ -89,12 +89,43 @@ foreach shell $othlang_list {
testall_cmd "$shell" "use $contrib_modpath:load null:info-loaded null" $anstxt "" 0
}
# set a directory with name starting by '$' to check if shell arguments are correctly escaped
set disruptive_dir "[pwd]/\$RE.BIN"
if {$verbose > 0} {
send_user "\tCreate disruptive directory $disruptive_dir\n"
}
file mkdir $disruptive_dir
foreach shell $shell_list {
switch -- $shell {
{csh} - {tcsh} {
testall_cmd_re "$shell" "module --version" "^\$" "^Modules Release \\S+ (\\S+)\$" 0
}
default {
testall_cmd_re "$shell" "module --version" "^Modules Release \\S+ (\\S+)\$" "^\$" 0
}
}
}
foreach shell $othlang_list {
testall_cmd_re "$shell" "--version" "^\$" "^Modules Release \\S+ (\\S+)\$" 0
}
if {$verbose > 0} {
send_user "\tDelete disruptive directory $disruptive_dir\n"
}
file delete $disruptive_dir
#
# Clean up variables used in this test case
#
unset bad_cmd
unset anstxt
unset disruptive_dir
} elseif {$verbose > 0} {
send_user "\tSkip test as STDERR is not attached to a TTY\n"