Author: coke
Date: Fri Jul 18 19:24:32 2008
New Revision: 29605
Modified:
trunk/languages/tcl/lib/test_more.tcl
Log:
[tcl] fix `fudge' processing for tcl spec tests; the misplaced [global] caused
our variable to get trounced instead of saved, causing us to try to keep
running the tests after we knew we'd explode.
Modified: trunk/languages/tcl/lib/test_more.tcl
==============================================================================
--- trunk/languages/tcl/lib/test_more.tcl (original)
+++ trunk/languages/tcl/lib/test_more.tcl Fri Jul 18 19:24:32 2008
@@ -122,11 +122,12 @@
# A placeholder that simulates the real tcltest's exported test proc.
proc test {num description args} {
global skipped_tests
+ global abort_after
if {![info exists skipped_tests]} {
# get listing of all the tests we can't run.
source lib/skipped_tests.tcl
}
- global abort_after
+
set full_desc "$num $description"
set should_skip [dict filter $skipped_tests script {K V} {
