diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2007-06-21 17:45:39 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2007-06-21 17:45:39 (GMT) |
| commit | 1cf3fb4fff5a0437a76e658e7ed16ef5928cc974 (patch) | |
| tree | bbe8f01fbeac79727c814740dfea18c88e61f6a9 /tests | |
| parent | fcd900918cdac647cc943dfa32196fda722d489d (diff) | |
| download | tcl-1cf3fb4fff5a0437a76e658e7ed16ef5928cc974.zip tcl-1cf3fb4fff5a0437a76e658e7ed16ef5928cc974.tar.gz tcl-1cf3fb4fff5a0437a76e658e7ed16ef5928cc974.tar.bz2 | |
* generic/tclBasic.c (TEOvI): Made sure that leave
* generic/tclExecute.c (INST_INVOKE): traces that were created
* tests/trace.test (trace-36.2): during execution of an
originally untraced command do not fire [Bug 1740962], partial
fix.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/trace.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/trace.test b/tests/trace.test index 212968a..47de94f 100644 --- a/tests/trace.test +++ b/tests/trace.test @@ -11,7 +11,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: trace.test,v 1.54 2007/06/15 19:58:13 msofer Exp $ +# RCS: @(#) $Id: trace.test,v 1.55 2007/06/21 17:45:40 msofer Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -2494,7 +2494,7 @@ set base { set ::tracevar } -result {$r} } -runbase {- -* - -} $base +runbase {- - - -} $base set base { test trace-37.$n {dynamic trace addition: $t} -setup { |