Fixed various commands using an arbitrary item if multiple items were specified but forbidden.

1 files changed, 14 insertions, 14 deletions

diff --git a/tests/item.test b/tests/item.test
index ea3cbb1..e76cc77 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.15 2006/10/04 04:43:27 treectrl Exp $
+# CVS: @(#) $Id: item.test,v 1.16 2006/10/14 20:21:03 treectrl Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2
@@ -231,11 +231,11 @@ test item-14.6 {item element perstate: with stateList} -body {
 
 test item-14.7 {item element perstate: all items} -body {
     .t item element perstate all column0 eText -fill {selected}
-} -returnCodes error -result {item 0 column 0 has no style}
+} -returnCodes error -result {can't specify > 1 item for this command}
 
 test item-14.8 {item element perstate: several items} -body {
     .t item element perstate {list {8 root}} column0 eText -fill {selected}
-} -result {blue}
+} -returnCodes error -result {can't specify > 1 item for this command}
 
 test item-14.21 {item element cget: missing arg} -body {
     .t item element cget 8 column0 eText
@@ -251,11 +251,11 @@ test item-14.23 {item element cget: single item, get -fill} -body {
 
 test item-14.24 {item element cget: all items, get -fill} -body {
     .t item element cget all column0 eText -fill
-} -returnCodes error -result {item 0 column 0 has no style}
+} -returnCodes error -result {can't specify > 1 item for this command}
 
 test item-14.25 {item element cget: multiple items, get -fill} -body {
     .t item element cget {list {8 1 3}} column0 eText -fill
-} -result {}
+} -returnCodes error -result {can't specify > 1 item for this command}
 
 test item-14.31 {item element configure: get all config info} -body {
     .t item element configure 8 column0 eText
@@ -272,11 +272,11 @@ test item-14.33 {item element configure: single item, get -fill} -body {
 
 test item-14.34 {item element configure: all items, get -fill} -body {
     .t item element configure all column0 eText -fill
-} -returnCodes error -result {item 0 column 0 has no style}
+} -returnCodes error -result {can't specify > 1 item for this command}
 
 test item-14.35 {item element configure: several items, get -fill} -body {
     .t item element configure {list {8 3}} column0 eText -fill
-} -result {-fill {} {} {} yellow}
+} -returnCodes error -result {can't specify > 1 item for this command}
 
 test item-14.36 {item element configure: all items, set -fill} -body {
     .t item style set all column0 testStyle
@@ -634,7 +634,7 @@ test item-16.43 {item state forcolumn: get for single item} -body {
 
 test item-16.44 {item state forcolumn: get for all} -body {
     .t item state forcolumn all 0
-} -result {}
+} -returnCodes error -result {can't specify > 1 item for this command}
 
 test item-16.45 {item state forcolumn: set for single item} -body {
     .t item state forcolumn 8 0 state0
@@ -669,7 +669,7 @@ test item-17.2 {item sort: invalid item} -body {
 
 test item-17.3 {item sort: is all allowed?} -body {
     .t item sort all
-} -returnCodes error -result {can't specify "all" for this command}
+} -returnCodes error -result {can't specify > 1 item for this command}
 
 test item-17.4 {item sort: invalid option} -body {
     .t item sort root -foo
@@ -956,7 +956,7 @@ test item-18.5 {item enabled: single item set} -body {
 
 test item-18.6 {item enabled: all get} -body {
     .t item enabled all
-} -result {0}
+} -returnCodes error -result {can't specify > 1 item for this command}
 
 test item-18.7 {item enabled: all set} -body {
     .t item enabled all false
@@ -969,7 +969,7 @@ test item-18.7 {item enabled: all set} -body {
 
 test item-18.8 {item enabled: multi get} -body {
     .t item enabled {list {2 4 7}}
-} -result {0}
+} -returnCodes error -result {can't specify > 1 item for this command}
 
 test item-18.9 {item enabled: multi set} -body {
     .t item enabled {list {2 4 7}} true
@@ -986,7 +986,7 @@ test item-19.1 {item text: too few args} -body {
 
 test item-19.2 {item text: all items, get every column} -body {
     .t item text all
-} -result {}
+} -returnCodes error -result {can't specify > 1 item for this command}
 
 test item-19.3 {item text: all items, set first column} -body {
     .t column create
@@ -1001,7 +1001,7 @@ test item-19.3 {item text: all items, set first column} -body {
 
 test item-19.4 {item text: all items, get first column} -body {
     .t item text all first
-} -result {abc}
+} -returnCodes error -result {can't specify > 1 item for this command}
 
 test item-19.5 {item text: several items, set first column} -body {
     .t item text {list {2 4 6 8}} first def
@@ -1014,7 +1014,7 @@ test item-19.5 {item text: several items, set first column} -body {
 
 test item-19.6 {item text: several items, get first column} -body {
     .t item text {list {2 4 6 8}} first
-} -result {def}
+} -returnCodes error -result {can't specify > 1 item for this command}
 
 test item-20.1 {item tag: too few args} -body {
     .t item tag