diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-04-19 01:41:13 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-04-19 01:41:13 (GMT) |
| commit | 7ac6487eda8815506081d820e38c4d364c388b5e (patch) | |
| tree | 79ec0c157da4e7cf2e49081368882d91713ca0c1 /tests | |
| parent | 8d0340e39e077c5577acacc1a175b5c412c8905b (diff) | |
| parent | df94eecf119611a2fa8de1abb3abe59269be7550 (diff) | |
| download | tcl-7ac6487eda8815506081d820e38c4d364c388b5e.zip tcl-7ac6487eda8815506081d820e38c4d364c388b5e.tar.gz tcl-7ac6487eda8815506081d820e38c4d364c388b5e.tar.bz2 | |
merge 8.5
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/var.test | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/var.test b/tests/var.test index 01080bc..b235e5d 100644 --- a/tests/var.test +++ b/tests/var.test @@ -819,6 +819,18 @@ test var-17.1 {TclArraySet [Bug 1669489]} -setup { } -cleanup { unset -nocomplain ::a ::elements } -result {} +test var-17.2 {TclArraySet Dict shortcut only on pure value} -setup { + unset -nocomplain a d + set d {p 1 p 2} + dict get $d p + set foo 0 +} -body { + trace add variable a write "[list incr [namespace which -variable foo]];#" + array set a $d + set foo +} -cleanup { + unset -nocomplain a d foo +} -result 2 test var-18.1 {array unset and unset traces: Bug 2939073} -setup { set already 0 |