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 5 Packages Projects Releases Wiki Activity

ts: test unknown issue throw in 00/120

Browse Source
This commit is contained in:
Xavier Delaruelle
2020-02-26 21:48:14 +01:00
parent 238857eea5
commit a39755a210
2 changed files with 34 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
testsuite/example/siteconfig.tcl-1
View File

@@ -16,6 +16,18 @@ if {[info exists env(TESTSUITE_ENABLE_SITECONFIG_BROKEN)]} {
unk_foo
}
# redefine existing modulecmd.tcl procedure to make it broken
if {[info exists env(TESTSUITE_ENABLE_SITECONFIG_BROKEN2)]} {
proc pushModuleFile {str} {
unk_foo
}
}
# unset existing modulecmd.tcl procedure
if {[info exists env(TESTSUITE_ENABLE_SITECONFIG_BROKEN3)]} {
rename ::pushModuleFile {}
}
# generate error with parseAccessIssue generic msg if following environment variable is set
if {[info exists env(TESTSUITE_ENABLE_SITECONFIG_ACCESSERR)]} {
set errorCode "Custom error code"

22
testsuite/modules.00-init/120-siteconfig.exp
View File

@@ -124,6 +124,28 @@ if { $verbose > 0 } {
unset env(TESTSUITE_ENABLE_SITECONFIG_BROKEN)
# test siteconfig that breaks modulecmd.tcl code
setenv_var TESTSUITE_ENABLE_SITECONFIG_BROKEN2 1
set ans [list]
lappend ans "$error_msgs: invalid command name \"unk_foo\""
lappend ans { while executing}
lappend ans { "unk_foo"}
lappend ans { (procedure "pushModuleFile" line 2)}
lappend ans { invoked from within}
lappend ans { "pushModuleFile {}"}
lappend ans { Please report this issue at https://github.com/cea-hpc/modules/issues}
testouterr_cmd sh {foo} ERR [join $ans \n]
unsetenv_var TESTSUITE_ENABLE_SITECONFIG_BROKEN2
setenv_var TESTSUITE_ENABLE_SITECONFIG_BROKEN3 1
set ans [list]
lappend ans "$error_msgs: invalid command name \"pushModuleFile\""
lappend ans { while executing}
lappend ans { "pushModuleFile {}"}
lappend ans { Please report this issue at https://github.com/cea-hpc/modules/issues}
testouterr_cmd sh {foo} ERR [join $ans \n]
unsetenv_var TESTSUITE_ENABLE_SITECONFIG_BROKEN3
# test siteconfig file raising error
# test parseAccessIssue with custom error code by the way
if { $verbose > 0 } {