diff options
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 |