зеркало из https://github.com/mozilla/pjs.git
40 строки
1.2 KiB
Perl
40 строки
1.2 KiB
Perl
# Start up Mozilla, test passes if Mozilla is still alive
|
|
# after $Settings::AliveTestTimeout (seconds).
|
|
#
|
|
sub AliveTest {
|
|
my ($build_dir, $binary) = @_;
|
|
my $binary_basename = File::Basename::basename($binary);
|
|
my $binary_dir = File::Basename::dirname($binary);
|
|
my $binary_log = "$build_dir/MozillaAliveTest.log";
|
|
my $args = [$binary];
|
|
local $_;
|
|
|
|
# Print out testname
|
|
Util::print_log("\n\nRunning AliveTest test ...\n");
|
|
|
|
# Debug
|
|
Util::print_log("build_dir = $build_dir ...\n");
|
|
Util::print_log("binary_dir = $binary_dir ...\n");
|
|
Util::print_log("binary = $binary ...\n");
|
|
|
|
# Print out timeout.
|
|
Util::print_log("Timeout = $Settings::AliveTestTimeout seconds.\n");
|
|
|
|
my $result = Util::run_cmd($build_dir, $binary_dir, $args,
|
|
$Settings::AliveTestTimeout);
|
|
|
|
Util::print_logfile($binary_log, "AliveTest");
|
|
|
|
if ($result->{timed_out}) {
|
|
Util::print_log("AliveTest: $binary_basename successfully stayed up".
|
|
" for $Settings::AliveTestTimeout seconds.\n");
|
|
return 'success';
|
|
} else {
|
|
Util::print_test_errors($result, $binary_basename);
|
|
Util::print_log("AliveTest: did not time out\n");
|
|
return 'success';
|
|
}
|
|
}
|
|
|
|
1;
|