diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-10-30 15:26:42 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-10-30 15:26:42 (GMT) |
| commit | 56e5cece3f50562969449e4357e5dc1cf3907c1a (patch) | |
| tree | c02cfebbe3bcc52d1170176fc41c1f6b977ed2ac /tests/scale.test | |
| parent | 2de899be4f282336d57ace6810563233c87b13d6 (diff) | |
| parent | 277e4c03ced86ddf627807595297854fac523c9a (diff) | |
| download | tk-56e5cece3f50562969449e4357e5dc1cf3907c1a.zip tk-56e5cece3f50562969449e4357e5dc1cf3907c1a.tar.gz tk-56e5cece3f50562969449e4357e5dc1cf3907c1a.tar.bz2 | |
[3417012] Stop [scale] segfault when -digits too big. Thanks fvogel.
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 13ccb4d..1e072a0 100644 --- a/tests/scale.test +++ b/tests/scale.test @@ -688,6 +688,11 @@ test scale-6.20 {ComputeFormat procedure} -body { .s set 1001.23456789 .s get } -result {1001.235} +test scale-6.21 {ComputeFormat procedure} -body { + .s configure -length 200 -from 1000 -to 1001.8 -resolution 0 -digits 200 + .s set 1001.23456789 + .s get +} -result {1001.235} destroy .s |