summaryrefslogtreecommitdiffstats
path: root/tests/bitmap.test
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2016-12-02 20:58:36 (GMT)
committerfvogel <fvogelnew1@free.fr>2016-12-02 20:58:36 (GMT)
commit18b22853389c761157c8209e22dd864cbb582e34 (patch)
treeb930b1bbb5af0c099e7820db368689fc760e3d9e /tests/bitmap.test
parentbb6317438ea2e3eb3d67b462cea0ca8333dde65a (diff)
downloadtk-18b22853389c761157c8209e22dd864cbb582e34.zip
tk-18b22853389c761157c8209e22dd864cbb582e34.tar.gz
tk-18b22853389c761157c8209e22dd864cbb582e34.tar.bz2
Fix [ad98f10b3a] and [bd0017bf79] - bitmap-4.1 and cursor-4.1 tests failures. Also, apply again the same pattern to fix color-4.1 that was also failing (when the colorsFree constraint was met) despite there was no such report (yet). Thanks to dgp.
Diffstat (limited to 'tests/bitmap.test')
-rw-r--r--tests/bitmap.test9
1 files changed, 6 insertions, 3 deletions
diff --git a/tests/bitmap.test b/tests/bitmap.test
index bd9c47f..6996f88 100644
--- a/tests/bitmap.test
+++ b/tests/bitmap.test
@@ -84,12 +84,14 @@ test bitmap-3.1 {Tk_FreeBitmapFromObj - reference counts} -constraints {
test bitmap-4.1 {FreeBitmapObjProc} -constraints {
testbitmap
+} -setup {
+ proc copy {s} {return [string index $s 0][string range $s 1 end]}
} -body {
- set x [join questhead]
+ set x [copy questhead]
button .b -bitmap $x
- set y [join questhead]
+ set y [copy questhead]
.b configure -bitmap $y
- set z [join questhead]
+ set z [copy questhead]
.b configure -bitmap $z
set result {}
lappend result [testbitmap questhead]
@@ -102,6 +104,7 @@ test bitmap-4.1 {FreeBitmapObjProc} -constraints {
set y bogus
return $result
} -cleanup {
+ rename copy {}
destroy .b
} -result {{{1 3}} {{1 2}} {{1 1}} {}}