removed obsolete code

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]} {

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"
 }