diff options
author | Steve Bennett <steveb@workware.net.au> | 2014-01-12 16:31:02 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2014-01-15 20:30:11 +1000 |
commit | a7e96fdcfdcadcdc728044e7fcaae25c1b09422f (patch) | |
tree | 02cdc589b10cecf83bf5b817563e4d71fef2ea70 /tests | |
parent | 22ef663868aede82b0fd68a23c0239b74addbd7e (diff) | |
download | jimtcl-a7e96fdcfdcadcdc728044e7fcaae25c1b09422f.zip jimtcl-a7e96fdcfdcadcdc728044e7fcaae25c1b09422f.tar.gz jimtcl-a7e96fdcfdcadcdc728044e7fcaae25c1b09422f.tar.bz2 |
jim.c: simplify JimDictExpandArrayVariable()
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests')
-rw-r--r-- | tests/array.test | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/tests/array.test b/tests/array.test index 06e7198..ba88147 100644 --- a/tests/array.test +++ b/tests/array.test @@ -68,21 +68,21 @@ test array-1.11 "array unset - all" { list [array size b] [array exists b] } {0 0} -test array-1.12 "array set to invalid variable" { +test array-1.12 "array set to invalid variable" -body { unset -nocomplain a b set a 1 - catch {array set a(1) {b c}} -} {1} + array set a(1) {b c} +} -returnCodes error -result {can't set "a(1)": variable isn't array} -test array-1.13 "unset missing array element" { +test array-1.13 "unset missing array element" -body { unset -nocomplain a set a(1) one - catch {unset a(2)} -} 1 + unset a(2) +} -returnCodes error -result {can't unset "a(2)": no such element in array} -test array-1.14 "access array via unset var" { +test array-1.14 "access array via unset var" -body { unset -nocomplain b - catch {expr {$a($b) + 4}} -} 1 + expr {$a($b) + 4} +} -returnCodes error -result {can't read "b": no such variable} testreport |