diff options
author | mig <mig> | 2012-02-06 16:43:46 (GMT) |
---|---|---|
committer | mig <mig> | 2012-02-06 16:43:46 (GMT) |
commit | ce0bed6e24611fae430cf6eb73c9e7dd9bc27646 (patch) | |
tree | 13aebbdee5531d588f3da83aea837ff321dba2af /tests | |
parent | 38a6237471b9e9b41e78f87edc89e7bd410f1ce2 (diff) | |
download | tcl-ce0bed6e24611fae430cf6eb73c9e7dd9bc27646.zip tcl-ce0bed6e24611fae430cf6eb73c9e7dd9bc27646.tar.gz tcl-ce0bed6e24611fae430cf6eb73c9e7dd9bc27646.tar.bz2 |
Fix for [Bug 3484621]: insure that execution traces on bytecoded commands
bump the interp's compile epoch.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/trace.test | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/tests/trace.test b/tests/trace.test index c2a760d..3297258 100644 --- a/tests/trace.test +++ b/tests/trace.test @@ -2558,6 +2558,39 @@ set base { } runbase {{- *} {-* *} {- *} {- *}} $base +test trace-39 {bug #3484621: tracing Bc'ed commands} -setup { + set ::traceLog 0 + set ::traceCalls 0 + set ::bar [list 0 1 2 3] + set res {} + proc dotrace args { + incr ::traceLog + } + proc foo {} { + incr ::traceCalls + # choose a BC'ed command that is 'unlikely' to interfere with tcltest's + # internals + lset ::bar 1 2 + } +} -body { + foo + lappend res $::traceLog + + trace add execution lset enter dotrace + foo + lappend res $::traceLog + + trace remove execution lset enter dotrace + foo + lappend res $::traceLog + + list $::traceCalls | {*}$res +} -cleanup { + unset ::traceLog ::traceCalls ::bar res + rename dotrace {} + rename foo {} +} -result {3 | 0 1 1} + # Delete procedures when done, so we don't clash with other tests |