From 3c9587340bcd62eef8e246fcd1c0a2469943898f Mon Sep 17 00:00:00 2001 From: Steve Bennett Date: Sat, 8 Jul 2023 12:07:13 +1000 Subject: tests: misc: improve 'info statics' test To show that it returns the current values, not just the original values Signed-off-by: Steve Bennett --- tests/misc.test | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/tests/misc.test b/tests/misc.test index cffb0a6..ac6fb75 100644 --- a/tests/misc.test +++ b/tests/misc.test @@ -579,8 +579,10 @@ test eval-list-1.1 {Lost string rep with list} { test info-statics-1.1 {info statics commands} { set x 1 - proc a {} {x {y 2}} {} - lsort [info statics a] -} {1 2 x y} + proc a {} {x {y 2}} { incr x; incr y} + a + # Returns the dict of the current static variables + info statics a +} {x 2 y 3} testreport -- cgit v1.1