Resources: res_new() requires an active pool

[libucw.git] / build / tester

diff --git a/build/tester b/build/tester
index fd6cce3fcd620b886260d7178828793b921c1bd8..f66713e18c45bd4c0f3d12faaa4bc806d6f71696 100755 (executable)
--- a/build/tester
+++ b/build/tester
@@ -51,6 +51,10 @@ while (<>) {
        }
 }
 
        }
 }
 

+if (! -d "$rundir/tmp") {
+       mkdir "$rundir/tmp" or die "Unable to create $rundir/tmp: $!";
+}
+

 my $i = 0;
 my $errors = 0;
 my $prev_run = undef;
 my $i = 0;
 my $errors = 0;
 my $prev_run = undef;


@@ -63,7 +67,6 @@ TEST: foreach $tt (@tests) {
 
        my @out_files = ();
        my @out_checks = ();
 
        my @out_files = ();
        my @out_checks = ();

-       my @temps = ();

        my $redirs = "";
 
        if (defined $tt->{'In'}) {
        my $redirs = "";
 
        if (defined $tt->{'In'}) {


@@ -72,7 +75,6 @@ TEST: foreach $tt (@tests) {
                print X $tt->{'In'}, "\n";
                close X;
                $redirs .= " <$ifi";
                print X $tt->{'In'}, "\n";
                close X;
                $redirs .= " <$ifi";

-               push @temps, $ifi;

        } else {
                $redirs .= " </dev/null";
        }
        } else {
                $redirs .= " </dev/null";
        }


@@ -80,7 +82,6 @@ TEST: foreach $tt (@tests) {
                my $ofi = "tmp/test$i.out";
                unlink "$rundir/$ofi";
                $redirs .= " >$ofi";
                my $ofi = "tmp/test$i.out";
                unlink "$rundir/$ofi";
                $redirs .= " >$ofi";

-               push @temps, $ofi;

                push @out_files, $ofi;
                push @out_checks, $tt->{'Out'};
        } else {
                push @out_files, $ofi;
                push @out_checks, $tt->{'Out'};
        } else {


@@ -90,7 +91,6 @@ TEST: foreach $tt (@tests) {
                my $f = "tmp/test$i.$arg";
                if (defined $tt->{"Out$arg"}) {
                        unlink "$rundir/$f";
                my $f = "tmp/test$i.$arg";
                if (defined $tt->{"Out$arg"}) {
                        unlink "$rundir/$f";

-                       push @temps, $f;

                        push @out_files, $f;
                        push @out_checks, $tt->{"Out$arg"};
                }
                        push @out_files, $f;
                        push @out_checks, $tt->{"Out$arg"};
                }


@@ -98,7 +98,6 @@ TEST: foreach $tt (@tests) {
                        open X, ">$rundir/$f" or die "Unable to create $f";
                        print X $tt->{"In$arg"}, "\n";
                        close X;
                        open X, ">$rundir/$f" or die "Unable to create $f";
                        print X $tt->{"In$arg"}, "\n";
                        close X;

-                       push @temps, $f;

                }
        }
        $run =~ s/\$(\d)/tmp\/test$i.$1/g;
                }
        }
        $run =~ s/\$(\d)/tmp\/test$i.$1/g;


@@ -133,9 +132,7 @@ TEST: foreach $tt (@tests) {
                }
        }
 
                }
        }
 

-       foreach my $f (@temps) {
-               unlink "$rundir/$f";
-       }
+       system "rm -f $rundir/tmp/test$i.*";

        print "OK\n";
 }
 
        print "OK\n";
 }