diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-06-21 07:18:34 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-06-21 07:18:34 (GMT) |
| commit | eb09d3860d1569806fb06f266318efe543f1cc28 (patch) | |
| tree | 1129e3434be585a5f3623fbad5e986625836f118 /tests/expr.test | |
| parent | e26ccd75b1c46364653e53ec21b05d5bb2e41874 (diff) | |
| parent | 09c0f6835523794621c9bae88e5ea3b955c14878 (diff) | |
| download | tcl-eb09d3860d1569806fb06f266318efe543f1cc28.zip tcl-eb09d3860d1569806fb06f266318efe543f1cc28.tar.gz tcl-eb09d3860d1569806fb06f266318efe543f1cc28.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'tests/expr.test')
| -rw-r--r-- | tests/expr.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/expr.test b/tests/expr.test index 15eff76..6ff8b21 100644 --- a/tests/expr.test +++ b/tests/expr.test @@ -777,7 +777,7 @@ test expr-20.2 {double invocation of variable traces} -body { set var "$counter + [concat $extraargs]" } } - trace variable exprtracevar r [list exprtraceproc 10] + trace add variable exprtracevar read [list exprtraceproc 10] list [catch {expr "$exprtracevar + 20"} a] $a \ [catch {expr "$exprtracevar + 20"} b] $b \ [unset exprtracevar exprtracecounter] |