+2005-07-22 Geoffrey Garen <ggaren@apple.com>
+
+
+ Reviewed by darin.
+
+ * tests/mozilla/jsDriver.pl: now takes the path to testkjs as a command-line argument
+ * tests/mozilla/run-mozilla-tests: Removed.
+
2005-07-21 Geoffrey Garen <ggaren@apple.com>
Reviewed by NOBODY (OOPS!).
Test List: All tests<br>
Skip List: ecma/Date<br>
967 test(s) selected, 962 test(s) completed, 99 failures reported (10.29% failed)<br>
-Engine command line: /Users/ggaren/Development/symroots/testkjs <br>
+Engine command line: /Users/ggaren/Development/symroots/Development/testkjs <br>
OS type: Darwin il0204a-dhcp30.apple.com 8.2.0 Darwin Kernel Version 8.2.0: Fri Jun 3 21:09:06 PDT 2005; root:xnu-792.2.3.obj~1/RELEASE_PPC Power Macintosh powerpc<br>
-Testcase execution time: 1 minutes, 36 seconds.<br>
-Tests completed on Tue Jul 19 19:35:51 2005.<br><br>
+Testcase execution time: 1 minutes, 37 seconds.<br>
+Tests completed on Fri Jul 22 17:32:06 2005.<br><br>
[ <a href='#fail_detail'>Failure Details</a> | <a href='#retest_list'>Retest List</a> | <a href='menu.html'>Test Selection Page</a> ]<br>
<hr>
<a name='fail_detail'></a>
--> (Mon Feb 28 2000 16:00:00 GMT-0800).toLocaleTimeString() = 4:00:00 PM PST FAILED! expected: 16:00:00<br>
--> (Mon Feb 28 2000 15:59:59 GMT-0800).toLocaleTimeString() = 3:59:59 PM PST FAILED! expected: 15:59:59<br>
--> (Tue Feb 29 2000 00:00:00 GMT-0800).toLocaleTimeString() = 12:00:00 AM PST FAILED! expected: 00:00:00<br>
---> (Tue Jul 19 2005 19:35:21 GMT-0700).toLocaleTimeString() = 7:35:21 PM PDT FAILED! expected: 19:35:21<br>
---> (Wed Jul 20 2005 03:35:21 GMT-0700).toLocaleTimeString() = 3:35:21 AM PDT FAILED! expected: 03:35:21<br>
+--> (Fri Jul 22 2005 17:31:35 GMT-0700).toLocaleTimeString() = 5:31:35 PM PDT FAILED! expected: 17:31:35<br>
+--> (Sat Jul 23 2005 01:31:35 GMT-0700).toLocaleTimeString() = 1:31:35 AM PDT FAILED! expected: 01:31:35<br>
--> (Fri Dec 31 2004 16:00:00 GMT-0800).toLocaleTimeString() = 4:00:00 PM PST FAILED! expected: 16:00:00<br>
--> (Fri Dec 31 2004 15:59:59 GMT-0800).toLocaleTimeString() = 3:59:59 PM PST FAILED! expected: 15:59:59<br>
--> (Sat Jan 01 2005 00:00:00 GMT-0800).toLocaleTimeString() = 12:00:00 AM PST FAILED! expected: 00:00:00<br>
<pre>
<a name='retest_list'></a>
<h2>Retest List</h2><br>
-# Retest List, kjs, generated Tue Jul 19 19:35:51 2005.
+# Retest List, kjs, generated Fri Jul 22 17:32:06 2005.
# Original test base was: All tests.
# 962 of 967 test(s) were completed, 99 failures reported.
ecma/GlobalObject/15.1.2.2-2.js
} elsif ($opt_engine_type =~ /^ep(opt|debug)$/) {
&dd ("getting epimetheus engine command.");
$retval = &get_ep_engine_command;
- } elsif ($opt_engine_type ="kjs") {
+ } elsif ($opt_engine_type eq "kjs") {
&dd ("getting kjs engine command.");
$retval = &get_kjs_engine_command;
# get the shell command used to run kjs
#
sub get_kjs_engine_command {
- return $ENV{"SYMROOTS"} . "/testkjs";
+ my $retval;
+
+ if ($opt_shell_path) {
+ $retval = $opt_shell_path;
+ } else {
+ die "Please specify a full path to the kjs testing engine";
+ }
+
+ return $retval;
}
#
+++ /dev/null
-#!/usr/bin/perl -w
-
-use strict;
-
-my $result = system "perl", "jsDriver.pl", "-e", "kjs", "-L", "ecma/Date", "-f", "actual.html";
-
-exit $result if $result;
-
-my %failures;
-
-open EXPECTED, "expected.html" or die;
-while (<EXPECTED>) {
- last if /failures reported\.$/;
-}
-while (<EXPECTED>) {
- chomp;
- $failures{$_} = 1;
-}
-close EXPECTED;
-
-my %newFailures;
-
-open ACTUAL, "actual.html" or die;
-while (<ACTUAL>) {
- last if /failures reported\.$/;
-}
-while (<ACTUAL>) {
- chomp;
- if ($failures{$_}) {
- delete $failures{$_};
- } else {
- $newFailures{$_} = 1;
- }
-}
-close ACTUAL;
-
-my $numNewFailures = keys %newFailures;
-if ($numNewFailures) {
- print "\n** Danger, Will Robinson! Danger! The following failures have been introduced:\n";
- foreach my $failure (sort keys %newFailures) {
- print "\t$failure\n";
- }
-}
-
-my $numOldFailures = keys %failures;
-if ($numOldFailures) {
- print "\nYou fixed the following test";
- print "s" if $numOldFailures != 1;
- print ":\n";
- foreach my $failure (sort keys %failures) {
- print "\t$failure\n";
- }
-}
-
-print "\n";
-
-print "$numNewFailures regression";
-print "s" if $numNewFailures != 1;
-print " found.\n";
-
-print "$numOldFailures test";
-print "s" if $numOldFailures != 1;
-print " fixed.\n";
-
-print "OK.\n" if $numNewFailures == 0;
+2005-07-22 Geoffrey Garen <ggaren@apple.com>
+
+ Moved Tools/Scripts/run-mozilla-tests to WebKitTools/Scripts/run-javascriptcore-tests.
+ run-javascriptcore-tests now passes its command-line arguments to jsDriver.pl
+
+ Moved Tools/Scripts/update-mozilla-js-test-results to
+ WebKitTools/Scripts/update-javascriptcore-test-results.
+
+ Reviewed by darin.
+
+ * Scripts/run-javascriptcore-tests: Added.
+
2005-07-21 Geoffrey Garen <ggaren@apple.com>
Reviewed by Darin.
--- /dev/null
+#!/usr/bin/perl -w
+
+# Copyright (C) 2005 Apple Computer, Inc. All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions
+# are met:
+#
+# 1. Redistributions of source code must retain the above copyright
+# notice, this list of conditions and the following disclaimer.
+# 2. Redistributions in binary form must reproduce the above copyright
+# notice, this list of conditions and the following disclaimer in the
+# documentation and/or other materials provided with the distribution.
+# 3. Neither the name of Apple Computer, Inc. ("Apple") nor the names of
+# its contributors may be used to endorse or promote products derived
+# from this software without specific prior written permission.
+#
+# THIS SOFTWARE IS PROVIDED BY APPLE AND ITS CONTRIBUTORS "AS IS" AND ANY
+# EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+# DISCLAIMED. IN NO EVENT SHALL APPLE OR ITS CONTRIBUTORS BE LIABLE FOR ANY
+# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
+# THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+# Script to run the Web Kit Open Source Project JavaScriptCore tests (adapted from Mozilla).
+
+
+use strict;
+use FindBin;
+use lib $FindBin::Bin;
+use webkitdirs;
+
+chdirWebKit();
+chdir "JavaScriptCore/tests/mozilla/" or die;
+my $testkjs_path = productDir() . "/testkjs";
+my $result = system "perl", "jsDriver.pl", "-L", "ecma/Date", "-e", "kjs", "-s", $testkjs_path, "-f", "actual.html", @ARGV;
+
+exit $result if $result;
+
+my %failures;
+
+open EXPECTED, "expected.html" or die;
+while (<EXPECTED>) {
+ last if /failures reported\.$/;
+}
+while (<EXPECTED>) {
+ chomp;
+ $failures{$_} = 1;
+}
+close EXPECTED;
+
+my %newFailures;
+
+open ACTUAL, "actual.html" or die;
+while (<ACTUAL>) {
+ last if /failures reported\.$/;
+}
+while (<ACTUAL>) {
+ chomp;
+ if ($failures{$_}) {
+ delete $failures{$_};
+ } else {
+ $newFailures{$_} = 1;
+ }
+}
+close ACTUAL;
+
+my $numNewFailures = keys %newFailures;
+if ($numNewFailures) {
+ print "\n** Danger, Will Robinson! Danger! The following failures have been introduced:\n";
+ foreach my $failure (sort keys %newFailures) {
+ print "\t$failure\n";
+ }
+}
+
+my $numOldFailures = keys %failures;
+if ($numOldFailures) {
+ print "\nYou fixed the following test";
+ print "s" if $numOldFailures != 1;
+ print ":\n";
+ foreach my $failure (sort keys %failures) {
+ print "\t$failure\n";
+ }
+}
+
+print "\n";
+
+print "$numNewFailures regression";
+print "s" if $numNewFailures != 1;
+print " found.\n";
+
+print "$numOldFailures test";
+print "s" if $numOldFailures != 1;
+print " fixed.\n";
+
+print "OK.\n" if $numNewFailures == 0;
--- /dev/null
+#!/usr/bin/perl -w
+
+use strict;
+use FindBin;
+use lib $FindBin::Bin;
+use webkitdirs;
+
+chdirWebKit();
+chdir "JavaScriptCore/tests/mozilla/" or die;
+
+open EXPECTED, "expected.html";
+while (<EXPECTED>) {
+ last if /failures reported\.$/;
+}
+my %expected;
+while (<EXPECTED>) {
+ chomp;
+ $expected{$_} = 1;
+}
+close EXPECTED;
+
+open ACTUAL, "actual.html";
+my $actual;
+while (<ACTUAL>) {
+ $actual .= $_;
+ last if /failures reported\.$/;
+}
+my $failed = 0;
+while (<ACTUAL>) {
+ $actual .= $_;
+ chomp;
+ if (!$expected{$_}) {
+ $failed = 1;
+ print "failure not expected: $_\n";
+ }
+}
+close ACTUAL;
+
+die "won't update, failures introduced" if $failed;
+
+open EXPECTED, ">expected.html";
+print EXPECTED $actual;
+close EXPECTED;
git://git.webkit.org / WebKit-https.git / commitdiff