diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2020-11-01 14:25:49 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2020-11-01 14:25:49 (GMT) |
| commit | b7efdfe9bc03114b633073ed9d4423e4f88582c5 (patch) | |
| tree | def8a718bfc5e1ea62892acbdad2afda27b07a3b /tests/trace.test | |
| parent | 63855497af431a6ee84d67b62ade8694485d76c9 (diff) | |
| parent | 3b0ee42270085b039b75e2e27a3a145399a1bfac (diff) | |
| download | tcl-b7efdfe9bc03114b633073ed9d4423e4f88582c5.zip tcl-b7efdfe9bc03114b633073ed9d4423e4f88582c5.tar.gz tcl-b7efdfe9bc03114b633073ed9d4423e4f88582c5.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]"]] |