gecko/testing/tinderbox-standalone-tests/Tests/AliveTest.pm

40 lines
1.2 KiB
Perl
Raw Normal View History

# 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;