database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-06-22 02:52:08 +03:00
Code Activity

pg_basebackup: Add tests for -X option

Browse Source 
Reviewed-by: Michael Paquier <michael.paquier@gmail.com>
This commit is contained in:
Peter Eisentraut
2015-06-30 21:15:29 -04:00
parent 36dc30aa7e
commit 90102bb538
2 changed files with 22 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/test/perl/TestLib.pm
View File

@ -11,6 +11,7 @@ our @EXPORT = qw(
start_test_server
restart_test_server
psql
slurp_dir
slurp_file
system_or_bail
system_log
@ -176,6 +177,15 @@ sub psql
run [ 'psql', '-X', '-q', '-d', $dbname, '-f', '-' ], '<', \$sql or die;
}
sub slurp_dir
{
my ($dir) = @_;
opendir(my $dh, $dir) or die;
my @direntries = readdir $dh;
closedir $dh;
return @direntries;
}
sub slurp_file
{
local $/;