diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-07-20 08:24:16 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-07-20 08:24:16 (GMT) |
commit | bbe2ea1d0e29301b36d42a167abfe8f11d6a60b2 (patch) | |
tree | d3330833ffb9188ed9fb708d7585a4d882ddd358 /tests/init.test | |
parent | 4bca76be3bbc5ddc9b2e49ed021b0f84fa09812b (diff) | |
parent | a15ea81906fdac4ed3868e9866d07a8ca4c2354c (diff) | |
download | tcl-bbe2ea1d0e29301b36d42a167abfe8f11d6a60b2.zip tcl-bbe2ea1d0e29301b36d42a167abfe8f11d6a60b2.tar.gz tcl-bbe2ea1d0e29301b36d42a167abfe8f11d6a60b2.tar.bz2 |
Merge 8.5.
Mark testcases io-50.* nonPortable: they fail too often in travis builds.
Diffstat (limited to 'tests/init.test')
-rw-r--r-- | tests/init.test | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/init.test b/tests/init.test index 1d838ef..e8d484b 100644 --- a/tests/init.test +++ b/tests/init.test @@ -19,16 +19,16 @@ if {"::tcltest" ni [namespace children]} { catch {namespace delete {*}[namespace children :: test_ns_*]} test init-0.1 {no error on initialization phase (init.tcl)} -setup { - interp create slave + interp create child } -body { - slave eval { + child eval { list [set v [info exists ::errorInfo]] \ [if {$v} {set ::errorInfo}] \ [set v [info exists ::errorCode]] \ [if {$v} {set ::errorCode}] } } -cleanup { - interp delete slave + interp delete child } -result {0 {} 0 {}} # Six cases - white box testing @@ -59,11 +59,11 @@ test init-1.8 {auto_qualify - multiple colons 2} { auto_qualify :::foo ::bar } foo -# We use a sub-interp and auto_reset and double the tests because there is 2 +# We use a child interp and auto_reset and double the tests because there is 2 # places where auto_loading occur (before loading the indexes files and after) set testInterp [interp create] -tcltest::loadIntoSlaveInterpreter $testInterp {*}$argv +tcltest::loadIntoChildInterpreter $testInterp {*}$argv interp eval $testInterp { namespace import -force ::tcltest::* customMatch pairwise {apply {{mode pair} { |