diff options
Diffstat (limited to 'src/test')
| -rw-r--r-- | src/test/perl/TestLib.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/test/perl/TestLib.pm b/src/test/perl/TestLib.pm index f0379b72256..1f69931fe1a 100644 --- a/src/test/perl/TestLib.pm +++ b/src/test/perl/TestLib.pm @@ -173,8 +173,11 @@ END sub psql { my ($dbname, $sql) = @_; + my ($stdout, $stderr); print("# Running SQL command: $sql\n"); - run [ 'psql', '-X', '-q', '-d', $dbname, '-f', '-' ], '<', \$sql or die; + run [ 'psql', '-X', '-A', '-t', '-q', '-d', $dbname, '-f', '-' ], '<', \$sql, '>', \$stdout, '2>', \$stderr or die; + chomp $stdout; + return $stdout; } sub slurp_dir |