JavaScriptCore:
[WebKit-https.git] / WebKitTools / Scripts / update-javascriptcore-test-results
1 #!/usr/bin/perl -w
2
3 use strict;
4 use FindBin;
5 use lib $FindBin::Bin;
6 use webkitdirs;
7
8 chdirWebKit();
9 chdir "JavaScriptCore/tests/mozilla/" or die;
10
11 open EXPECTED, "expected.html";
12 while (<EXPECTED>) {
13     last if /failures reported\.$/;
14 }
15 my %expected;
16 while (<EXPECTED>) {
17     chomp;
18     $expected{$_} = 1;
19 }
20 close EXPECTED;
21
22 open ACTUAL, "actual.html";
23 my $actual;
24 while (<ACTUAL>) {
25     $actual .= $_;
26     last if /failures reported\.$/;
27 }
28 my $failed = 0;
29 while (<ACTUAL>) {
30     $actual .= $_;
31     chomp;
32     if (!$expected{$_}) {
33         $failed = 1;
34         print "failure not expected: $_\n";
35     }
36 }
37 close ACTUAL;
38
39 die "won't update, failures introduced" if $failed;
40
41 open EXPECTED, ">expected.html";
42 print EXPECTED $actual;
43 close EXPECTED;