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

ts: test tcl ext lib procedures against erroneous calls

Browse Source
This commit is contained in:
Xavier Delaruelle
2019-08-08 09:10:17 +02:00
parent e6ee949382
commit f9d090dc4f
2 changed files with 30 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -121,4 +121,15 @@ if {[info exists env(TESTSUITE_ENABLE_SITECONFIG_TCLEXTLIBLOAD83)]} {
exec ./tclsh83 << "load $g_tclextlib Envmodules"
}
# test tcl ext lib procedures against erroneous calls
if {[info exists env(TESTSUITE_ENABLE_SITECONFIG_TCLEXTLIBBADCALL)]} {
set badcalllist [list readFile {readFile foo bar} getFilesInDirectory\
{getFilesInDirectory foo bar 1} {getFilesInDirectory foo 1 bar}]
foreach badcall $badcalllist {
if {[catch {[eval $badcall]} errMsg]} {
reportError $errMsg
}
}
}
}

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

@@ -270,13 +270,30 @@ unsetenv_var TESTSUITE_ENABLE_SITECONFIG_NOEXTRASITECONFIG
# test tcl ext lib load on an incompatible interp if available
if {[file executable ./tclsh83]} {
if {[info exists tclextlib_file] && [file executable ./tclsh83]} {
setenv_var TESTSUITE_ENABLE_SITECONFIG_TCLEXTLIBLOAD83 1
testouterr_cmd sh -V ERR "$error_msgs: Site configuration source failed\nversion conflict for package \"Tcl\": have 8.3, need 8.4"
# restore environment
unsetenv_var TESTSUITE_ENABLE_SITECONFIG_TCLEXTLIBLOAD83
} elseif {$verbose > 0} {
send_user "\tSkip tcl ext lib load tests with tclsh83 as it is not available\n"
send_user "\tSkip tcl ext lib load tests with tclsh83 as either ext lib or tclsh83 is not available\n"
}
# test tcl ext lib procedures against erroneous calls
if {[info exists tclextlib_file]} {
setenv_var TESTSUITE_ENABLE_SITECONFIG_TCLEXTLIBBADCALL 1
set ans [list]
lappend ans "$error_msgs: wrong # args: should be \"readFile filename \\?firstline\\?\""
lappend ans "$error_msgs: expected boolean value but got \"bar\""
lappend ans "$error_msgs: wrong # args: should be \"getFilesInDirectory dir fetch_hidden fetch_dotversion\""
lappend ans "$error_msgs: expected boolean value but got \"bar\""
lappend ans "$error_msgs: expected boolean value but got \"bar\""
lappend ans "Modules Release \[0-9a-zA-Z\.\+\\-\]+ \\(\[0-9\-\]{10}\\)"
testouterr_cmd_re sh -V OK [join $ans \n]
unsetenv_var TESTSUITE_ENABLE_SITECONFIG_TCLEXTLIBBADCALL
} elseif {$verbose > 0} {
send_user "\tSkip tcl ext lib erroneous procedure calls as ext lib is not available\n"
}