diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-12-02 12:57:58 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-12-02 12:57:58 (GMT) |
| commit | bb6317438ea2e3eb3d67b462cea0ca8333dde65a (patch) | |
| tree | 11d078f4e4be20aac13a8317ab2c6e6e028a3453 /tests/border.test | |
| parent | 6164a3347a9671d17e6946868237e3e60000fcd9 (diff) | |
| download | tk-bb6317438ea2e3eb3d67b462cea0ca8333dde65a.zip tk-bb6317438ea2e3eb3d67b462cea0ca8333dde65a.tar.gz tk-bb6317438ea2e3eb3d67b462cea0ca8333dde65a.tar.bz2 | |
[76e2d9c095] Repair broken test border-3.1
Diffstat (limited to 'tests/border.test')
| -rw-r--r-- | tests/border.test | 9 |
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}} {}} |