diff options
author | dgp <dgp@users.sourceforge.net> | 2014-10-30 15:16:37 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2014-10-30 15:16:37 (GMT) |
commit | 277e4c03ced86ddf627807595297854fac523c9a (patch) | |
tree | 96d54249d6fe3ce0e844f00f245ec68bd1bc653a /tests/scale.test | |
parent | 90f1bb2871f27fb60b636b4b70b9b6e5f9dc3eda (diff) | |
parent | 69a9c784d764e95b1b34c1b37d7a7df4a4c90647 (diff) | |
download | tk-277e4c03ced86ddf627807595297854fac523c9a.zip tk-277e4c03ced86ddf627807595297854fac523c9a.tar.gz tk-277e4c03ced86ddf627807595297854fac523c9a.tar.bz2 |
[3417012] Stop [scale] segfault when -digits too big.
Diffstat (limited to 'tests/scale.test')
-rw-r--r-- | tests/scale.test | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/scale.test b/tests/scale.test index 657f668..d7ded7f 100644 --- a/tests/scale.test +++ b/tests/scale.test @@ -387,6 +387,11 @@ test scale-6.20 {ComputeFormat procedure} { .s set 1001.23456789 .s get } {1001.235} +test scale-6.21 {ComputeFormat procedure} { + .s configure -length 200 -from 1000 -to 1001.8 -resolution 0 -digits 200 + .s set 1001.23456789 + .s get +} {1001.235} test scale-7.1 {ComputeScaleGeometry procedure} {nonPortable fonts} { catch {destroy .s} |