diff options
| author | fvogel <fvogelnew1@free.fr> | 2019-01-09 21:58:56 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2019-01-09 21:58:56 (GMT) |
| commit | 3866cadb1cfcaf4145fed26ace23efb3a0d16254 (patch) | |
| tree | ddd9df99b7990ed9a502ab6fe4dcbcb132e3d039 /tests/scale.test | |
| parent | 79864b3cecd15cecaaeeded2d301de7b1d96511c (diff) | |
| download | tk-3866cadb1cfcaf4145fed26ace23efb3a0d16254.zip tk-3866cadb1cfcaf4145fed26ace23efb3a0d16254.tar.gz tk-3866cadb1cfcaf4145fed26ace23efb3a0d16254.tar.bz2 | |
Add new test scale-14.13 to guard against regressions with [220665ffff], and duplicates [220265ffff] and [779559ffff]. This test currently fails in the present bugfix branch but passes in core-8-6-branch
Diffstat (limited to 'tests/scale.test')
| -rw-r--r-- | tests/scale.test | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/tests/scale.test b/tests/scale.test index 6344eef..7fa3a62 100644 --- a/tests/scale.test +++ b/tests/scale.test @@ -1183,6 +1183,19 @@ test scale-14.12 {RoundValueToResolution procedure} -body { } -result {168.75} destroy .s +test scale-14.13 {RoundValueToResolution procedure, round-off errors} -setup { + # see [220665ffff], and duplicates [220265ffff] and [779559ffff] + set x NotSet + pack [scale .s -orient horizontal -resolution .1 -from -180 -to 180 -command "set x"] + update +} -body { + .s configure -background red + update + set x +} -cleanup { + destroy .s +} -result {NotSet} + test scale-14a.1 {RoundValueToResolution, RoundIntervalToResolution procedures} -setup { pack [scale .s -orient horizontal] update |