Unreviewed, don't rely on File::Slurp. This fixes part #1 of Linux bot breakage.
authorfpizlo@apple.com <fpizlo@apple.com@268f45cc-cd09-0410-ab3c-d52691b4dbfc>
Thu, 5 Sep 2013 07:18:58 +0000 (07:18 +0000)
committerfpizlo@apple.com <fpizlo@apple.com@268f45cc-cd09-0410-ab3c-d52691b4dbfc>
Thu, 5 Sep 2013 07:18:58 +0000 (07:18 +0000)
* Scripts/run-javascriptcore-tests:
(readAllLines):

git-svn-id: https://svn.webkit.org/repository/webkit/trunk@155101 268f45cc-cd09-0410-ab3c-d52691b4dbfc

Tools/ChangeLog
Tools/Scripts/run-javascriptcore-tests

index 30b0977..eb38f0f 100644 (file)
@@ -1,3 +1,10 @@
+2013-09-05  Filip Pizlo  <fpizlo@apple.com>
+
+        Unreviewed, don't rely on File::Slurp. This fixes part #1 of Linux bot breakage.
+
+        * Scripts/run-javascriptcore-tests:
+        (readAllLines):
+
 2013-09-04  Filip Pizlo  <fpizlo@apple.com>
 
         jsc tests should have timeouts
index 0e8507f..610b653 100755 (executable)
@@ -31,7 +31,6 @@
 # as well as other tests: testapi on Mac and LayoutTests/fast/js.
 
 use strict;
-use File::Slurp;
 use FindBin;
 use Getopt::Long qw(:config pass_through);
 use List::Util qw(min max);
@@ -216,6 +215,20 @@ if ($numOldMozillaFailures) {
     }
 }
 
+sub readAllLines
+{
+    my ($filename) = @_;
+    my @array = ();
+    eval {
+        open FILE, $filename or die;
+        while (<FILE>) {
+            push @array, $_;
+        }
+        close FILE;
+    };
+    return @array;
+}
+
 sub printThingsFound
 {
     my ($number, $label, $pluralLabel, $verb) = @_;
@@ -228,8 +241,8 @@ sub printThingsFound
     print " $verb.\n";
 }
 
-my @fastJSFailList = eval { read_file($fastJSResultsDir . "/failed") };
-my @fastJSCrashList = eval { read_file($fastJSResultsDir . "/crashed") };
+my @fastJSFailList = readAllLines($fastJSResultsDir . "/failed");
+my @fastJSCrashList = readAllLines($fastJSResultsDir . "/crashed");
 my $numJSFailures = @fastJSFailList;
 my $numJSCrashes = @fastJSCrashList;