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 /tests/canvText.test | |
| parent | 02d5fd0fca007479bbc8158ca9c323dbaeb8daee (diff) | |
| download | tk-ee9722cf78769c35f57383613f570b6e797e74bf.zip tk-ee9722cf78769c35f57383613f570b6e797e74bf.tar.gz tk-ee9722cf78769c35f57383613f570b6e797e74bf.tar.bz2 | |
Stop test litter breaking scale-19.
Diffstat (limited to 'tests/canvText.test')
| -rw-r--r-- | tests/canvText.test | 6 |
1 files changed, 4 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} |