diff options
| author | dgp <dgp@users.sourceforge.net> | 2019-05-15 19:33:53 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2019-05-15 19:33:53 (GMT) |
| commit | 6b3068d9217dbc08a526a7715707192912cdb868 (patch) | |
| tree | 010938b06e2f6d4a0538f8bac894fd440f434a2f /tests/scale.test | |
| parent | 0be716f0f282bf6e937b7ad2a8beb171b51d1659 (diff) | |
| parent | 273f03adcc49bca49f4941c8adb241b5ccc26c25 (diff) | |
| download | tk-6b3068d9217dbc08a526a7715707192912cdb868.zip tk-6b3068d9217dbc08a526a7715707192912cdb868.tar.gz tk-6b3068d9217dbc08a526a7715707192912cdb868.tar.bz2 | |
Revised bug fix for [5d991b822e].
Diffstat (limited to 'tests/scale.test')
| -rw-r--r-- | tests/scale.test | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/tests/scale.test b/tests/scale.test index 7fa3a62..75293aa 100644 --- a/tests/scale.test +++ b/tests/scale.test @@ -1559,6 +1559,32 @@ test scale-21.2 {Bug [55b95f578a] again - Bignum value for -from/-to with scale destroy .s } -result {} +test scale-22.1 {Bug [5d991b822e]} { + # Want this not to crash + set var INIT + scale .b -variable var + trace add variable var unset {apply {args { + .b configure -variable {} + }}} + pack .b + bind .b <Configure> {unset var} + update + destroy .b +} {} +test scale-22.2 {Bug [5d991b822e]} { + # Want this not to leak traces + set var INIT + scale .b -variable var + trace add variable var unset {apply {args { + .b configure -variable new + }}} + pack .b + bind .b <Configure> {unset -nocomplain var} + update + destroy .b + unset new +} {} + option clear # cleanup |