mirrors/postgres
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Log regression.diffs in 027_stream_regress.pl.

Browse Source 
To help diagnose the reasons for a regression test failure inside this
TAP test, dump the contents of regression.diffs to the log.  While the
CI scripts show it automatically, the build farm client does not.

Reviewed-by: Andrew Dunstan <andrew@dunslane.net>
Discussion: https://postgr.es/m/CA%2BhUKGLsrWbiCcMxBLRBAP6Z%3DykFRHWzdmP9YKujSKoSnEJECQ%40mail.gmail.com
This commit is contained in:
Thomas Munro 2022-03-21 09:31:22 +13:00
parent 7fa3db3679
commit a096813b6f
1 changed files with 21 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/test/recovery/t/027_stream_regress.pl
View File

@ -53,7 +53,7 @@ my $outputdir = $PostgreSQL::Test::Utils::tmp_check;
# Run the regression tests against the primary.
my $extra_opts = $ENV{EXTRA_REGRESS_OPTS} || "";
system_or_bail($ENV{PG_REGRESS} . " $extra_opts " .
my $rc = system($ENV{PG_REGRESS} . " $extra_opts " .
"--dlpath=\"$dlpath\" " .
"--bindir= " .
"--host=" . $node_primary->host . " " .
@ -62,6 +62,18 @@ system_or_bail($ENV{PG_REGRESS} . " $extra_opts " .
"--max-concurrent-tests=20 " .
"--inputdir=../regress " .
"--outputdir=\"$outputdir\"");
if ($rc != 0)
{
# Dump out the regression diffs file, if there is one
my $diffs = "$outputdir/regression.diffs";
if (-e $diffs)
{
print "=== dumping $diffs ===\n";
print slurp_file($diffs);
print "=== EOF ===\n";
}
}
is($rc, 0, 'regression tests pass');
# Clobber all sequences with their next value, so that we don't have
# differences between nodes due to caching.