diff options
author | dgp <dgp@users.sourceforge.net> | 2016-07-13 19:19:37 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2016-07-13 19:19:37 (GMT) |
commit | 3b683df1e48d9d51f9236172e8f7c196ed20cb7b (patch) | |
tree | aee777d4a4c29372e4e1242d205a83cba7b87839 /tests/set-old.test | |
parent | ab2a78be642be26075e2998347d71359a6b3c500 (diff) | |
parent | 09c67efdce34a8588ab4cb53e007e8ec603dc081 (diff) | |
download | tcl-3b683df1e48d9d51f9236172e8f7c196ed20cb7b.zip tcl-3b683df1e48d9d51f9236172e8f7c196ed20cb7b.tar.gz tcl-3b683df1e48d9d51f9236172e8f7c196ed20cb7b.tar.bz2 |
merge 8.6
Diffstat (limited to 'tests/set-old.test')
-rw-r--r-- | tests/set-old.test | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/set-old.test b/tests/set-old.test index 0e9ca63..93169f1 100644 --- a/tests/set-old.test +++ b/tests/set-old.test @@ -14,7 +14,7 @@ # of this file, and for a DISCLAIMER OF ALL WARRANTIES. if {[lsearch [namespace children] ::tcltest] == -1} { - package require tcltest + package require tcltest 2 namespace import -force ::tcltest::* } @@ -865,6 +865,8 @@ test set-old-10.13 {array enumeration errors} { list [catch {array done a b c} msg] $msg } {1 {wrong # args: should be "array donesearch arrayName searchId"}} test set-old-10.14 {array enumeration errors} { + catch {unset a} + set a(a) a list [catch {array done a b} msg] $msg } {1 {illegal search identifier "b"}} test set-old-10.15 {array enumeration errors} { |