diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2016-07-12 21:25:27 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2016-07-12 21:25:27 (GMT) |
commit | b158cee02890bb3c7bfc278400fd93b16fa35490 (patch) | |
tree | 5d6cd03e93a051347045c9dc4821bf3ec1b0dab2 /tests/set-old.test | |
parent | bcd1ebff474ba386f8fb7db75692a39ce5bcb8ca (diff) | |
download | tcl-b158cee02890bb3c7bfc278400fd93b16fa35490.zip tcl-b158cee02890bb3c7bfc278400fd93b16fa35490.tar.gz tcl-b158cee02890bb3c7bfc278400fd93b16fa35490.tar.bz2 |
[3606388] Make variable-related tests work on their own.
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 94b6901..1c68f91 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} { |