Ensure old tab state is cleared between iterations of run-benchmark
[WebKit-https.git] / Tools / Scripts / run-qt-wpe-minibrowser
1 #!/usr/bin/env perl
2 # Copyright (C) 2018, 2019 Igalia S.L.
3 #
4 # This program is free software; you can redistribute it and/or
5 # modify it under the terms of the GNU Lesser General Public
6 # License as published by the Free Software Foundation; either
7 # version 2.1 of the License, or (at your option) any later version.
8 #
9 # This program is distributed in the hope that it will be useful,
10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
12 # Lesser General Public License for more details.
13 #
14 # You should have received a copy of the GNU Lesser General Public
15 # License along with this program; if not, write to the
16 # Free Software Foundation, Inc., 51 Franklin St, Fifth Floor,
17 # Boston, MA 02110-1301, USA.
18
19 # Simplified "run" script for launching the QtWPE MiniBrowser.
20
21 use strict;
22 use warnings;
23 use File::Spec::Functions qw/catdir/;
24 use FindBin;
25 use lib $FindBin::Bin;
26 use webkitdirs;
27
28 setConfiguration();
29
30 if (!inFlatpakSandbox()) {
31     push @ARGV, "--wpe";
32 }
33
34 my $launcherName;
35 my $libPath;
36 my $launcherPath;
37 my @jhbuildWrapper;
38 my $configuration = passedConfiguration();
39 my $productDir = productDir();
40
41 $libPath = "/app/webkit/WebKitBuild/$configuration/lib/qml" if $configuration;
42 $ENV{"QML2_IMPORT_PATH"} = "$libPath" if $libPath;
43 runInFlatpakIfAvailable("/app/webkit/Tools/Scripts/run-qt-wpe-minibrowser");
44
45 # Check to see that all the frameworks are built.
46 checkFrameworks();
47
48 if (!inFlatpakSandbox()) {
49     $libPath = "$productDir/lib/qml" if $productDir;
50     $ENV{"QML2_IMPORT_PATH"} = "$libPath" if $libPath;
51 }
52
53 $launcherPath = catdir($productDir, "bin", "qt-wpe-mini-browser");
54 die "Can't find $launcherPath" unless -x $launcherPath;
55 @jhbuildWrapper = wrapperPrefixIfNeeded();
56
57 print "Starting MiniBrowser.\n";
58 exec @jhbuildWrapper, $launcherPath, @ARGV or die;