use warnings;

use PostgresNode;

use TestLib;

use File::Basename;

use FindBin;

use Test::Moretests=> 1;

$node_primary->init(allows_streaming=> 1,has_archiving=> 1);

my$perlbin = $^X;

$perlbin =~s{\\}{\\\\}gif ($TestLib::windows_os);

if ($^Oeq'msys')

{

$perlbin = TestLib::perl2host(dirname($^X)) .'\\' . basename($^X);

}

$perlbin =~s!\\!/!gif$TestLib::windows_os;

my$archivedir_primary =$node_primary->archive_dir;

$node_primary->append_conf('postgresql.conf',qq(

));

local$ENV{PERL_BADLANG}=0;

$node_primary->start;

my$archive_wait_query =

"SELECT '$walfile_to_be_archived' <= last_archived_wal FROM pg_stat_archiver;";

"SELECT coalesce('$walfile_to_be_archived' <= last_archived_wal, false)" .

"FROM pg_stat_archiver";

$node_standby->poll_query_until('postgres',$archive_wait_query)

ordie"Timed out while waiting for WAL segment to be archived";

my$last_archived_wal_file =$walfile_to_be_archived;

die"wrong number of arguments"if@ARGV != 2;

my ($source,$target) =@ARGV;

exitif$source !~/history/;

if ($^Oeq'msys')

{

$source =~s!^([A-Za-z]):!'/' . lc($1)!e;

$source =~s!\\!/!g;

}

copy($source,$target)ordie"couldn't copy$source to$target:$!";