db/pgbackrest
1
0
Fork 0
mirror of https://github.com/pgbackrest/pgbackrest.git synced 2025-07-15 01:04:37 +02:00
Code Issues Releases Activity

Integrating IPC::Run - IPC::Open3 is out.

Browse Source
This commit is contained in:
David Steele
2014-06-30 18:35:05 -04:00
parent c300c841eb
commit d0ca69d433
4 changed files with 53 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
test/lib/BackRestTest/CommonTest.pm
View File

@ -15,11 +15,15 @@ use Carp;
use File::Basename;
use Cwd 'abs_path';
use Config::IniFiles;
use IPC::Run qw(run);
use lib dirname($0) . "/../lib";
use BackRest::Utility;
use BackRest::File;
####################################################################################################################################
# Exports
####################################################################################################################################
use Exporter qw(import);
our @EXPORT = qw(BackRestTestCommon_Setup BackRestTestCommon_Execute BackRestTestCommon_ExecuteBackRest
BackRestTestCommon_ConfigCreate
@ -29,6 +33,9 @@ our @EXPORT = qw(BackRestTestCommon_Setup BackRestTestCommon_Execute BackRestTes
BackRestTestCommon_ArchivePathGet BackRestTestCommon_DbPathGet BackRestTestCommon_DbCommonPathGet
BackRestTestCommon_DbPortGet);
####################################################################################################################################
# Module variables
####################################################################################################################################
my $strCommonStanza;
my $strCommonCommandMain;
my $strCommonCommandRemote;
@ -49,26 +56,40 @@ my $iCommonDbPort;
####################################################################################################################################
sub BackRestTestCommon_Execute
{
my $strCommand = shift;
my $bRemote = shift;
my $bSuppressError = shift;
my $strCommand = shift; # Command to execute
my $bRemote = shift; # Execute on remote? This will use the defined BackRest user
my $bSuppressError = shift; # Ignore any errors
# Set defaults
$bRemote = defined($bRemote) ? $bRemote : false;
$bSuppressError = defined($bSuppressError) ? $bSuppressError : false;
# If remote then run the command through ssh
if ($bRemote)
{
$strCommand = "ssh ${strCommonUserBackRest}\@${strCommonHost} '${strCommand}'";
}
if (system($strCommand) != 0)
# Run the command
if (!run($strCommand))
{
if (!$bSuppressError)
if ($bSuppressError)
{
confess &log(ERROR, "unable to execute command: ${strCommand}");
return;
}
confess &log(ERROR, "command \"${strCommand}\" returned: " . $?);
}
# # Wait for the process to finish and report any errors
# waitpid($pId, 0);
# my $iExitStatus = ${^CHILD_ERROR_NATIVE} >> 8;
#
# if ($iExitStatus != 0)
# {
# confess &log(ERROR, "command \"${strCommand}\" returned " . $iExitStatus); # . ": " .
# # (defined($strError) ? $strError : "[unknown]"));
# }
}
####################################################################################################################################