summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-10-30 15:26:42 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-10-30 15:26:42 (GMT)
commit56e5cece3f50562969449e4357e5dc1cf3907c1a (patch)
treec02cfebbe3bcc52d1170176fc41c1f6b977ed2ac /tests
parent2de899be4f282336d57ace6810563233c87b13d6 (diff)
parent277e4c03ced86ddf627807595297854fac523c9a (diff)
downloadtk-56e5cece3f50562969449e4357e5dc1cf3907c1a.zip
tk-56e5cece3f50562969449e4357e5dc1cf3907c1a.tar.gz
tk-56e5cece3f50562969449e4357e5dc1cf3907c1a.tar.bz2
[3417012] Stop [scale] segfault when -digits too big. Thanks fvogel.
Diffstat (limited to 'tests')
-rw-r--r--tests/scale.test5
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/scale.test b/tests/scale.test
index 13ccb4d..1e072a0 100644
--- a/tests/scale.test
+++ b/tests/scale.test
@@ -688,6 +688,11 @@ test scale-6.20 {ComputeFormat procedure} -body {
.s set 1001.23456789
.s get
} -result {1001.235}
+test scale-6.21 {ComputeFormat procedure} -body {
+ .s configure -length 200 -from 1000 -to 1001.8 -resolution 0 -digits 200
+ .s set 1001.23456789
+ .s get
+} -result {1001.235}
destroy .s