mirror of
https://gitlab.winehq.org/wine/wine-gecko.git
synced 2024-09-13 09:24:08 -07:00
92 lines
3.2 KiB
Perl
92 lines
3.2 KiB
Perl
|
package Tests;
|
||
|
|
|
||
|
|
use Util;
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
my $objdir = '';
|
||
|
|
|
||
|
|
sub global_prefs {
|
||
|
|
my ($binary, $embed_binary, $build_dir) = @_;
|
||
|
|
|
||
|
|
my $binary_basename = File::Basename::basename($binary);
|
||
|
|
my $binary_dir = File::Basename::dirname($binary);
|
||
|
|
my $embed_binary_basename = File::Basename::basename($embed_binary);
|
||
|
|
my $embed_binary_dir = File::Basename::dirname($embed_binary);
|
||
|
|
|
||
|
|
my $test_result = 'success';
|
||
|
|
|
||
|
|
# Windows needs this for file: urls.
|
||
|
|
my $win32_build_dir = $build_dir;
|
||
|
|
if ($Settings::OS =~ /^WIN/ && $win32_build_dir !~ m/^.:\//) {
|
||
|
|
chomp($win32_build_dir = `cygpath -w $win32_build_dir`);
|
||
|
|
$win32_build_dir =~ s/\\/\//g;
|
||
|
|
}
|
||
|
|
|
||
|
|
#
|
||
|
|
# Set prefs to run tests properly.
|
||
|
|
#
|
||
|
|
# Chances are we will be timing these tests. Bring gettime() into memory
|
||
|
|
# by calling it once, before any tests run.
|
||
|
|
Time::PossiblyHiRes::getTime();
|
||
|
|
|
||
|
|
my $pref_file = 'prefs.js';
|
||
|
|
|
||
|
|
# Some tests need browser.dom.window.dump.enabled set to true, so
|
||
|
|
# that JS dump() will work in optimized builds.
|
||
|
|
Prefs::set_pref($pref_file, 'browser.dom.window.dump.enabled', 'true');
|
||
|
|
|
||
|
|
# Set security prefs to allow us to close our own window,
|
||
|
|
# pageloader test (and possibly other tests) needs this on.
|
||
|
|
Prefs::set_pref($pref_file, 'dom.allow_scripts_to_close_windows', 'true');
|
||
|
|
|
||
|
|
# Set security prefs to allow us to resize our windows.
|
||
|
|
# DHTML and Tgfx perf tests (and possibly other tests) need this off.
|
||
|
|
Prefs::set_pref($pref_file, 'dom.disable_window_flip', 'false');
|
||
|
|
|
||
|
|
# Set prefs to allow us to move, resize, and raise/lower the
|
||
|
|
# current window. Tgfx needs this.
|
||
|
|
Prefs::set_pref($pref_file, 'dom.disable_window_flip', 'false');
|
||
|
|
Prefs::set_pref($pref_file, 'dom.disable_window_move_resize', 'false');
|
||
|
|
|
||
|
|
# Suppress firefox's popup blocking
|
||
|
|
if ($Settings::BinaryName =~ /^firefox/) {
|
||
|
|
Prefs::set_pref($pref_file, 'dom.disable_open_during_load', 'false');
|
||
|
|
|
||
|
|
# Suppress default browser dialog
|
||
|
|
Prefs::set_pref($pref_file, 'browser.shell.checkDefaultBrowser', 'false');
|
||
|
|
|
||
|
|
# Suppress session restore dialog
|
||
|
|
Prefs::set_pref($pref_file, 'browser.sessionstore.resume_from_crash', 'false');
|
||
|
|
}
|
||
|
|
elsif ($Settings::BinaryName eq 'Camino') {
|
||
|
|
Prefs::set_pref($pref_file, 'camino.check_default_browser', 'false');
|
||
|
|
}
|
||
|
|
|
||
|
|
# Suppress security warnings for QA test.
|
||
|
|
if ($Settings::QATest) {
|
||
|
|
Prefs::set_pref($pref_file, 'security.warn_submit_insecure', 'true');
|
||
|
|
}
|
||
|
|
|
||
|
|
#
|
||
|
|
# Assume that we want to test modern skin for all tests.
|
||
|
|
#
|
||
|
|
if (system("\\grep -s general.skins.selectedSkin \"$pref_file\" > /dev/null")) {
|
||
|
|
Util::print_log("Setting general.skins.selectedSkin to modern/1.0\n");
|
||
|
|
open PREFS, ">>$pref_file" or die "can't open $pref_file ($?)\n";
|
||
|
|
print PREFS "user_pref(\"general.skins.selectedSkin\", \"modern/1.0\");\n";
|
||
|
|
close PREFS;
|
||
|
|
} else {
|
||
|
|
Util::print_log("Modern skin already set.\n");
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($Settings::BinaryName eq 'Camino') {
|
||
|
|
# stdout will be block-buffered and will not be flushed when the test
|
||
|
|
# timeout expires and the process is killed, this would make tests
|
||
|
|
# appear to fail.
|
||
|
|
$ENV{'MOZ_UNBUFFERED_STDIO'} = 1;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
1;
|