summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2016-12-02 12:57:58 (GMT)
committerdgp <dgp@users.sourceforge.net>2016-12-02 12:57:58 (GMT)
commitfd7ab722c98be2bee1064d8721bbcae710a74f14 (patch)
tree11d078f4e4be20aac13a8317ab2c6e6e028a3453
parent0651fd12fcd97a3bd62c8ba843b9ef152378ee4f (diff)
downloadtk-fd7ab722c98be2bee1064d8721bbcae710a74f14.zip
tk-fd7ab722c98be2bee1064d8721bbcae710a74f14.tar.gz
tk-fd7ab722c98be2bee1064d8721bbcae710a74f14.tar.bz2
[76e2d9c095] Repair broken test border-3.1
-rw-r--r--tests/border.test9
1 files changed, 6 insertions, 3 deletions
diff --git a/tests/border.test b/tests/border.test
index 2ca64c1..d6ff5c7 100644
--- a/tests/border.test
+++ b/tests/border.test
@@ -127,16 +127,18 @@ test border-2.2 {Tk_Free3DBorder - unlinking from list} -constraints {
destroy .b .t2 .t3 .t
} -result {{{4 1} {3 0} {2 0} {1 0}} {{4 1} {2 0} {1 0}} {{4 1} {2 0}} {{2 0}} {}}
+
test border-3.1 {FreeBorderObjProc} -constraints {
testborder
} -setup {
set result {}
+ proc copy {s} {return [string index $s 0][string range $s 1 end]}
} -body {
- set x [join purple]
+ set x [copy purple]
button .b -bg $x -text .b1
- set y [join purple]
+ set y [copy purple]
.b configure -bg $y
- set z [join purple]
+ set z [copy purple]
.b configure -bg $z
lappend result [testborder purple]
set x red
@@ -148,6 +150,7 @@ test border-3.1 {FreeBorderObjProc} -constraints {
set y bogus
return $result
} -cleanup {
+ rename copy {}
destroy .b
} -result {{{1 3}} {{1 2}} {{1 1}} {}}