summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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}