summaryrefslogtreecommitdiffstats
path: root/tests/button.test
diff options
context:
space:
mode:
authorpatthoyts <patthoyts@noemail.net>2009-01-13 01:46:04 (GMT)
committerpatthoyts <patthoyts@noemail.net>2009-01-13 01:46:04 (GMT)
commit5c140536e578ada27c7436dd2574939b236e9b3a (patch)
tree2bb2e17fa91b47afa565195e5553ba50edf99aa9 /tests/button.test
parentcd0cd6487c3491d72494c4bcb27574df76c9cc99 (diff)
downloadtk-5c140536e578ada27c7436dd2574939b236e9b3a.zip
tk-5c140536e578ada27c7436dd2574939b236e9b3a.tar.gz
tk-5c140536e578ada27c7436dd2574939b236e9b3a.tar.bz2
Tk tests that create images need to be independent of the interpreter environment.
FossilOrigin-Name: 1cd8c350b2aa943a22045a8141599f169bb17c53
Diffstat (limited to 'tests/button.test')
-rw-r--r--tests/button.test27
1 files changed, 9 insertions, 18 deletions
diff --git a/tests/button.test b/tests/button.test
index ee59731..7f1a318 100644
--- a/tests/button.test
+++ b/tests/button.test
@@ -7,13 +7,13 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: button.test,v 1.24 2009/01/11 23:37:15 patthoyts Exp $
+# RCS: @(#) $Id: button.test,v 1.25 2009/01/13 01:46:05 patthoyts Exp $
package require tcltest 2.2
namespace import ::tcltest::*
eval tcltest::configure $argv
tcltest::loadTestedCommands
-
+imageInit
proc bogusTrace args {
error "trace aborted"
@@ -3256,21 +3256,17 @@ 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]
+ imageCleanup
image create test image1
image create test image2
} -body {
button .b -image image1
image delete image1
.b configure -image image2
- set result {}
- foreach image [image names] {
- if {$image ni $images} { lappend result $image }
- }
- set result
+ imageNames
} -cleanup {
destroy .b
- image delete image2
+ imageCleanup
} -result {image2}
test button-5.6 {ConfigureButton - default value for variable} -body {
@@ -3914,15 +3910,10 @@ test button-13.8 {size behaviouor: checkbutton} -setup {
destroy .a .b .c
} -result {1 1 1}
-
+imageFinish
cleanupTests
return
-
-
-
-
-
-
-
-
+# Local variables:
+# mode: tcl
+# End: