summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorpatthoyts <patthoyts@users.sourceforge.net>2009-01-11 23:37:15 (GMT)
committerpatthoyts <patthoyts@users.sourceforge.net>2009-01-11 23:37:15 (GMT)
commit19458a73a3f2e0d6dc63f4127d47ca3f48af0e5d (patch)
tree6cda904e6692b3125ca9d31428f4a370d33e1c96
parent66278911da2b56df47120f7ceaa73cb379723c79 (diff)
downloadtk-19458a73a3f2e0d6dc63f4127d47ca3f48af0e5d.zip
tk-19458a73a3f2e0d6dc63f4127d47ca3f48af0e5d.tar.gz
tk-19458a73a3f2e0d6dc63f4127d47ca3f48af0e5d.tar.bz2
[Bug 2495740] result needed to exclude any images already present.
-rw-r--r--tests/button.test9
1 files changed, 7 insertions, 2 deletions
diff --git a/tests/button.test b/tests/button.test
index bfa621c..ee59731 100644
--- a/tests/button.test
+++ b/tests/button.test
@@ -7,7 +7,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: button.test,v 1.23 2008/07/23 23:24:25 nijtmans Exp $
+# RCS: @(#) $Id: button.test,v 1.24 2009/01/11 23:37:15 patthoyts Exp $
package require tcltest 2.2
namespace import ::tcltest::*
@@ -3256,13 +3256,18 @@ test button-5.4 {ConfigureButton - variable trace} -body { ;# ex 6.2a
test button-5.5 {ConfigureButton - image handling} -constraints {
testImageType
} -setup {
+ set images [image names]
image create test image1
image create test image2
} -body {
button .b -image image1
image delete image1
.b configure -image image2
- image names
+ set result {}
+ foreach image [image names] {
+ if {$image ni $images} { lappend result $image }
+ }
+ set result
} -cleanup {
destroy .b
image delete image2