Artifact
2123e75021d66a94d540d90d9bbeae9ca84eca91:
Attachment "2888130.patch" to
ticket [2888130fff]
added by
dgp
2009-10-29 23:55:33.
Index: library/tcltest/tcltest.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/library/tcltest/tcltest.tcl,v
retrieving revision 1.103.2.3
diff -u -r1.103.2.3 tcltest.tcl
--- library/tcltest/tcltest.tcl 1 Sep 2009 14:13:02 -0000 1.103.2.3
+++ library/tcltest/tcltest.tcl 29 Oct 2009 16:53:20 -0000
@@ -2743,7 +2743,21 @@
if {[singleProcess]} {
incr numTestFiles
+ set startVars [uplevel 1 {::info vars}]
uplevel 1 [list ::source $file]
+ DebugDo 1 {
+ set litter {}
+ foreach v [uplevel 1 {::info vars}] {
+ if {$v ni $startVars} {
+ lappend litter $v
+ }
+ }
+ if {[llength $litter]} {
+ puts [outputChannel] \
+ "Test file $file left behind variables:\n\t$litter"
+ }
+ }
+ set endVars [uplevel 1 {::info vars}]
} else {
# Pass along our configuration to the child processes.
# EXCEPT for the -outfile, because the parent process