Update tests for recent changes (mostly changes in error messages).

5 files changed, 29 insertions, 29 deletions

diff --git a/tests/item.test b/tests/item.test
index ba2e5f8..19a4691 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.11 2005/06/03 02:39:59 treectrl Exp $
+# CVS: @(#) $Id: item.test,v 1.12 2005/07/15 01:43:39 treectrl Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2
@@ -26,7 +26,7 @@ test item-0.1 {some needed preparations} -body {
 
 test item-1.1 {item: missing command} -body {
     .t item
-} -returnCodes error -result {wrong # args: should be ".t item command ?arg arg...?"}
+} -returnCodes error -result {wrong # args: should be ".t item command ?arg arg ...?"}
 
 test item-2.2 {item: invalid command} -body {
     .t item foo
@@ -180,7 +180,7 @@ test item-12.2 {item remove} -body {
 
 test item-13.1 {item complex: missing args} -body {
     .t item complex 8
-} -returnCodes error -result {wrong # args: should be ".t item complex item list..."}
+} -returnCodes error -result {wrong # args: should be ".t item complex item list ..."}
 
 test item-13.2 {item complex: only allowed if column style is defined} -body {
     .t item complex 8 {{e1 -text Hallo}}
@@ -190,7 +190,7 @@ test item-13.3 {item complex: invalid list} -body {
 	.t column create
     .t item style set 8 0 testStyle
     .t item complex 8 {{e1 -text}}
-} -returnCodes error -result {wrong # args: should be "element option value..."}
+} -returnCodes error -result {wrong # args: should be "element option value ..."}
 
 test item-13.4 {item complex: element name not defined in style} -body {
     .t item complex 8 {{e1 -text Hallo}}
@@ -212,11 +212,11 @@ test item-14.2 {item element: invalid command} -body {
     .t item element foo 8 0 eText
 } -returnCodes error -result {bad command "foo": must be *} -match glob
 
-test item-14.3 {item element actual: missing arg} -body {
-    .t item element actual 8 0 eText
-} -returnCodes error -result {wrong # args: should be ".t item element actual item column element option"}
+test item-14.3 {item element perstate: missing arg} -body {
+    .t item element perstate 8 0 eText
+} -returnCodes error -result {wrong # args: should be ".t item element perstate item column element option ?stateList?"}
 
-test item-14.4 {item element actual} -body {
+test item-14.4 {item element perstate} -body {
     .t item element actual 8 0 eText -fill
 } -result {red}
 
@@ -263,7 +263,7 @@ test item-15.5 {item style elements: invalid item} -body {
 
 test item-15.6 {item style elements: item without style} -body {
     .t item style elements 1 0
-} -returnCodes error -result {item 1 doesn't have column 0}
+} -returnCodes error -result {item 1 column 0 has no style}
 
 test item-15.7 {item style elements} -body {
     .t item style elements 8 0
@@ -312,11 +312,11 @@ test item-15.16 {item style set: invalid item} -body {
 
 test item-15.17 {item style set: without args returns all styles} -body {
     .t item style set 2
-} -result {}
+} -result {{}}
 
 test item-15.18 {item style set: without args returns style} -body {
     .t item style set 2 0
-} -returnCodes error -result {item 2 doesn't have column 0}
+} -result {}
 
 test item-15.19 {item style set: without args returns style} -body {
     .t item style set 8 0
diff --git a/tests/notify-old.test b/tests/notify-old.test
index 80ac230..873ec51 100644
--- a/tests/notify-old.test
+++ b/tests/notify-old.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: notify-old.test,v 1.2 2005/05/11 03:31:59 treectrl Exp $
+# CVS: @(#) $Id: notify-old.test,v 1.3 2005/07/15 01:43:39 treectrl Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2
@@ -26,7 +26,7 @@ test notify-0.1 {some needed preparations} -body {
 
 test notify-1.1 {notify: missing args} -body {
     .t notify
-} -returnCodes error -result {wrong # args: should be ".t notify command ?arg arg...?"}
+} -returnCodes error -result {wrong # args: should be ".t notify command ?arg arg ...?"}
 
 test notify-1.2 {notify: unknown command} -body {
     .t notify foo
@@ -38,7 +38,7 @@ test notify-2.1 {notify eventnames: too much args} -body {
 
 test notify-2.2 {notify eventnames: nothing own installed yet} -body {
     lsort [.t notify eventnames]
-} -result {ActiveItem Collapse Expand ItemDelete Scroll Selection}
+} -result {ActiveItem Collapse Expand ItemDelete ItemVisibility Scroll Selection}
 
 test notify-2.3 {notify install: missing args} -body {
     .t notify install
@@ -63,7 +63,7 @@ test notify-2.7 {notify install event} -body {
 
 test notify-2.8 {notify eventnames: list Greetings} -body {
     lsort [.t notify eventnames]
-} -result {ActiveItem Collapse Expand GoodBye Greetings ItemDelete Scroll Selection}
+} -result {ActiveItem Collapse Expand GoodBye Greetings ItemDelete ItemVisibility Scroll Selection}
 
 test notify-2.9 {notify detailnames: missing args} -body {
     .t notify detailnames
diff --git a/tests/notify.test b/tests/notify.test
index 3a1caf3..0e9ffc4 100644
--- a/tests/notify.test
+++ b/tests/notify.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: notify.test,v 1.4 2005/05/11 03:31:59 treectrl Exp $
+# CVS: @(#) $Id: notify.test,v 1.5 2005/07/15 01:43:39 treectrl Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2
@@ -26,7 +26,7 @@ test notify-0.1 {some needed preparations} -body {
 
 test notify-1.1 {notify: missing args} -body {
     .t notify
-} -returnCodes error -result {wrong # args: should be ".t notify command ?arg arg...?"}
+} -returnCodes error -result {wrong # args: should be ".t notify command ?arg arg ...?"}
 
 test notify-1.2 {notify: unknown command} -body {
     .t notify foo
@@ -38,7 +38,7 @@ test notify-2.1 {notify eventnames: too much args} -body {
 
 test notify-2.2 {notify eventnames: nothing own installed yet} -body {
     lsort [.t notify eventnames]
-} -result {ActiveItem Collapse Expand ItemDelete Scroll Selection}
+} -result {ActiveItem Collapse Expand ItemDelete ItemVisibility Scroll Selection}
 
 test notify-2.3 {notify install: missing args} -body {
     .t notify install
@@ -59,7 +59,7 @@ test notify-2.7 {notify install event} -body {
 
 test notify-2.8 {notify eventnames: list Greetings} -body {
     lsort [.t notify eventnames]
-} -result {ActiveItem Collapse Expand GoodBye Greetings ItemDelete Scroll Selection}
+} -result {ActiveItem Collapse Expand GoodBye Greetings ItemDelete ItemVisibility Scroll Selection}
 
 test notify-2.9 {notify detailnames: missing args} -body {
     .t notify detailnames
diff --git a/tests/style.test b/tests/style.test
index c2b6ab2..3c198c0 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.5 2005/06/03 02:39:59 treectrl Exp $
+# CVS: @(#) $Id: style.test,v 1.6 2005/07/15 01:43:39 treectrl Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2
@@ -34,7 +34,7 @@ test style-0.1 {some other preparations} -body {
 
 test style-1.1 {style: missing args} -body {
     .t style
-} -returnCodes error -result {wrong # args: should be ".t style command ?arg arg...?"}
+} -returnCodes error -result {wrong # args: should be ".t style command ?arg arg ...?"}
 
 test style-1.2 {style: invalid command} -body {
     .t style foo
@@ -46,7 +46,7 @@ test style-1.3 {style names: no style exists yet} -body {
 
 test style-2.1 {style create: missing args} -body {
     .t style create
-} -returnCodes error -result {wrong # args: should be ".t style create name ?option value...?"}
+} -returnCodes error -result {wrong # args: should be ".t style create name ?option value ...?"}
 
 test style-2.2 {style create: invalid option} -body {
     .t style create testStyle -foo bar
@@ -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 {}} -match glob
+} -result {-detach no -expand {} -height {} -iexpand {} *} -match glob
 
 test style-6.3 {style layout: option -padx} -body {
     .t style layout testStyle eText -padx 3
@@ -195,7 +195,7 @@ test style-6.17 {style layout: option invalid -detach} -body {
 test style-6.18 {style layout: option -detach} -body {
     .t style layout testStyle eText -detach true
     .t style layout testStyle eText -detach
-} -result {1}
+} -result {yes}
 
 test style-99.1 {some needed cleanup} -body {
     destroy .t
diff --git a/tests/treectrl.test b/tests/treectrl.test
index b2f180b..27a3b5d 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.26 2005/06/03 02:39:59 treectrl Exp $
+# RCS: @(#) $Id: treectrl.test,v 1.27 2005/07/15 01:43:39 treectrl Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2
@@ -497,7 +497,7 @@ test treectrl-2.37 {modifier cocktail} -body {
 
 test treectrl-5.1 {state: missing args} -body {
     .t state
-} -returnCodes error -result {wrong # args: should be ".t state command ?arg arg...?"}
+} -returnCodes error -result {wrong # args: should be ".t state command ?arg arg ...?"}
 
 test treectrl-5.2 {state: invalid command} -body {
     .t state foo
@@ -593,7 +593,7 @@ test treectrl-7.0 {some prerequisites for the marquee test} -body {
 
 test treectrl-7.1 {marquee: missing args} -body {
     .t marquee
-} -returnCodes error -result {wrong # args: should be ".t marquee command ?arg arg...?"}
+} -returnCodes error -result {wrong # args: should be ".t marquee command ?arg arg ...?"}
 
 test treectrl-7.2 {marquee: unknown command} -body {
     .t marquee foo
@@ -646,7 +646,7 @@ test treectrl-7.12 {marquee visible} -body {
 
 test treectrl-8.1 {selection: missing args} -body {
     .t selection
-} -returnCodes error -result {wrong # args: should be ".t selection command ?arg arg...?"}
+} -returnCodes error -result {wrong # args: should be ".t selection command ?arg arg ...?"}
 
 test treectrl-8.2 {selection: unknown command} -body {
     .t selection foo
@@ -902,7 +902,7 @@ test treectrl-15.11 {identify: item (to the right)} -body {
 
 test treectrl-16.1 {dragimage: missing args} -body {
     .t dragimage
-} -returnCodes error -result {wrong # args: should be ".t dragimage command ?arg arg...?"}
+} -returnCodes error -result {wrong # args: should be ".t dragimage command ?arg arg ...?"}
 
 test treectrl-16.2 {dragimage: unknown command} -body {
     .t dragimage foo