X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=judge%2Ftester;h=d467b98fa6b1e05a68604264b24daaf361082575;hb=50cc126ebe949259a54f153a123848d771601b77;hp=fd6cce3fcd620b886260d7178828793b921c1bd8;hpb=c64674add29caf7d49806e2fc39152ecc3168443;p=eval.git

diff --git a/judge/tester b/judge/tester
index fd6cce3..d467b98 100755
--- a/judge/tester
+++ b/judge/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;
@@ -63,7 +67,6 @@ TEST: foreach $tt (@tests) {
 
 	my @out_files = ();
 	my @out_checks = ();
-	my @temps = ();
 	my $redirs = "";
 
 	if (defined $tt->{'In'}) {
@@ -72,7 +75,6 @@ TEST: foreach $tt (@tests) {
 		print X $tt->{'In'}, "\n";
 		close X;
 		$redirs .= " <$ifi";
-		push @temps, $ifi;
 	} else {
 		$redirs .= " </dev/null";
 	}
@@ -80,7 +82,6 @@ TEST: foreach $tt (@tests) {
 		my $ofi = "tmp/test$i.out";
 		unlink "$rundir/$ofi";
 		$redirs .= " >$ofi";
-		push @temps, $ofi;
 		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";
-			push @temps, $f;
 			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;
-			push @temps, $f;
 		}
 	}
 	$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 $rundir/tmp/test$i.*";
 	print "OK\n";
 }