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