mirror of
https://gitlab.winehq.org/wine/wine-gecko.git
synced 2024-09-13 09:24:08 -07:00
39 lines
1.2 KiB
Perl
39 lines
1.2 KiB
Perl
|
sub DHTMLPerformanceTest {
|
||
|
|
my ($build_dir, $binary) = @_;
|
||
|
|
my $dhtml_test_result;
|
||
|
|
my $binary_basename = File::Basename::basename($binary);
|
||
|
|
my $binary_dir = File::Basename::dirname($binary);
|
||
|
|
my $binary_log = "$build_dir/DHTMLPerformanceTest.log";
|
||
|
|
my $url = "http://www.mozilla.org/performance/test-cases/dhtml/runTests.html";
|
||
|
|
my $timeout_secs = 3;
|
||
|
|
my $args = [$binary, $url];
|
||
|
|
|
||
|
|
# Settle OS.
|
||
|
|
system('/bin/sh -c "sync; sleep 5"');
|
||
|
|
|
||
|
|
my $result = Util::run_cmd($build_dir, $binary_dir, $args, $timeout_secs);
|
||
|
|
|
||
|
|
my $dhtml_time = Util::extract_token($result->{output},
|
||
|
|
"_x_x_mozilla_dhtml",
|
||
|
|
",");
|
||
|
|
|
||
|
|
if($dhtml_time) {
|
||
|
|
$dhtml_test_result = 'success';
|
||
|
|
} else {
|
||
|
|
$dhtml_test_result = 'testfailed';
|
||
|
|
Util::print_log("DHTMLTest: test failed\n");
|
||
|
|
}
|
||
|
|
|
||
|
|
if($dhtml_test_result eq 'success') {
|
||
|
|
Util::print_log_test_result_ms('dhtml', 'DHTML time',
|
||
|
|
$dhtml_time, 'Tdhtml');
|
||
|
|
if ($Settings::TestsPhoneHome) {
|
||
|
|
Util::send_results_to_server($dhtml_time, "--", "dhtml");
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
return $dhtml_test_result;
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|