diff options
author | Steve Bennett <steveb@workware.net.au> | 2011-05-23 23:10:23 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2011-05-24 12:08:03 +1000 |
commit | 041a334f525021c6e7015d537a56d44352d95b10 (patch) | |
tree | 5a60366036a3c029b756441059ca3059eccd3cbc /tests/array.test | |
parent | 2dd84967ea821e7bf650b8efcb8297122b83ad9b (diff) | |
download | jimtcl-041a334f525021c6e7015d537a56d44352d95b10.zip jimtcl-041a334f525021c6e7015d537a56d44352d95b10.tar.gz jimtcl-041a334f525021c6e7015d537a56d44352d95b10.tar.bz2 |
Small code cleanups
Remove Jim_SetWide() since it is only used by incr
More tests for better test coverage
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/array.test')
-rw-r--r-- | tests/array.test | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/array.test b/tests/array.test index 408c4e3..999e41f 100644 --- a/tests/array.test +++ b/tests/array.test @@ -2,6 +2,7 @@ source [file dirname [info script]]/testing.tcl needs cmd array +unset -nocomplain a array set a { 1 one 2 two @@ -73,4 +74,15 @@ test array-1.12 "array set to invalid variable" { catch {array set a(1) {b c}} } {1} +test array-1.13 "unset missing array element" { + unset -nocomplain a + set a(1) one + catch {unset a(2)} +} 1 + +test array-1.14 "access array via unset var" { + unset -nocomplain b + catch {expr {$a($b) + 4}} +} 1 + testreport |