2018-04-16 21:03:59 +00:00
|
|
|
#!/usr/bin/env perl
|
|
|
|
|
|
|
|
# Copyright (C) 2018 Bocoup LLC. 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.
|
|
|
|
#
|
|
|
|
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDER "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 THE COPYRIGHT HOLDER 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.
|
|
|
|
|
|
|
|
use strict;
|
|
|
|
use warnings;
|
|
|
|
use 5.8.8;
|
|
|
|
|
|
|
|
use FindBin;
|
|
|
|
use Config;
|
|
|
|
|
2020-03-18 09:54:55 +00:00
|
|
|
BEGIN {
|
|
|
|
use lib $FindBin::Bin;
|
|
|
|
use File::Spec::Functions qw(catfile);
|
|
|
|
|
2020-04-13 17:56:16 +00:00
|
|
|
my $want_jhbuild = 0;
|
|
|
|
|
|
|
|
if (defined $ENV{'WEBKIT_JHBUILD'}) {
|
|
|
|
$want_jhbuild = $ENV{'WEBKIT_JHBUILD'};
|
|
|
|
}
|
|
|
|
|
2020-03-18 17:09:33 +00:00
|
|
|
my $osName = $Config{osname};
|
2020-04-13 17:56:16 +00:00
|
|
|
if (!$want_jhbuild && $osName eq "linux" && !grep(/^--no-flatpak-check$/, @ARGV)) {
|
2020-03-18 09:54:55 +00:00
|
|
|
if (eval {require webkitdirs; 1;}) {
|
|
|
|
webkitdirs->import(qw(shouldUseFlatpak runInFlatpak sourceDir));
|
|
|
|
if (shouldUseFlatpak()) {
|
|
|
|
print "Running in flatpak based environment\n";
|
|
|
|
my @command = (File::Spec->catfile(sourceDir(), "Tools", "Scripts", "test262-runner"));
|
|
|
|
# Prevent exec'd test262-runner process from importing
|
|
|
|
# webkitdirs so that it can succeed later on in the Runner
|
|
|
|
# module... Perl. ¯\_(ツ)_/¯
|
|
|
|
push(@ARGV, "--no-flatpak-check");
|
|
|
|
runInFlatpak(@command);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2018-04-16 21:03:59 +00:00
|
|
|
BEGIN {
|
|
|
|
$ENV{DBIC_OVERWRITE_HELPER_METHODS_OK} = 1;
|
|
|
|
$ENV{T262_EXEC_BIN} = "$FindBin::Bin/test262";
|
|
|
|
unshift @INC, "$FindBin::Bin/test262";
|
|
|
|
|
|
|
|
$ENV{LOAD_ROUTES} = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
use Runner;
|
|
|
|
|
|
|
|
exit 0;
|