Commit 38273a9e authored by Pieter Noordhuis's avatar Pieter Noordhuis
Browse files

removed obsolete code

parent 436f18b6
...@@ -4,7 +4,6 @@ set ::testnum 0 ...@@ -4,7 +4,6 @@ set ::testnum 0
proc test {name code okpattern} { proc test {name code okpattern} {
incr ::testnum incr ::testnum
# if {$::testnum < $::first || $::testnum > $::last} return
puts -nonewline [format "#%03d %-68s " $::testnum $name] puts -nonewline [format "#%03d %-68s " $::testnum $name]
flush stdout flush stdout
if {[catch {set retval [uplevel 1 $code]} error]} { if {[catch {set retval [uplevel 1 $code]} error]} {
......
...@@ -15,7 +15,6 @@ set ::traceleaks 0 ...@@ -15,7 +15,6 @@ set ::traceleaks 0
set ::valgrind 0 set ::valgrind 0
proc execute_tests name { proc execute_tests name {
set cur $::testnum
source "tests/$name.tcl" source "tests/$name.tcl"
} }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment