the init-hook of the main section inserts a few nodes into the link-list

[libucw.git] / build / tester

diff --git a/build/tester b/build/tester
index f2daedc13dd7f2d5b2477741fb7842dd2077a3b3..a9bdfd60f7de2f2c350942917361814b7e605dd0 100755 (executable)
--- a/build/tester
+++ b/build/tester
@@ -28,10 +28,12 @@ while (<>) {
 
 my $i = 0;
 my $errors = 0;
+my $prev_run = undef;
 foreach $tt (@tests) {
        $i++;
        print "Test $i: ";
-       my $run = $tt->{'Run'} or die "Don't know what to run";
+       $run = ($tt->{'Run'} || $prev_run) or die "Don't know what to run";
+       $prev_run = $run;
        my ($ifi, $ofi);
        if (defined $tt->{'In'}) {
                $ifi = "run/tmp/test$i.in";