diff options
| author | dgp <dgp@users.sourceforge.net> | 2019-05-15 17:01:05 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2019-05-15 17:01:05 (GMT) |
| commit | 7f33552ef446220a57674a0350a829fbf08451de (patch) | |
| tree | 6eb3b4242ba3093a89e360d4ca4f0b5265ad803a /tests | |
| parent | 8760f6459a6dc7b1902f830af8bcb4b1bbdca2d5 (diff) | |
| download | tk-7f33552ef446220a57674a0350a829fbf08451de.zip tk-7f33552ef446220a57674a0350a829fbf08451de.tar.gz tk-7f33552ef446220a57674a0350a829fbf08451de.tar.bz2 | |
Tests for same issues with [listbox ... -listvariable].
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/listbox.test | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/tests/listbox.test b/tests/listbox.test index 99c84a7..2c07633 100644 --- a/tests/listbox.test +++ b/tests/listbox.test @@ -3177,6 +3177,33 @@ test listbox-31.2 {<<ListboxSelect>> event on lost selection} -setup { destroy .l } -result {{.l 0} {{} {}}} +test listbox-32.1 {Bug [5d991b822e]} { + # Want this not to segfault, or write to variable with empty name + set var INIT + listbox .b -listvariable var + trace add variable var unset {apply {args { + .b configure -listvariable {} + }}} + pack .b + bind .b <Configure> {unset var} + update + destroy .b + info exists {} +} 0 +test listbox-32.2 {Bug [5d991b822e]} { + # Want this not to leak traces + set var INIT + listbox .b -listvariable var + trace add variable var unset {apply {args { + .b configure -listvariable new + }}} + pack .b + bind .b <Configure> {unset -nocomplain var} + update + destroy .b + unset new +} {} + resetGridInfo deleteWindows option clear |