summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-10-30 15:13:10 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-10-30 15:13:10 (GMT)
commit69a9c784d764e95b1b34c1b37d7a7df4a4c90647 (patch)
tree96d54249d6fe3ce0e844f00f245ec68bd1bc653a
parent01c3b6eae077a604ee4419c21a8192125bb42844 (diff)
downloadtk-bug_3417012fff.zip
tk-bug_3417012fff.tar.gz
tk-bug_3417012fff.tar.bz2
Test for 3417012bug_3417012fff
-rw-r--r--tests/scale.test5
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}