diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-11-07 15:33:19 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-11-07 15:33:19 (GMT) |
| commit | ee9722cf78769c35f57383613f570b6e797e74bf (patch) | |
| tree | feb92e423df2f587f3b4b38c1ce35013cbf35193 | |
| parent | 02d5fd0fca007479bbc8158ca9c323dbaeb8daee (diff) | |
| download | tk-ee9722cf78769c35f57383613f570b6e797e74bf.zip tk-ee9722cf78769c35f57383613f570b6e797e74bf.tar.gz tk-ee9722cf78769c35f57383613f570b6e797e74bf.tar.bz2 | |
Stop test litter breaking scale-19.
| -rw-r--r-- | tests/canvText.test | 6 | ||||
| -rw-r--r-- | tests/scale.test | 1 |
2 files changed, 5 insertions, 2 deletions
diff --git a/tests/canvText.test b/tests/canvText.test index 070011b..20a39b0 100644 --- a/tests/canvText.test +++ b/tests/canvText.test @@ -501,7 +501,7 @@ end %%EOF " -test canvText-18.1 {bug fix 2525, find enclosed on text with newlines} { +test canvText-18.1 {bug fix 2525, find enclosed on text with newlines} -body { catch {destroy .c} canvas .c pack .c @@ -513,7 +513,9 @@ test canvText-18.1 {bug fix 2525, find enclosed on text with newlines} { incr y2 update .c find enclosed 99 99 [expr $x2 + $i] [expr $y2 + 1] -} 1 +} -cleanup { + unset -nocomplain bbox x2 y2 +} -result 1 test canvText-19.1 {patch 1006286, leading space caused wrap under Win32} { catch {destroy .c} diff --git a/tests/scale.test b/tests/scale.test index 73d0f2d..f8e58bb 100644 --- a/tests/scale.test +++ b/tests/scale.test @@ -871,6 +871,7 @@ test scale-19 {Bug [3529885fff] - Click in through goes in wrong direction} \ -setup { catch {destroy .s} catch {destroy .s1 .s2 .s3 .s4} + unset -nocomplain x1 x2 x3 x4 x y scale .s1 -from 0 -to 100 -resolution 1 -variable x1 -digits 4 -orient horizontal -length 100 scale .s2 -from 0 -to 100 -resolution -1 -variable x2 -digits 4 -orient horizontal -length 100 scale .s3 -from 100 -to 0 -resolution 1 -variable x3 -digits 4 -orient horizontal -length 100 |