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/scale.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/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 e9dbc65..adc9c07 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 |