diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-05-16 09:18:45 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-05-16 09:18:45 (GMT) |
| commit | 9e6d6d1ae2e12e39197ebabb4a4fd27715f65f5f (patch) | |
| tree | e18d0330f474c0037d69499dd4ccbc505b1203a8 /tests/listbox.test | |
| parent | cdb0df2ccb91f62869444148376ce5889bd755b3 (diff) | |
| parent | cdf0d2aad93208954b01d2446181854ba1221482 (diff) | |
| download | tk-9e6d6d1ae2e12e39197ebabb4a4fd27715f65f5f.zip tk-9e6d6d1ae2e12e39197ebabb4a4fd27715f65f5f.tar.gz tk-9e6d6d1ae2e12e39197ebabb4a4fd27715f65f5f.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'tests/listbox.test')
| -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 92029de..68cb5d8 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 |