diff options
Diffstat (limited to 'contrib/bluegnu2.0.3/testsuite/T/env.exp')
| -rw-r--r-- | contrib/bluegnu2.0.3/testsuite/T/env.exp | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/contrib/bluegnu2.0.3/testsuite/T/env.exp b/contrib/bluegnu2.0.3/testsuite/T/env.exp new file mode 100644 index 0000000..ce48f79 --- /dev/null +++ b/contrib/bluegnu2.0.3/testsuite/T/env.exp @@ -0,0 +1,12 @@ + +uplevel #0 { + foreach var [lsort [info globals]] { + if {[array exists $var]} { + foreach index [lsort [array names $var]] { + puts "${var}($index)=[set ${var}($index)]" + } + } else { + puts "$var=[set $var]" + } + } +} |