diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/column.test | 4 | ||||
-rw-r--r-- | tests/item.test | 6 | ||||
-rw-r--r-- | tests/style.test | 4 | ||||
-rw-r--r-- | tests/treectrl.test | 4 |
4 files changed, 9 insertions, 9 deletions
diff --git a/tests/column.test b/tests/column.test index b05c294..2721571 100644 --- a/tests/column.test +++ b/tests/column.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: column.test,v 1.7 2005/05/13 20:38:29 treectrl Exp $ +# CVS: @(#) $Id: column.test,v 1.8 2005/06/03 02:39:58 treectrl Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -76,7 +76,7 @@ test column-2.3 {column bbox: tree doesn't show headers} -body { test column-2.4 {column bbox} -body { .t configure -showheader 1 .t column bbox 0 -} -result {0 3 501 7} +} -result {0 3 482 7} test column-2.5 {column bbox: tail column not allowed} -body { .t column bbox tail diff --git a/tests/item.test b/tests/item.test index 68d0dd3..ba2e5f8 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.10 2005/05/13 20:40:14 treectrl Exp $ +# CVS: @(#) $Id: item.test,v 1.11 2005/06/03 02:39:59 treectrl Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -184,7 +184,7 @@ test item-13.1 {item complex: missing args} -body { test item-13.2 {item complex: only allowed if column style is defined} -body { .t item complex 8 {{e1 -text Hallo}} -} -returnCodes error -result {item 8 doesn't have column 0} +} -returnCodes error -result {column #0 doesn't exist} test item-13.3 {item complex: invalid list} -body { .t column create @@ -230,7 +230,7 @@ test item-14.6 {item element cget} -body { test item-14.7 {item element configure} -body { .t item element configure 8 0 eText -} -result {{-data {} {} {} {}} {-datatype {} {} {} {}} {-format {} {} {} {}} {-fill {} {} {} {}} {-font {} {} {} {}} {-justify {} {} {} {}} {-lines {} {} {} {}} {-text {} {} {} {}} {-width {} {} {} {}} {-wrap {} {} {} {}}} +} -result {{-data {} {} {} {}} {-datatype {} {} {} {}} *} -match glob test item-14.8 {item element configure/cget} -body { .t item element configure 8 0 eText -fill yellow diff --git a/tests/style.test b/tests/style.test index 4a8d4e1..c2b6ab2 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.4 2005/03/29 20:41:41 treectrl Exp $ +# CVS: @(#) $Id: style.test,v 1.5 2005/06/03 02:39:59 treectrl Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -125,7 +125,7 @@ test style-6.1 {style layout: missing args} -body { test style-6.2 {style layout: no options specified} -body { .t style layout testStyle eText -} -result {-padx 0 -pady 0 -ipadx 0 -ipady 0 -expand {} -iexpand {} -detach no -squeeze {} -union {}} +} -result {-padx 0 -pady 0 -ipadx 0 -ipady 0 -expand {} -iexpand {} -detach no * -squeeze {} -union {}} -match glob test style-6.3 {style layout: option -padx} -body { .t style layout testStyle eText -padx 3 diff --git a/tests/treectrl.test b/tests/treectrl.test index f51cc0c..b2f180b 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.25 2005/05/13 20:41:19 treectrl Exp $ +# RCS: @(#) $Id: treectrl.test,v 1.26 2005/06/03 02:39:59 treectrl Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -50,7 +50,7 @@ test treectrl-1.6 {configure: -background option} -body { test treectrl-1.7 {configure: invalid -backgroundmode option} -body { .t configure -backgroundmode foo -} -returnCodes error -result {bad backgroundmode "foo": must be column, index, row, or visindex} +} -returnCodes error -result {bad backgroundmode "foo": must be column, order, ordervisible, row, index, or visindex} test treectrl-1.8 {configure: -backgroundmode option} -body { .t configure -backgroundmode column |