diff options
| author | dgp@users.sourceforge.net <dgp> | 2014-10-30 15:13:10 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2014-10-30 15:13:10 (GMT) |
| commit | a5cecc2ef862963a31d76d0dc560bd6f2c175c20 (patch) | |
| tree | 608539b1cd35bbdb1d4df32181f7ceb878c07b47 /tests/scale.test | |
| parent | 778c10e60d67016b0c995e940b0a9aeaed8aeba8 (diff) | |
| download | tk-a5cecc2ef862963a31d76d0dc560bd6f2c175c20.zip tk-a5cecc2ef862963a31d76d0dc560bd6f2c175c20.tar.gz tk-a5cecc2ef862963a31d76d0dc560bd6f2c175c20.tar.bz2 | |
Test for 3417012
Diffstat (limited to 'tests/scale.test')
| -rw-r--r-- | tests/scale.test | 5 |
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} |