Fix error handling

[libucw.git] / build / tester

diff --git a/build/tester b/build/tester
index 6a827b194ffcacbe08829bde52ed189636fb7050..da452370ae31c4957e4fbe891e9b56a71efb6183 100755 (executable)
--- a/build/tester
+++ b/build/tester
@@ -69,6 +69,7 @@ while (<>) {
                        last if $line eq $sep;
                        $tt->{$n} .= $line;
                }
+               chomp $tt->{$n};
        } else {
                die "Test script syntax error";
        }
@@ -83,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;