Fix error handling

[libucw.git] / build / tester

diff --git a/build/tester b/build/tester
index da4fab3b7587a5cbcedb8b7186fabc78929a1e09..da452370ae31c4957e4fbe891e9b56a71efb6183 100755 (executable)
--- a/build/tester
+++ b/build/tester
@@ -84,8 +84,10 @@ my $errors = 0;
 my $prev_run = undef;
 TEST: foreach $tt (@tests) {
        $i++;
-       my $name = $tt->{'Name'} || $i;
-       print "Test $name: ";
+       my $name = $tt->{'Name'};
+       printf "Test %03d", $i;
+       print " [$name]" if defined $name;
+       print ": ";
        $run = ($tt->{'Run'} || $prev_run) or die "Don't know what to run";
        $prev_run = $run;