diff options
| author | Peter Eisentraut <peter_e@gmx.net> | 2015-06-30 21:15:05 -0400 |
|---|---|---|
| committer | Peter Eisentraut <peter_e@gmx.net> | 2015-07-28 20:31:35 -0400 |
| commit | 36dc30aa7e0ab9628a5a975a921b8ff82e8f31bf (patch) | |
| tree | 277acd4535746e3f299fe1244610e3d38b8ad7cf /src/test/perl/TestLib.pm | |
| parent | 5d0e8bc9e036bffb88b7598aa4d46b7368a10f0c (diff) | |
| download | postgresql-36dc30aa7e0ab9628a5a975a921b8ff82e8f31bf.tar.gz postgresql-36dc30aa7e0ab9628a5a975a921b8ff82e8f31bf.zip | |
pg_basebackup: Add tests for -R 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 | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/test/perl/TestLib.pm b/src/test/perl/TestLib.pm index 5ef95f0246e..ca287456b40 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_file system_or_bail system_log run_log @@ -175,6 +176,13 @@ sub psql run [ 'psql', '-X', '-q', '-d', $dbname, '-f', '-' ], '<', \$sql or die; } +sub slurp_file +{ + local $/; + local @ARGV = @_; + <> +} + sub system_or_bail { if (system_log(@_) != 0) |