mono/tests/test-driver


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

#!/usr/bin/perl -w

my $interpreter = shift;
my $test = shift;
my $output = $test;
my $stdout = $test.'.stdout';
my $stderr = $test.'.stderr';

$output =~ s/\.exe$/.output/;

$| = 0;
print "Testing $test... ";

my $res = system("$interpreter $test 2>/dev/null 1>$stdout");

if ($res) {
	printf ("failed $? (%d) signal (%d).\n", $? >> 8, $? & 127);
	exit (1);
} elsif (-f $output) {
	print "failed output.\n" if (read_file ($output) ne read_file ($stdout));
	exit (1);
} else {
	print "pass.\n";
	#unlink ($result);
}
exit (0);

sub read_file {
	local ($/);
	my $out = shift;
	open (F, "<$out") || die $!;
	$out = <F>;
	close(F);
	return $out;
}