diff options
author | dgp <dgp@users.sourceforge.net> | 2019-05-11 20:36:25 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2019-05-11 20:36:25 (GMT) |
commit | 3a509540d384f5f707a39987642f1f111e4bf657 (patch) | |
tree | 8e9cc8b3f1de16ba30543cc05103c66efe678b99 /tests/button.test | |
parent | ab95ae49695a532179fdb74ad15b35f02233d7cc (diff) | |
download | tk-3a509540d384f5f707a39987642f1f111e4bf657.zip tk-3a509540d384f5f707a39987642f1f111e4bf657.tar.gz tk-3a509540d384f5f707a39987642f1f111e4bf657.tar.bz2 |
Tests for Ticket [5d991b822e].
Diffstat (limited to 'tests/button.test')
-rw-r--r-- | tests/button.test | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/tests/button.test b/tests/button.test index d4db317..21ccf8f 100644 --- a/tests/button.test +++ b/tests/button.test @@ -3958,6 +3958,33 @@ test button-14.1 {bug fix: [011706ec42] tk::ButtonInvoke unsafe wrt widget destr destroy .top.b .top } -result {} +test button-15.1 {Bug [5d991b822e]} { + # Want this not to segfault + set var INIT + button .b -textvariable var + trace add variable var unset {apply {args { + .b configure -textvariable {} + }}} + pack .b + bind .b <Configure> {unset var} + update + destroy .b +} {} +test button-15.2 {Bug [5d991b822e]} { + # Want this not to leak traces + set var INIT + button .b -textvariable var + trace add variable var unset {apply {args { + .b configure -textvariable new + }}} + pack .b + bind .b <Configure> {unset var} + update + destroy .b + unset new +} {} + + imageFinish cleanupTests return |