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 | 171f7018fb9492e7341d08b7ea4489ef16193073 (patch) | |
| tree | feb92e423df2f587f3b4b38c1ce35013cbf35193 /tests/canvText.test | |
| parent | 50857b1bcea0bdfa5aa237440ff5046b33600d96 (diff) | |
| download | tk-171f7018fb9492e7341d08b7ea4489ef16193073.zip tk-171f7018fb9492e7341d08b7ea4489ef16193073.tar.gz tk-171f7018fb9492e7341d08b7ea4489ef16193073.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} |