From 1c0305373f999c852fcbeb4e9a924109ed475347 Mon Sep 17 00:00:00 2001 From: Steve Bennett Date: Thu, 10 Nov 2011 10:49:17 +1000 Subject: Add [info statics] To access static variables (names and values) of a proc Signed-off-by: Steve Bennett --- tests/misc.test | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'tests/misc.test') 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 -- cgit v1.1