removed obsolete code

diff --git a/tests/support/test.tcl b/tests/support/test.tcl
index 1fdeb1e9a49777353696fe0115b6f6e4b6668415..a7bcc80186af55390f962ff9a4d4da3554dee363 100644 (file)
--- a/tests/support/test.tcl
+++ b/tests/support/test.tcl
@@ -4,7 +4,6 @@ set ::testnum 0
 
 proc test {name code okpattern} {
     incr ::testnum
-    # if {$::testnum < $::first || $::testnum > $::last} return
     puts -nonewline [format "#%03d %-68s " $::testnum $name]
     flush stdout
     if {[catch {set retval [uplevel 1 $code]} error]} {

diff --git a/tests/test_helper.tcl b/tests/test_helper.tcl
index 49239a3a96242e691025d628323b19b3564f2a7d..69d9bbf945762b14df7a9be7d139c8be416d6a90 100644 (file)
--- a/tests/test_helper.tcl
+++ b/tests/test_helper.tcl
@@ -15,7 +15,6 @@ set ::traceleaks 0
 set ::valgrind 0
 
 proc execute_tests name {
-    set cur $::testnum
     source "tests/$name.tcl"
 }