summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2010-02-02 16:12:00 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2010-02-02 16:12:00 (GMT)
commitce9bf924511484c14218bd13b2abf5cfc9967c25 (patch)
tree5d833ae8b02170afdeff4568db0b0c3b4041b30d /tests
parent10c9ce76f08286c1d9c1a229c633bf12576c25c5 (diff)
downloadtcl-ce9bf924511484c14218bd13b2abf5cfc9967c25.zip
tcl-ce9bf924511484c14218bd13b2abf5cfc9967c25.tar.gz
tcl-ce9bf924511484c14218bd13b2abf5cfc9967c25.tar.bz2
Turned the [array] command into a true ensemble. Test changes indicate some
alteration to error messages, otherwise no change.
Diffstat (limited to 'tests')
-rw-r--r--tests/set-old.test12
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"}}