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/uplevel.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/uplevel.test')
| -rw-r--r-- | tests/uplevel.test | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/uplevel.test b/tests/uplevel.test index e91a5ea..004e387 100644 --- a/tests/uplevel.test +++ b/tests/uplevel.test @@ -23,6 +23,9 @@ proc newset {name value} { uplevel set $name $value uplevel 1 {uplevel 1 {set xyz 22}} } +proc b {x y} { + uplevel #0 set $x $y +} test uplevel-1.1 {simple operation} { set xyz 0 @@ -109,4 +112,13 @@ a2 test uplevel-5.1 {info level} {set x} 1 test uplevel-5.2 {info level} {set y} a3 +test uplevel-6.1 {uplevel #0} { + b g1 g1val + set ::g1 +} g1val + +test uplevel-6.2 {uplevel #bad} { + catch {uplevel #bad set x 1} +} 1 + testreport |