diff options
| -rw-r--r-- | tests/item.test | 8 | ||||
| -rw-r--r-- | tests/style.test | 4 | ||||
| -rw-r--r-- | tests/treectrl.test | 19 |
3 files changed, 12 insertions, 19 deletions
diff --git a/tests/item.test b/tests/item.test index 812a5a2..2d648b5 100644 --- a/tests/item.test +++ b/tests/item.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# CVS: @(#) $Id: item.test,v 1.7 2004/07/26 17:33:14 treectrl Exp $ +# CVS: @(#) $Id: item.test,v 1.8 2004/07/30 21:22:55 treectrl Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -30,11 +30,7 @@ test item-1.1 {item: missing command} -body { test item-2.2 {item: invalid command} -body { .t item foo -} -returnCodes error -result {bad command "foo": must be ancestors, children, create, delete, firstchild, lastchild, nextsibling, numchildren, parent, prevsibling, remove, bbox, complex, dump, element, hasbutton, index, isancestor, isopen, rnc, sort, state, style, text, or visible} - -test item-2.3 {item create: too many args} -body { - .t item create foo -} -returnCodes error -result {wrong # args: should be ".t item create"} +} -returnCodes error -result {bad command "foo": must be ancestors, children, create, delete, firstchild, lastchild, nextsibling, numchildren, parent, prevsibling, remove, bbox, cget, complex, configure, dump, element, index, isancestor, isopen, rnc, sort, state, style, or text} # Before continuing to test the item descriptions and their modifiers, # lets create some items with this hierarchy: diff --git a/tests/style.test b/tests/style.test index ca4e83c..e3bf752 100644 --- a/tests/style.test +++ b/tests/style.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# CVS: @(#) $Id: style.test,v 1.2 2003/01/02 02:27:50 treectrl Exp $ +# CVS: @(#) $Id: style.test,v 1.3 2004/07/30 21:22:56 treectrl Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -99,7 +99,7 @@ test style-4.4 {style names: no style defined} -body { test style-5.1 {style elements: missing args} -body { .t style elements -} -returnCodes error -result {wrong # args: should be ".t style elements name ?element element...?"} +} -returnCodes error -result {wrong # args: should be ".t style elements name ?elementList?"} test style-5.2 {style elements: unknown style} -body { .t style elements testStyle diff --git a/tests/treectrl.test b/tests/treectrl.test index 8288058..5d89609 100644 --- a/tests/treectrl.test +++ b/tests/treectrl.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: treectrl.test,v 1.21 2004/07/26 17:33:14 treectrl Exp $ +# RCS: @(#) $Id: treectrl.test,v 1.22 2004/07/30 21:22:56 treectrl Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -626,7 +626,7 @@ test treectrl-7.1 {marquee: missing args} -body { test treectrl-7.2 {marquee: unknown command} -body { .t marquee foo -} -returnCodes error -result {bad command "foo": must be anchor, cget, configure, coords, corner, identify, or visible} +} -returnCodes error -result {bad command "foo": must be anchor, cget, configure, coords, corner, or identify} test treectrl-7.3 {marquee anchor: not yet modified} -body { .t marquee anchor @@ -668,13 +668,10 @@ test treectrl-7.11 {marquee identify: after invalid item style map} -body { test treectrl-7.12 {marquee visible} -body { list [.t marquee configure -visible] \ - [.t marquee visible 1] \ - [.t marquee cget -visible] \ - [.t marquee visible 0] \ [.t marquee cget -visible] \ [.t marquee configure -visible 1] \ - [.t marquee visible] -} -result {{-visible {} {} 0 0} 1 1 0 0 {} 1} + [.t marquee cget -visible] +} -result {{-visible {} {} 0 0} 0 {} 1} test treectrl-8.1 {selection: missing args} -body { .t selection @@ -883,7 +880,7 @@ test treectrl-15.2 {identify: negative coords} -body { .t configure -showheader 1 -showlines 1 -showbuttons 1 \ -borderwidth 2 -highlightthickness 1 -treecolumn 2 \ -itemheight 0 -linethickness 1 - .t item hasbutton 1 true + .t item configure 1 -button true update idletasks .t identify -5 -5 } -result {} @@ -933,7 +930,7 @@ test treectrl-16.1 {dragimage: missing args} -body { test treectrl-16.2 {dragimage: unknown command} -body { .t dragimage foo -} -returnCodes error -result {bad command "foo": must be add, cget, clear, configure, offset, or visible} +} -returnCodes error -result {bad command "foo": must be add, cget, clear, configure, or offset} test treectrl-16.3 {dragimage configure} -body { .t dragimage configure @@ -965,11 +962,11 @@ test treectrl-16.9 {dragimage add: invalid element} -body { test treectrl-16.10 {dragimage add: is still not visible} -body { .t dragimage add 1 2 - .t dragimage visible + .t dragimage cget -visible } -result {0} test treectrl-16.11 {dragimage visible} -body { - .t dragimage visible 1 + .t dragimage configure -visible 1 .t dragimage cget -visible } -result {1} |