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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
#!/usr/bin/perl -w
use strict;
use IPC::Open3;
sub remove ($$) {
my ($val, $arr) = @_;
my $had = 0;
my @hasnt = ();
for my $v (@$arr) {
if ($v == $val) { $had = 1; }
else { push @hasnt, $v; }
}
return ($had, \@hasnt);
}
# Setting $strict to 1 enables line number checks, setting it to 2 makes
# line number mismatches fatal.
my $strict = 2;
my $failures = 0;
if ($#ARGV != 1) {
print STDERR "Usage: $0 testcase.cs testcase.out\n";
exit 1;
}
my %errors = ();
my %warnings = ();
my %lines = ();
my $csfile = $ARGV [0];
my $mcsout = $ARGV [1];
my $input;
my $line = 0;
open (INPUT, "<$csfile") or die
"Can't open testcase: $!";
while (defined ($input = <INPUT>)) {
++$line;
chop $input;
next unless $input =~ m,^\s*//\s*(error|warning)?\s*(CS\d+),;
if ((defined $1) and ($1 eq 'warning')) {
push @{$warnings{$2}}, $line+1;
} else {
push @{$errors{$2}}, $line+1;
}
$lines{$line+1} = $2;
}
close INPUT;
open (MCS, "$mcsout") or die
"Can't open compiler output file: $!";
while (defined ($input = <MCS>)) {
chop $input;
next unless $input =~ m,\((\d+)\)\s+(warning|error)\s+(CS\d+):,;
my $had;
if ($2 eq 'warning') {
($had, $warnings{$3}) = remove $1, $warnings{$3};
if ($strict && ! $had) {
print "Didn't expect any warnings on line $1, but got $2 $3.\n";
$failures++ if $strict == 2;
}
} else {
($had, $errors{$3}) = remove $1, $errors{$3};
if ($strict && ! $had) {
print "Didn't expect any errors on line $1, but got $2 $3.\n";
$failures++ if $strict == 2;
}
}
print "Expected to find ".$lines{$1}." on line $1, but got $3.\n"
if $strict and $lines{$1} ne $3;
}
close MCS;
foreach my $error (keys %errors) {
print "Failed to report error $error on line $_\n"
for @{$errors{$error}};
$failures += @{$errors{$error}};
}
foreach my $warning (keys %warnings) {
print "Failed to report warning $warning on line $_\n"
for @{$warnings{$warning}};
$failures += @{$warnings{$warning}};
}
exit ($failures != 0);
|
