diff options
| author | dgp <dgp@users.sourceforge.net> | 2019-09-18 15:47:53 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2019-09-18 15:47:53 (GMT) |
| commit | 44967eda482710eefa848947ae30c2546d956821 (patch) | |
| tree | 5c57ea5899afd85f2d8a3d3612f5a14577319315 /tests/execute.test | |
| parent | 24170cbbe563d3e906a72770d5cd477d50b7e1a8 (diff) | |
| parent | 52e96157d28e998adf71cf30b27b3e40ebeaa715 (diff) | |
| download | tcl-44967eda482710eefa848947ae30c2546d956821.zip tcl-44967eda482710eefa848947ae30c2546d956821.tar.gz tcl-44967eda482710eefa848947ae30c2546d956821.tar.bz2 | |
merge trunk
Diffstat (limited to 'tests/execute.test')
| -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 170661d..8da0ed2 100644 --- a/tests/execute.test +++ b/tests/execute.test @@ -1050,7 +1050,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]} { @@ -1085,6 +1085,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 |