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/proc-new.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/proc-new.test')
-rw-r--r-- | tests/proc-new.test | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/proc-new.test b/tests/proc-new.test index 1178e0c..9f18f64 100644 --- a/tests/proc-new.test +++ b/tests/proc-new.test @@ -98,4 +98,15 @@ test proc-3.2 "Rename optional args" { a B C D } {C D} +test proc-3.3 "dict sugar arg" { + proc a {b(c)} { return $b} + a 4 +} {c 4} + +test proc-3.4 "invalid upref in rightargs" { + proc a {{x 2} &b} { return $b} + unset -nocomplain B + catch {a B} +} 1 + testreport |