summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--tests/column.test4
-rw-r--r--tests/item.test6
-rw-r--r--tests/style.test4
-rw-r--r--tests/treectrl.test4
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