Turned the [array] command into a true ensemble. Test changes indicate some

alteration to error messages, otherwise no change.

1 files changed, 6 insertions, 6 deletions

diff --git a/tests/set-old.test b/tests/set-old.test
index 150d6f7..54befbd 100644
--- a/tests/set-old.test
+++ b/tests/set-old.test
@@ -13,7 +13,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: set-old.test,v 1.21 2009/06/24 15:17:40 dgp Exp $
+# RCS: @(#) $Id: set-old.test,v 1.22 2010/02/02 16:12:01 dkf Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -312,10 +312,10 @@ test set-old-7.18 {unset command, -nocomplain (no abbreviation)} {
 
 test set-old-8.1 {array command} {
     list [catch {array} msg] $msg
-} {1 {wrong # args: should be "array option arrayName ?arg ...?"}}
+} {1 {wrong # args: should be "array subcommand ?arg ...?"}}
 test set-old-8.2 {array command} {
     list [catch {array a} msg] $msg
-} {1 {wrong # args: should be "array option arrayName ?arg ...?"}}
+} {1 {wrong # args: should be "array anymore arrayName searchId"}}
 test set-old-8.3 {array command} {
     catch {unset a}
     list [catch {array anymore a b} msg] $msg
@@ -337,7 +337,7 @@ test set-old-8.6 {array command} {
     catch {unset a}
     set a(22) 3
     list [catch {array gorp a} msg] $msg
-} {1 {bad option "gorp": must be anymore, donesearch, exists, get, names, nextelement, set, size, startsearch, statistics, or unset}}
+} {1 {unknown or ambiguous subcommand "gorp": must be anymore, donesearch, exists, get, names, nextelement, set, size, startsearch, statistics, or unset}}
 test set-old-8.7 {array command, anymore option} {
     catch {unset a}
     list [catch {array anymore a x} msg] $msg
@@ -387,7 +387,7 @@ test set-old-8.14 {array command, exists option, array doesn't exist yet but has
 } {0 0}
 test set-old-8.15 {array command, get option} {
     list [catch {array get} msg] $msg
-} {1 {wrong # args: should be "array option arrayName ?arg ...?"}}
+} {1 {wrong # args: should be "array get arrayName ?pattern?"}}
 test set-old-8.16 {array command, get option} {
     list [catch {array get a b c} msg] $msg
 } {1 {wrong # args: should be "array get arrayName ?pattern?"}}
@@ -788,7 +788,7 @@ test set-old-9.12 {array enumeration with traced undefined elements} {
 
 test set-old-10.1 {array enumeration errors} {
     list [catch {array start} msg] $msg
-} {1 {wrong # args: should be "array option arrayName ?arg ...?"}}
+} {1 {wrong # args: should be "array startsearch arrayName"}}
 test set-old-10.2 {array enumeration errors} {
     list [catch {array start a b} msg] $msg
 } {1 {wrong # args: should be "array startsearch arrayName"}}