mirror of https://github.com/postgres/postgres
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
29 lines
533 B
29 lines
533 B
5 years ago
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
use Config;
|
||
|
|
use PostgresNode;
|
||
|
|
use TestLib;
|
||
|
|
use Test::More tests => 8;
|
||
|
|
use Cwd;
|
||
|
|
|
||
|
|
my $node = get_new_node('main');
|
||
|
|
$node->init;
|
||
|
|
$node->start;
|
||
|
|
|
||
|
|
my $numrows = 10000;
|
||
|
|
$ENV{PATH} = "$ENV{PATH}:" . getcwd();
|
||
|
|
|
||
|
|
my ($out, $err) = run_command(['libpq_pipeline', 'tests']);
|
||
|
|
die "oops: $err" unless $err eq '';
|
||
|
|
my @tests = split(/\s/, $out);
|
||
|
|
|
||
|
|
for my $testname (@tests)
|
||
|
|
{
|
||
|
|
$node->command_ok(
|
||
|
|
[ 'libpq_pipeline', $testname, $node->connstr('postgres'), $numrows ],
|
||
|
|
"libpq_pipeline $testname");
|
||
|
|
}
|
||
|
|
|
||
|
|
$node->stop('fast');
|