diff options
| author | dgp <dgp@users.sourceforge.net> | 2012-02-06 17:41:38 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2012-02-06 17:41:38 (GMT) |
| commit | 62bcbbe491c462f2c23e91ec9f3feb172581f322 (patch) | |
| tree | 64c0f1078c641bbb79dff5101d117d0c3b2836fc /tests | |
| parent | 8b58a90083b194bedf76d69e03823eaeeac7171f (diff) | |
| parent | d96696676a3d3487daa023f4f916533b06d4c25e (diff) | |
| download | tcl-62bcbbe491c462f2c23e91ec9f3feb172581f322.zip tcl-62bcbbe491c462f2c23e91ec9f3feb172581f322.tar.gz tcl-62bcbbe491c462f2c23e91ec9f3feb172581f322.tar.bz2 | |
3485022 TclCompileEnsemble() avoid compile when exec traces set.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/trace.test | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/tests/trace.test b/tests/trace.test index 254ff62..693dbad 100644 --- a/tests/trace.test +++ b/tests/trace.test @@ -2591,8 +2591,36 @@ test trace-39 {bug #3484621: tracing Bc'ed commands} -setup { rename foo {} } -result {3 | 0 1 1} +test trace-39.1 {bug #3485022: tracing Bc'ed commands} -setup { + set ::traceLog 0 + set ::traceCalls 0 + set res {} + proc dotrace args { + incr ::traceLog + } + proc foo {} { + incr ::traceCalls + string equal zip zap + } +} -body { + foo + lappend res $::traceLog + trace add execution ::tcl::string::equal enter dotrace + foo + lappend res $::traceLog + + trace remove execution tcl::string::equal enter dotrace + foo + lappend res $::traceLog + list $::traceCalls | {*}$res +} -cleanup { + unset ::traceLog ::traceCalls res + rename dotrace {} + rename foo {} +} -result {3 | 0 1 1} + # Delete procedures when done, so we don't clash with other tests # (e.g. foobar will clash with 'unknown' tests). catch {rename foobar {}} |