diff options
author | fvogel <fvogelnew1@free.fr> | 2017-10-22 19:34:00 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2017-10-22 19:34:00 (GMT) |
commit | 3e2c6e96cb35dde5fa8a7eb932bf0332067231a5 (patch) | |
tree | ff0eda52bc839147f11e6fa509ed5399f055c0e0 /tests | |
parent | 2fef4593c8cce3a56ff02136657d930af6eb2abd (diff) | |
parent | 20a05b8bc7cbd7e31d4fd0f094d3849945118a77 (diff) | |
download | tk-3e2c6e96cb35dde5fa8a7eb932bf0332067231a5.zip tk-3e2c6e96cb35dde5fa8a7eb932bf0332067231a5.tar.gz tk-3e2c6e96cb35dde5fa8a7eb932bf0332067231a5.tar.bz2 |
Fix [55b95f578a]: Associating variable with bignum value with scale crashes it.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/scale.test | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/tests/scale.test b/tests/scale.test index 8c14ed4..79524eb 100644 --- a/tests/scale.test +++ b/tests/scale.test @@ -1504,6 +1504,26 @@ test scale-20.8 {Bug [2262543fff] - Scale widget unexpectedly fires command call destroy .s } -result {10 10} +test scale-21.1 {Bug [55b95f578a] - Associating variable with bignum value with scale crashes it} -setup { + catch {destroy .s} +} -body { + pack [scale .s] + set foo 5.79e99 + # non-regression test for bug [55b95f578a] - shall just not crash + .s configure -variable foo +} -cleanup { + destroy .s +} -result {} +test scale-21.2 {Bug [55b95f578a] again - Bignum value for -from/-to with scale crashes it} -setup { + catch {destroy .s} +} -body { + pack [scale .s] + # non-regression test for bug [55b95f578a] - shall just not crash + .s configure -from -6.8e99 -to 8.8e99 +} -cleanup { + destroy .s +} -result {} + option clear # cleanup |