diff options
| author | Steve Bennett <steveb@workware.net.au> | 2011-11-10 10:49:17 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2011-11-25 08:07:34 +1000 |
| commit | 1c0305373f999c852fcbeb4e9a924109ed475347 (patch) | |
| tree | eae6998a089d0cd276ce920412a19454e1b9e660 /tests/misc.test | |
| parent | c50c6179e331754b4c24913abb5d24628562d467 (diff) | |
| download | jimtcl-1c0305373f999c852fcbeb4e9a924109ed475347.zip jimtcl-1c0305373f999c852fcbeb4e9a924109ed475347.tar.gz jimtcl-1c0305373f999c852fcbeb4e9a924109ed475347.tar.bz2 | |
Add [info statics]
To access static variables (names and values) of a proc
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/misc.test')
| -rw-r--r-- | tests/misc.test | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/misc.test b/tests/misc.test index 5a851bc..925283e 100644 --- a/tests/misc.test +++ b/tests/misc.test @@ -554,4 +554,10 @@ test eval-list-1.1 {Lost string rep with list} { list [catch $x] $y } {0 2} +test info-statics-1.1 {info statics commands} { + set x 1 + proc a {} {x {y 2}} {} + info statics a +} {x 1 y 2} + testreport |