14 lines
334 B
Perl
14 lines
334 B
Perl
use FindBin '$Bin';
|
|
require "$Bin/passfail.pl";
|
|
require "$Bin/background_process.pl";
|
|
|
|
sub databaseServerRunning
|
|
{
|
|
my($prefix) = @_;
|
|
my $result = runCommand($prefix, "database runState");
|
|
my $testMessage = "DatabaseServer reports a true run state";
|
|
failOnFalse($result eq "running", $testMessage, $testMessage);
|
|
}
|
|
|
|
1;
|