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

Working on remote protocol.

Browse Source
This commit is contained in:
David Steele
2014-06-06 21:16:24 -04:00
parent e71a986ef3
commit ae130229ef
6 changed files with 552 additions and 480 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
test/lib/BackRestTest/FileTest.pm
View File

@ -17,8 +17,9 @@ use File::stat;
use Fcntl ':mode';
use lib dirname($0) . "/..";
use pg_backrest_file;
use pg_backrest_utility;
use pg_backrest_file;
use pg_backrest_remote;
use Exporter qw(import);
our @EXPORT = qw(BackRestFileTest);
@ -38,7 +39,7 @@ sub BackRestFileTest
my $iRun;
my $strStanza = "db";
my $strCommand = "/Users/dsteele/pg_backrest/bin/pg_backrest_command.pl";
my $strCommand = "/Users/dsteele/pg_backrest/bin/pg_backrest_remote.pl";
my $strHost = "127.0.0.1";
my $strUser = getpwuid($<);
my $strGroup = getgrgid($();
@ -48,6 +49,16 @@ sub BackRestFileTest
&log(INFO, "FILE MODULE ********************************************************************");
#-------------------------------------------------------------------------------------------------------------------------------
# Create remote
#-------------------------------------------------------------------------------------------------------------------------------
my $oRemote = pg_backrest_remote->new
(
strHost => $strHost,
strUser => $strUser,
strCommand => $strCommand,
);
#-------------------------------------------------------------------------------------------------------------------------------
# Test path_create()
#-------------------------------------------------------------------------------------------------------------------------------
@ -687,12 +698,10 @@ sub BackRestFileTest
my $oFile = pg_backrest_file->new
(
strStanza => $strStanza,
bNoCompression => true,
strCommand => $strCommand,
strBackupClusterPath => ${strTestPath},
strBackupPath => ${strTestPath},
strBackupHost => $bRemote ? $strHost : undef,
strBackupUser => $bRemote ? $strUser : undef
strRemote => $bRemote ? 'backup' : undef,
oRemote => $bRemote ? $oRemote : undef
);
# Loop through exists