mirror of
https://github.com/postgres/postgres.git
synced 2025-05-11 05:41:32 +03:00
795862c280
The previous approach didn't really work on windows, due to the PATH separator being ';' not ':'. Instead of making the PATH change more complicated, reference the binary using the TESTDIR environment. Reported-By: Andres Freund <andres@anarazel.de> Suggested-By: Andrew Dunstan <andrew@dunslane.net> Discussion: https://postgr.es/m/20210930214040.odkdd42vknvzifm6@alap3.anarazel.de Backpatch: 14-, where the test was introduced.
79 lines
1.5 KiB
Perl
79 lines
1.5 KiB
Perl
|
|
# Copyright (c) 2021, PostgreSQL Global Development Group
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Config;
|
|
use PostgresNode;
|
|
use TestLib;
|
|
use Test::More;
|
|
|
|
my $node = PostgresNode->new('main');
|
|
$node->init;
|
|
$node->start;
|
|
|
|
my $numrows = 700;
|
|
my $libpq_pipeline = "$ENV{TESTDIR}/libpq_pipeline";
|
|
|
|
my ($out, $err) = run_command([ $libpq_pipeline, 'tests' ]);
|
|
die "oops: $err" unless $err eq '';
|
|
my @tests = split(/\s+/, $out);
|
|
|
|
mkdir "$TestLib::tmp_check/traces";
|
|
|
|
for my $testname (@tests)
|
|
{
|
|
my @extraargs = ('-r', $numrows);
|
|
my $cmptrace = grep(/^$testname$/,
|
|
qw(simple_pipeline nosync multi_pipelines prepared singlerow
|
|
pipeline_abort transaction disallowed_in_pipeline)) > 0;
|
|
|
|
# For a bunch of tests, generate a libpq trace file too.
|
|
my $traceout = "$TestLib::tmp_check/traces/$testname.trace";
|
|
if ($cmptrace)
|
|
{
|
|
push @extraargs, "-t", $traceout;
|
|
}
|
|
|
|
# Execute the test
|
|
$node->command_ok(
|
|
[
|
|
$libpq_pipeline, @extraargs,
|
|
$testname, $node->connstr('postgres')
|
|
],
|
|
"libpq_pipeline $testname");
|
|
|
|
# Compare the trace, if requested
|
|
if ($cmptrace)
|
|
{
|
|
my $expected;
|
|
my $result;
|
|
|
|
$expected = slurp_file_eval("traces/$testname.trace");
|
|
next unless $expected ne "";
|
|
$result = slurp_file_eval($traceout);
|
|
next unless $result ne "";
|
|
|
|
is($result, $expected, "$testname trace match");
|
|
}
|
|
}
|
|
|
|
$node->stop('fast');
|
|
|
|
done_testing();
|
|
|
|
sub slurp_file_eval
|
|
{
|
|
my $filepath = shift;
|
|
my $contents;
|
|
|
|
eval { $contents = slurp_file($filepath); };
|
|
if ($@)
|
|
{
|
|
fail "reading $filepath: $@";
|
|
return "";
|
|
}
|
|
return $contents;
|
|
}
|