summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-11-07 15:33:19 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-11-07 15:33:19 (GMT)
commitee9722cf78769c35f57383613f570b6e797e74bf (patch)
treefeb92e423df2f587f3b4b38c1ce35013cbf35193
parent02d5fd0fca007479bbc8158ca9c323dbaeb8daee (diff)
downloadtk-ee9722cf78769c35f57383613f570b6e797e74bf.zip
tk-ee9722cf78769c35f57383613f570b6e797e74bf.tar.gz
tk-ee9722cf78769c35f57383613f570b6e797e74bf.tar.bz2
Stop test litter breaking scale-19.
-rw-r--r--tests/canvText.test6
-rw-r--r--tests/scale.test1
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