1 #!/usr/bin/perl 2 # Copyright (C) 2010 Google Inc. All rights reserved. 3 # 4 # Redistribution and use in source and binary forms, with or without 5 # modification, are permitted provided that the following conditions are 6 # met: 7 # 8 # * Redistributions of source code must retain the above copyright 9 # notice, this list of conditions and the following disclaimer. 10 # * Redistributions in binary form must reproduce the above 11 # copyright notice, this list of conditions and the following disclaimer 12 # in the documentation and/or other materials provided with the 13 # distribution. 14 # * Neither the name of Google Inc. nor the names of its 15 # contributors may be used to endorse or promote products derived from 16 # this software without specific prior written permission. 17 # 18 # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 19 # "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 20 # LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 21 # A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 22 # OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 23 # SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT 24 # LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 25 # DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY 26 # THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 27 # (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE 28 # OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 29 30 # This file is a temporary hack. 31 # It will be removed as soon as all platforms are are ready to move to 32 # new-run-webkit-tests and we can then update the buildbots to explicitly 33 # call old-run-webkit-tests for any platforms which will never support 34 # a Python run-webkit-tests. 35 36 # This is intentionally written in Perl to guarantee support on 37 # the same set of platforms as old-run-webkit-tests currently supports. 38 # The buildbot master.cfg also currently passes run-webkit-tests to 39 # perl directly instead of executing it in a shell. 40 41 use strict; 42 use warnings; 43 44 use File::Spec; 45 use FindBin; 46 use lib $FindBin::Bin; 47 use webkitdirs; 48 49 sub runningOnBuildBot() 50 { 51 # This is a hack to detect if we're running on the buildbot so we can 52 # pass --verbose to new-run-webkit-tests. This will be removed when we 53 # update the buildbot config to call new-run-webkit-tests explicitly. 54 my %isBuildBotUser = ("apple" => 1, "buildbot" => 1); 55 return $isBuildBotUser{$ENV{"USER"}}; 56 } 57 58 sub useNewRunWebKitTests() 59 { 60 # Change this check to control which platforms use 61 # new-run-webkit-tests by default. 62 # Example: return runningOnBuildBot() && isLeopard(); 63 # would enable new-run-webkit-tests on only the leopard buildbots. 64 return 0; 65 } 66 67 my $harnessName = "old-run-webkit-tests"; 68 69 if (useNewRunWebKitTests()) { 70 $harnessName = "new-run-webkit-tests"; 71 if (runningOnBuildBot()) { 72 push(@ARGV, "--verbose"); 73 # old-run-webkit-tests treats --results-directory as $CWD relative. 74 # new-run-webkit-tests treats --results-directory as build directory relative. 75 # Override the passed in --results-directory by appending a new one 76 # (later arguments override earlier ones in Python's optparse). 77 push(@ARGV, "--results-directory"); 78 # The buildbot always uses $SRCDIR/layout-test-results, hardcode it: 79 push(@ARGV, sourceDir() . "/layout-test-results"); 80 } 81 } 82 83 my $harnessPath = File::Spec->catfile(relativeScriptsDir(), $harnessName); 84 exec $harnessPath ($harnessPath, @ARGV) or die "Failed to execute $harnessPath"; 85
