diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-11-05 17:06:22 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-11-05 17:06:22 (GMT) |
| commit | cccc07aa2829b401bc101caeb9890a7e876081a2 (patch) | |
| tree | 620ee207ede848ef890070313145c275721cb615 /tests/trace.test | |
| parent | 263312727f8fc4187995ed52540370d6b0589143 (diff) | |
| parent | 3b0ee42270085b039b75e2e27a3a145399a1bfac (diff) | |
| download | tcl-cccc07aa2829b401bc101caeb9890a7e876081a2.zip tcl-cccc07aa2829b401bc101caeb9890a7e876081a2.tar.gz tcl-cccc07aa2829b401bc101caeb9890a7e876081a2.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'tests/trace.test')
| -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 3703216..c1e1a24 100644 --- a/tests/trace.test +++ b/tests/trace.test @@ -2314,8 +2314,8 @@ test trace-28.10 {exec trace info nonsense} { } {1 {wrong # args: should be "trace remove execution name opList command"}} test trace-29.1 {Tcl_CreateTrace, correct command and argc/argv arguments of trace proc} {testcmdtrace} { - testcmdtrace tracetest {set stuff [expr 14 + 16]} -} {{expr 14 + 16} {expr 14 + 16} {set stuff [expr 14 + 16]} {set stuff 30}} + testcmdtrace tracetest {set stuff [expr {14 + 16}]} +} {{expr {14 + 16}} {expr {14 + 16}} {set stuff [expr {14 + 16}]} {set stuff 30}} test trace-29.2 {Tcl_CreateTrace, correct command and argc/argv arguments of trace proc} {testcmdtrace} { testcmdtrace tracetest {set stuff [info tclversion]} } [concat {{info tclversion} {info tclversion} ::tcl::info::tclversion {::tcl::info::tclversion} {set stuff [info tclversion]}} [list "set stuff [info tclversion]"]] |