Tools/Scripts/update-javascriptcore-test-results

   1 #!/usr/bin/perl -w
   2
   3 # Copyright (C) 2005, 2007 Apple Inc. All rights reserved.
   4 #
   5 # Redistribution and use in source and binary forms, with or without
   6 # modification, are permitted provided that the following conditions
   7 # are met:
   8 #
   9 # 1.  Redistributions of source code must retain the above copyright
  10 #     notice, this list of conditions and the following disclaimer.
  11 # 2.  Redistributions in binary form must reproduce the above copyright
  12 #     notice, this list of conditions and the following disclaimer in the
  13 #     documentation and/or other materials provided with the distribution.
  14 # 3.  Neither the name of Apple Computer, Inc. ("Apple") nor the names of
  15 #     its contributors may be used to endorse or promote products derived
  16 #     from this software without specific prior written permission.
  17 #
  18 # THIS SOFTWARE IS PROVIDED BY APPLE AND ITS CONTRIBUTORS "AS IS" AND ANY
  19 # EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
  20 # WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
  21 # DISCLAIMED. IN NO EVENT SHALL APPLE OR ITS CONTRIBUTORS BE LIABLE FOR ANY
  22 # DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
  23 # (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
  24 # LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
  25 # ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  26 # (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
  27 # THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  28
  29 use strict;
  30 use FindBin;
  31 use Getopt::Long;
  32 use lib $FindBin::Bin;
  33 use webkitdirs;
  34
  35 chdirWebKit();
  36 chdir "Source/JavaScriptCore/tests/mozilla" or die;
  37
  38 my $force = 0;
  39 GetOptions('force' => \$force);
  40
  41 open EXPECTED, "expected.html" or die;
  42 while (<EXPECTED>) {
  43     last if /failures reported\.$/;
  44 }
  45 my %expected;
  46 while (<EXPECTED>) {
  47     chomp;
  48     $expected{$_} = 1;
  49 }
  50 close EXPECTED;
  51
  52 open ACTUAL, "actual.html" or die;
  53 my $actual;
  54 while (<ACTUAL>) {
  55     $actual .= $_;
  56     last if /failures reported\.$/;
  57 }
  58 my $failed = 0;
  59 while (<ACTUAL>) {
  60     $actual .= $_;
  61     chomp;
  62     if (!$expected{$_}) {
  63         $failed = 1;
  64         print "failure not expected: $_\n";
  65     }
  66 }
  67 close ACTUAL;
  68
  69 die "won't update, failures introduced\n" if $failed && !$force;
  70
  71 open EXPECTED, ">expected.html";
  72 print EXPECTED $actual;
  73 close EXPECTED;