diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-09-09 12:36:53 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-09-09 12:36:53 (GMT) |
| commit | db811061d46dcd891e3434f509e28c578b603f17 (patch) | |
| tree | f3750a34d8a69cf76d5ef736777ae38310016f94 /tests | |
| parent | 63a316c43b5fcd3a7970bdafd4748e0c31235ac1 (diff) | |
| download | tcl-db811061d46dcd891e3434f509e28c578b603f17.zip tcl-db811061d46dcd891e3434f509e28c578b603f17.tar.gz tcl-db811061d46dcd891e3434f509e28c578b603f17.tar.bz2 | |
Revert b98ee56376. The "bug" fixed was documented behavior.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/trace.test | 23 |
1 files changed, 1 insertions, 22 deletions
diff --git a/tests/trace.test b/tests/trace.test index 3b69d38..1099f48 100644 --- a/tests/trace.test +++ b/tests/trace.test @@ -1227,7 +1227,7 @@ test trace-17.3 {traced variables must survive procedure exits} { test trace-18.1 {unset traces on procedure returns} { proc p1 {x y} {set a 44; p2 14} - proc p2 {z} {trace add variable z unset {traceCheck {lsort [uplevel 2 {info vars}]}}} + proc p2 {z} {trace add variable z unset {traceCheck {lsort [uplevel 1 {info vars}]}}} set info {} p1 foo bar set info @@ -1263,27 +1263,6 @@ test trace-18.4 {namespace delete / trace vdelete combo, Bug \#1338280} { rename doTrace {} set info } 1110 -test trace-18.5 {Bug 7f02ff1efa} -setup { - proc constant {name value} { - upvar 1 $name c - set c $value - trace variable c wu [list reset $value] - } - proc reset {v a i o} { - uplevel 1 [list constant $a $v] - } - proc demo {} { - constant pi 3.14 - } -} -body { - unset -nocomplain pi - demo - info exists pi -} -cleanup { - rename demo {} - rename reset {} - rename constant {} -} -result 0 # Delete arrays when done, so they can be re-used as scalars # elsewhere. |