diff options
| author | sebres <sebres@users.sourceforge.net> | 2019-09-16 16:33:30 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2019-09-16 16:33:30 (GMT) |
| commit | 906d03c8cb9426745e6b963a807df235647bb8cd (patch) | |
| tree | f537b5d24b04fb00891d9d235d3ccdd9ff508afd /tests | |
| parent | facb6a3102846454092b0b95707c0e9bbcd01b1b (diff) | |
| download | tcl-906d03c8cb9426745e6b963a807df235647bb8cd.zip tcl-906d03c8cb9426745e6b963a807df235647bb8cd.tar.gz tcl-906d03c8cb9426745e6b963a807df235647bb8cd.tar.bz2 | |
execute.test: fix tests (if test started using -singleproc 1)
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/execute.test | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/execute.test b/tests/execute.test index 72d79fd..468901d 100644 --- a/tests/execute.test +++ b/tests/execute.test @@ -1054,7 +1054,7 @@ test execute-8.7 {Compile epoch bump in global level (bug [fa6bf38d07]), excepti test execute-9.1 {Interp result resetting [Bug 1522803]} { set c 0 catch { - catch {set foo} + catch {error foo} expr {1/$c} } if {[string match *foo* $::errorInfo]} { @@ -1089,6 +1089,7 @@ test execute-10.3 {Bug 3072640} -setup { proc t {args} { incr ::foo } + set ::foo 0 trace add execution ::generate enterstep ::t } -body { coroutine coro generate 5 |