From 69a9c784d764e95b1b34c1b37d7a7df4a4c90647 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Thu, 30 Oct 2014 15:13:10 +0000
Subject: Test for 3417012
---
tests/scale.test | 5 +++++
1 file changed, 5 insertions(+)
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}
--
cgit v0.12