diff options
| author | Peter Eisentraut <peter_e@gmx.net> | 2015-06-30 21:15:29 -0400 |
|---|---|---|
| committer | Peter Eisentraut <peter_e@gmx.net> | 2015-07-28 20:31:35 -0400 |
| commit | 90102bb538831fca734cc9fa1450b97c7d4e1190 (patch) | |
| tree | c3baafaf3651a7ac00af45fbb6721370fa8170b4 /src/test/perl/TestLib.pm | |
| parent | 36dc30aa7e0ab9628a5a975a921b8ff82e8f31bf (diff) | |
pg_basebackup: Add tests for -X option
Reviewed-by: Michael Paquier <michael.paquier@gmail.com>
Diffstat (limited to 'src/test/perl/TestLib.pm')
| -rw-r--r-- | src/test/perl/TestLib.pm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/test/perl/TestLib.pm b/src/test/perl/TestLib.pm index ca287456b40..f0379b72256 100644 --- a/src/test/perl/TestLib.pm +++ b/src/test/perl/TestLib.pm @@ -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 $/; |