summaryrefslogtreecommitdiffstats
path: root/tests/ttk
diff options
context:
space:
mode:
authorjenglish <jenglish@noemail.net>2006-12-09 20:53:34 (GMT)
committerjenglish <jenglish@noemail.net>2006-12-09 20:53:34 (GMT)
commit205ba94997a4173230bd23fa84c596cabafce4e8 (patch)
tree7942f315ad17189194fd68ddf9fbae2a126b28ab /tests/ttk
parent31614307b6314aad239ec92161bf1af038f736d6 (diff)
downloadtk-205ba94997a4173230bd23fa84c596cabafce4e8.zip
tk-205ba94997a4173230bd23fa84c596cabafce4e8.tar.gz
tk-205ba94997a4173230bd23fa84c596cabafce4e8.tar.bz2
Merged duplicate functionality between image element factory,
image element, and -image option processing. Image element factory now takes an imageSpec argument instead of a separate image name and -map option. FossilOrigin-Name: e3da608e98ed94e4ae349bfd0e23b71010d0fda5
Diffstat (limited to 'tests/ttk')
-rw-r--r--tests/ttk/image.test27
1 files changed, 2 insertions, 25 deletions
diff --git a/tests/ttk/image.test b/tests/ttk/image.test
index b1f66bd..e9c1248 100644
--- a/tests/ttk/image.test
+++ b/tests/ttk/image.test
@@ -1,37 +1,14 @@
#
-# $Id: image.test,v 1.1 2006/10/31 01:42:27 hobbs Exp $
+# $Id: image.test,v 1.2 2006/12/09 20:53:35 jenglish Exp $
#
package require Tk 8.5
package require tcltest ; namespace import -force tcltest::*
loadTestedCommands
-# catch background errors:
-#
-if {[info procs bgerror] == "bgerror"} { rename bgerror {} }
-array set BGerror { caught 0 message {} }
-proc bgerror {message} {
- variable BGerror
- set BGerror(caught) 1
- set BGerror(message) $message
-}
-proc caughtbgerror {} {
- variable BGerror
- if {!$BGerror(caught)} {
- error "No bgerror caught"
- }
- set BGerror(caught) 0
- return $BGerror(message)
-}
-
test image-1.1 "Bad image element" -body {
ttk::style element create BadImage image badimage
- ttk::style layout BadImage { BadImage }
- ttk::label .l -style BadImage
- pack .l ; update
- destroy .l
- caughtbgerror
-} -result {image "badimage" doesn't exist}
+} -returnCodes error -result {image "badimage" doesn't exist}
test image-1.2 "Duplicate element" -setup {
image create photo test.element -width 10 -height 10