database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-07-31 22:04:40 +03:00
Code Activity

Back-patch fixes to make TAP tests work on Windows.

Browse Source 
This back-ports commit 13d856e177 and assorted followon patches
into 9.4 and 9.5.  9.5 and HEAD are now substantially identical in all
the files touched by this commit, except that 010_pg_basebackup.pl has
a few more tests related to the new --slot option.  9.4 has many fewer
TAP tests, but the test infrastructure files are substantially the same,
with the exception that 9.4 lacks the single-tmp-install infrastructure
introduced in 9.5 (commit dcae5facca).

The primary motivation for this patch is to ensure that TAP test case
fixes can be back-patched without hazards of the kind seen in commits
34557f544/06dd4b44f.  In principle it should also make the world safe
for running the TAP tests in the buildfarm in these branches; although
we might want to think about back-porting dcae5facca to 9.4 if
we're going to do that for real, because the TAP tests are quite disk
space hungry without it.

Michael Paquier did the back-porting work; original patches were by
him and assorted other people.
This commit is contained in:
Tom Lane
2015-11-17 14:10:24 -05:00
parent a6c4c07fc5
commit 8bc496c3b6
9 changed files with 234 additions and 71 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
doc/src/sgml/install-windows.sgml
View File

@ -438,6 +438,7 @@ $ENV{CONFIG}="Debug";
<userinput>vcregress contribcheck</userinput> <userinput>vcregress contribcheck</userinput>
<userinput>vcregress ecpgcheck</userinput> <userinput>vcregress ecpgcheck</userinput>
<userinput>vcregress isolationcheck</userinput> <userinput>vcregress isolationcheck</userinput>
<userinput>vcregress tapcheck</userinput>
<userinput>vcregress upgradecheck</userinput> <userinput>vcregress upgradecheck</userinput>
</screen> </screen>
@ -450,6 +451,29 @@ $ENV{CONFIG}="Debug";
For more information about the regression tests, see For more information about the regression tests, see
<xref linkend="regress">. <xref linkend="regress">.
</para> </para>
<para>
Running the TAP regression tests, with "vcregress tapcheck", requires an
additional Perl module to be installed:
<variablelist>
<varlistentry>
<term><productname>IPC::Run</productname></term>
<listitem><para>
As of this writing, <literal>IPC::Run</> is not included in the
ActiveState Perl installation, nor in the ActiveState Perl Package
Manager (PPM) library. To install, download the
<filename>IPC-Run-&lt;version&gt;.tar.gz</> source archive from CPAN,
at <ulink url="http://search.cpan.org/dist/IPC-Run/"></>, and
uncompress. Edit the <filename>buildenv.pl</> file, and add a PERL5LIB
variable to point to the <filename>lib</> subdirectory from the
extracted archive. For example:
<programlisting>
$ENV{PERL5LIB}=$ENV{PERL5LIB} . ';c:\IPC-Run-0.94\lib';
</programlisting>
</para></listitem>
</varlistentry>
</variablelist>
</para>
</sect2> </sect2>
<sect2> <sect2>

4
src/Makefile.global.in
View File

@ -334,14 +334,14 @@ ifeq ($(enable_tap_tests),yes)
define prove_installcheck define prove_installcheck
rm -rf $(CURDIR)/tmp_check/log rm -rf $(CURDIR)/tmp_check/log
cd $(srcdir) && TESTDIR='$(CURDIR)' PATH="$(bindir):$$PATH" PGPORT='6$(DEF_PGPORT)' top_builddir='$(CURDIR)/$(top_builddir)' $(PROVE) $(PG_PROVE_FLAGS) $(PROVE_FLAGS) t/*.pl cd $(srcdir) && TESTDIR='$(CURDIR)' PATH="$(bindir):$$PATH" PGPORT='6$(DEF_PGPORT)' top_builddir='$(CURDIR)/$(top_builddir)' PG_REGRESS='$(CURDIR)/$(top_builddir)/src/test/regress/pg_regress' $(PROVE) $(PG_PROVE_FLAGS) $(PROVE_FLAGS) t/*.pl
endef endef
define prove_check define prove_check
rm -rf $(CURDIR)/tmp_check/log rm -rf $(CURDIR)/tmp_check/log
$(MKDIR_P) tmp_check/log $(MKDIR_P) tmp_check/log
$(MAKE) -C $(top_builddir) DESTDIR='$(CURDIR)'/tmp_check/install install >'$(CURDIR)'/tmp_check/log/install.log 2>&1 $(MAKE) -C $(top_builddir) DESTDIR='$(CURDIR)'/tmp_check/install install >'$(CURDIR)'/tmp_check/log/install.log 2>&1
cd $(srcdir) && TESTDIR='$(CURDIR)' PATH="$(CURDIR)/tmp_check/install$(bindir):$$PATH" $(call add_to_path,$(ld_library_path_var),$(CURDIR)/tmp_check/install$(libdir)) top_builddir='$(CURDIR)/$(top_builddir)' PGPORT='6$(DEF_PGPORT)' $(PROVE) $(PG_PROVE_FLAGS) $(PROVE_FLAGS) t/*.pl cd $(srcdir) && TESTDIR='$(CURDIR)' PATH="$(CURDIR)/tmp_check/install$(bindir):$$PATH" $(call add_to_path,$(ld_library_path_var),$(CURDIR)/tmp_check/install$(libdir)) top_builddir='$(CURDIR)/$(top_builddir)' PGPORT='6$(DEF_PGPORT)' PG_REGRESS='$(CURDIR)/$(top_builddir)/src/test/regress/pg_regress' $(PROVE) $(PG_PROVE_FLAGS) $(PROVE_FLAGS) t/*.pl
endef endef
else else

98
src/bin/pg_basebackup/t/010_pg_basebackup.pl
View File

@ -25,11 +25,7 @@ if (open BADCHARS, ">>$tempdir/pgdata/FOO\xe0\xe0\xe0BAR")
close BADCHARS; close BADCHARS;
} }
open HBA, ">>$tempdir/pgdata/pg_hba.conf"; configure_hba_for_replication "$tempdir/pgdata";
print HBA "local replication all trust\n";
print HBA "host replication all 127.0.0.1/32 trust\n";
print HBA "host replication all ::1/128 trust\n";
close HBA;
system_or_bail 'pg_ctl', '-D', "$tempdir/pgdata", 'reload'; system_or_bail 'pg_ctl', '-D', "$tempdir/pgdata", 'reload';
command_fails( command_fails(
@ -57,54 +53,60 @@ command_ok([ 'pg_basebackup', '-D', "$tempdir/tarbackup", '-Ft' ],
'tar format'); 'tar format');
ok(-f "$tempdir/tarbackup/base.tar", 'backup tar was created'); ok(-f "$tempdir/tarbackup/base.tar", 'backup tar was created');
# Create a temporary directory in the system location and symlink it # The following tests test symlinks. Windows doesn't have symlinks, so
# to our physical temp location. That way we can use shorter names # skip on Windows.
# for the tablespace directories, which hopefully won't run afoul of SKIP: {
# the 99 character length limit. # Create a temporary directory in the system location and symlink it
my $shorter_tempdir = tempdir_short . "/tempdir"; # to our physical temp location. That way we can use shorter names
symlink "$tempdir", $shorter_tempdir; # for the tablespace directories, which hopefully won't run afoul of
# the 99 character length limit.
skip "symlinks not supported on Windows", 9 if ($windows_os);
mkdir "$tempdir/tblspc1"; my $shorter_tempdir = tempdir_short . "/tempdir";
psql 'postgres', "CREATE TABLESPACE tblspc1 LOCATION '$shorter_tempdir/tblspc1';"; symlink "$tempdir", $shorter_tempdir;
psql 'postgres', "CREATE TABLE test1 (a int) TABLESPACE tblspc1;";
command_ok([ 'pg_basebackup', '-D', "$tempdir/tarbackup2", '-Ft' ],
'tar format with tablespaces');
ok(-f "$tempdir/tarbackup2/base.tar", 'backup tar was created');
my @tblspc_tars = glob "$tempdir/tarbackup2/[0-9]*.tar";
is(scalar(@tblspc_tars), 1, 'one tablespace tar was created');
command_fails( mkdir "$tempdir/tblspc1";
[ 'pg_basebackup', '-D', "$tempdir/backup1", '-Fp' ], psql 'postgres', "CREATE TABLESPACE tblspc1 LOCATION '$shorter_tempdir/tblspc1';";
'plain format with tablespaces fails without tablespace mapping'); psql 'postgres', "CREATE TABLE test1 (a int) TABLESPACE tblspc1;";
command_ok([ 'pg_basebackup', '-D', "$tempdir/tarbackup2", '-Ft' ],
'tar format with tablespaces');
ok(-f "$tempdir/tarbackup2/base.tar", 'backup tar was created');
my @tblspc_tars = glob "$tempdir/tarbackup2/[0-9]*.tar";
is(scalar(@tblspc_tars), 1, 'one tablespace tar was created');
command_ok( command_fails(
[ 'pg_basebackup', '-D', [ 'pg_basebackup', '-D', "$tempdir/backup1", '-Fp' ],
"$tempdir/backup1", '-Fp', 'plain format with tablespaces fails without tablespace mapping');
"-T$shorter_tempdir/tblspc1=$tempdir/tbackup/tblspc1" ],
'plain format with tablespaces succeeds with tablespace mapping');
ok(-d "$tempdir/tbackup/tblspc1", 'tablespace was relocated');
opendir(my $dh, "$tempdir/pgdata/pg_tblspc") or die;
ok( ( grep
{
-l "$tempdir/backup1/pg_tblspc/$_"
and readlink "$tempdir/backup1/pg_tblspc/$_" eq
"$tempdir/tbackup/tblspc1"
} readdir($dh)),
"tablespace symlink was updated");
closedir $dh;
mkdir "$tempdir/tbl=spc2"; command_ok(
psql 'postgres', "DROP TABLE test1;"; [ 'pg_basebackup', '-D',
psql 'postgres', "DROP TABLESPACE tblspc1;"; "$tempdir/backup1", '-Fp',
psql 'postgres', "CREATE TABLESPACE tblspc2 LOCATION '$shorter_tempdir/tbl=spc2';"; "-T$shorter_tempdir/tblspc1=$tempdir/tbackup/tblspc1" ],
command_ok( 'plain format with tablespaces succeeds with tablespace mapping');
[ 'pg_basebackup', '-D', ok(-d "$tempdir/tbackup/tblspc1", 'tablespace was relocated');
"$tempdir/backup3", '-Fp', opendir(my $dh, "$tempdir/pgdata/pg_tblspc") or die;
"-T$shorter_tempdir/tbl\\=spc2=$tempdir/tbackup/tbl\\=spc2" ], ok( ( grep
'mapping tablespace with = sign in path'); {
ok(-d "$tempdir/tbackup/tbl=spc2", 'tablespace with = sign was relocated'); -l "$tempdir/backup1/pg_tblspc/$_"
and readlink "$tempdir/backup1/pg_tblspc/$_" eq
"$tempdir/tbackup/tblspc1"
} readdir($dh)),
"tablespace symlink was updated");
closedir $dh;
psql 'postgres', "DROP TABLESPACE tblspc2;"; mkdir "$tempdir/tbl=spc2";
psql 'postgres', "DROP TABLE test1;";
psql 'postgres', "DROP TABLESPACE tblspc1;";
psql 'postgres', "CREATE TABLESPACE tblspc2 LOCATION '$shorter_tempdir/tbl=spc2';";
command_ok(
[ 'pg_basebackup', '-D',
"$tempdir/backup3", '-Fp',
"-T$shorter_tempdir/tbl\\=spc2=$tempdir/tbackup/tbl\\=spc2" ],
'mapping tablespace with = sign in path');
ok(-d "$tempdir/tbackup/tbl=spc2", 'tablespace with = sign was relocated');
psql 'postgres', "DROP TABLESPACE tblspc2;";
}
command_fails( command_fails(
[ 'pg_basebackup', '-D', "$tempdir/backup_foo", '-Fp', "-T=/foo" ], [ 'pg_basebackup', '-D', "$tempdir/backup_foo", '-Fp', "-T=/foo" ],

15
src/bin/pg_ctl/t/001_start_stop.pl
View File

@ -1,5 +1,6 @@
use strict; use strict;
use warnings; use warnings;
use Config;
use TestLib; use TestLib;
use Test::More tests => 16; use Test::More tests => 16;
@ -12,12 +13,20 @@ program_options_handling_ok('pg_ctl');
command_ok([ 'pg_ctl', 'initdb', '-D', "$tempdir/data" ], 'pg_ctl initdb'); command_ok([ 'pg_ctl', 'initdb', '-D', "$tempdir/data" ], 'pg_ctl initdb');
command_ok( command_ok(
[ "$ENV{top_builddir}/src/test/regress/pg_regress", '--config-auth', [ $ENV{PG_REGRESS}, '--config-auth',
"$tempdir/data" ], "$tempdir/data" ],
'configure authentication'); 'configure authentication');
open CONF, ">>$tempdir/data/postgresql.conf"; open CONF, ">>$tempdir/data/postgresql.conf";
print CONF "listen_addresses = ''\n"; print CONF "fsync = off\n";
print CONF "unix_socket_directories = '$tempdir_short'\n"; if (! $windows_os)
{
print CONF "listen_addresses = ''\n";
print CONF "unix_socket_directories = '$tempdir_short'\n";
}
else
{
print CONF "listen_addresses = '127.0.0.1'\n";
}
close CONF; close CONF;
command_ok([ 'pg_ctl', 'start', '-D', "$tempdir/data", '-w' ], command_ok([ 'pg_ctl', 'start', '-D', "$tempdir/data", '-w' ],
'pg_ctl start -w'); 'pg_ctl start -w');

4
src/bin/pg_ctl/t/002_status.pl
View File

@ -7,10 +7,6 @@ my $tempdir = TestLib::tempdir;
my $tempdir_short = TestLib::tempdir_short; my $tempdir_short = TestLib::tempdir_short;
standard_initdb "$tempdir/data"; standard_initdb "$tempdir/data";
open CONF, ">>$tempdir/data/postgresql.conf";
print CONF "listen_addresses = ''\n";
print CONF "unix_socket_directories = '$tempdir_short'\n";
close CONF;
command_exit_is([ 'pg_ctl', 'status', '-D', "$tempdir/data" ], command_exit_is([ 'pg_ctl', 'status', '-D', "$tempdir/data" ],
3, 'pg_ctl status with server not running'); 3, 'pg_ctl status with server not running');

1
src/test/perl/SimpleTee.pm
View File

@ -20,6 +20,7 @@ sub PRINT {
my $ok = 1; my $ok = 1;
for my $fh (@$self) { for my $fh (@$self) {
print $fh @_ or $ok = 0; print $fh @_ or $ok = 0;
$fh->flush or $ok = 0;
} }
return $ok; return $ok;
} }

108
src/test/perl/TestLib.pm
View File

@ -9,9 +9,12 @@ our @EXPORT = qw(
tempdir tempdir
tempdir_short tempdir_short
standard_initdb standard_initdb
configure_hba_for_replication
start_test_server start_test_server
restart_test_server restart_test_server
psql psql
slurp_dir
slurp_file
system_or_bail system_or_bail
system_log system_log
run_log run_log
@ -107,39 +110,89 @@ $ENV{PGPORT} = int($ENV{PGPORT}) % 65536;
sub tempdir sub tempdir
{ {
return File::Temp::tempdir('tmp_testXXXX', DIR => $ENV{TESTDIR} || cwd(), CLEANUP => 1); return File::Temp::tempdir(
'tmp_testXXXX',
DIR => $ENV{TESTDIR} || cwd(),
CLEANUP => 1);
} }
sub tempdir_short sub tempdir_short
{ {
# Use a separate temp dir outside the build tree for the # Use a separate temp dir outside the build tree for the
# Unix-domain socket, to avoid file name length issues. # Unix-domain socket, to avoid file name length issues.
return File::Temp::tempdir(CLEANUP => 1); return File::Temp::tempdir(CLEANUP => 1);
} }
# Initialize a new cluster for testing.
#
# The PGHOST environment variable is set to connect to the new cluster.
#
# Authentication is set up so that only the current OS user can access the
# cluster. On Unix, we use Unix domain socket connections, with the socket in
# a directory that's only accessible to the current user to ensure that.
# On Windows, we use SSPI authentication to ensure the same (by pg_regress
# --config-auth).
sub standard_initdb sub standard_initdb
{ {
my $pgdata = shift; my $pgdata = shift;
system_or_bail('initdb', '-D', "$pgdata", '-A' , 'trust', '-N'); system_or_bail('initdb', '-D', "$pgdata", '-A' , 'trust', '-N');
system_or_bail("$ENV{top_builddir}/src/test/regress/pg_regress", system_or_bail($ENV{PG_REGRESS}, '--config-auth', $pgdata);
'--config-auth', $pgdata);
my $tempdir_short = tempdir_short;
open CONF, ">>$pgdata/postgresql.conf";
print CONF "\n# Added by TestLib.pm)\n";
print CONF "fsync = off\n";
if ($windows_os)
{
print CONF "listen_addresses = '127.0.0.1'\n";
}
else
{
print CONF "unix_socket_directories = '$tempdir_short'\n";
print CONF "listen_addresses = ''\n";
}
close CONF;
$ENV{PGHOST} = $windows_os ? "127.0.0.1" : $tempdir_short;
}
# Set up the cluster to allow replication connections, in the same way that
# standard_initdb does for normal connections.
sub configure_hba_for_replication
{
my $pgdata = shift;
open HBA, ">>$pgdata/pg_hba.conf";
print HBA "\n# Allow replication (set up by TestLib.pm)\n";
if (! $windows_os)
{
print HBA "local replication all trust\n";
}
else
{
print HBA "host replication all 127.0.0.1/32 sspi include_realm=1 map=regress\n";
}
close HBA;
} }
my ($test_server_datadir, $test_server_logfile); my ($test_server_datadir, $test_server_logfile);
# Initialize a new cluster for testing in given directory, and start it.
sub start_test_server sub start_test_server
{ {
my ($tempdir) = @_; my ($tempdir) = @_;
my $ret; my $ret;
my $tempdir_short = tempdir_short;
print("### Starting test server in $tempdir\n"); print("### Starting test server in $tempdir\n");
standard_initdb "$tempdir/pgdata"; standard_initdb "$tempdir/pgdata";
$ret = system_log('pg_ctl', '-D', "$tempdir/pgdata", '-w', '-l', $ret = system_log('pg_ctl', '-D', "$tempdir/pgdata", '-w', '-l',
"$log_path/postmaster.log", '-o', "$log_path/postmaster.log", '-o', "--log-statement=all",
"--fsync=off -k \"$tempdir_short\" --listen-addresses='' --log-statement=all", 'start');
'start');
if ($ret != 0) if ($ret != 0)
{ {
print "# pg_ctl failed; logfile:\n"; print "# pg_ctl failed; logfile:\n";
@ -147,7 +200,6 @@ sub start_test_server
BAIL_OUT("pg_ctl failed"); BAIL_OUT("pg_ctl failed");
} }
$ENV{PGHOST} = $tempdir_short;
$test_server_datadir = "$tempdir/pgdata"; $test_server_datadir = "$tempdir/pgdata";
$test_server_logfile = "$log_path/postmaster.log"; $test_server_logfile = "$log_path/postmaster.log";
} }
@ -171,8 +223,30 @@ END
sub psql sub psql
{ {
my ($dbname, $sql) = @_; my ($dbname, $sql) = @_;
my ($stdout, $stderr);
print("# Running SQL command: $sql\n"); 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;
$stdout =~ s/\r//g if $Config{osname} eq 'msys';
return $stdout;
}
sub slurp_dir
{
my ($dir) = @_;
opendir(my $dh, $dir) or die;
my @direntries = readdir $dh;
closedir $dh;
return @direntries;
}
sub slurp_file
{
local $/;
local @ARGV = @_;
my $contents = <>;
$contents =~ s/\r//g if $Config{osname} eq 'msys';
return $contents;
} }
sub system_or_bail sub system_or_bail
@ -221,7 +295,17 @@ sub command_exit_is
print("# Running: " . join(" ", @{$cmd}) ."\n"); print("# Running: " . join(" ", @{$cmd}) ."\n");
my $h = start $cmd; my $h = start $cmd;
$h->finish(); $h->finish();
is($h->result(0), $expected, $test_name);
# On Windows, the exit status of the process is returned directly as the
# process's exit code, while on Unix, it's returned in the high bits
# of the exit code (see WEXITSTATUS macro in the standard <sys/wait.h>
# header file). IPC::Run's result function always returns exit code >> 8,
# assuming the Unix convention, which will always return 0 on Windows as
# long as the process was not terminated by an exception. To work around
# that, use $h->full_result on Windows instead.
my $result = ($Config{osname} eq "MSWin32") ?
($h->full_results)[0] : $h->result(0);
is($result, $expected, $test_name);
} }
sub program_help_ok sub program_help_ok
@ -274,7 +358,7 @@ sub issues_sql_like
truncate $test_server_logfile, 0; truncate $test_server_logfile, 0;
my $result = run_log($cmd); my $result = run_log($cmd);
ok($result, "@$cmd exit code 0"); ok($result, "@$cmd exit code 0");
my $log = `cat '$test_server_logfile'`; my $log = slurp_file($test_server_logfile);
like($log, $expected_sql, "$test_name: SQL found in server log"); like($log, $expected_sql, "$test_name: SQL found in server log");
} }

6
src/tools/msvc/clean.bat
View File

@ -74,6 +74,12 @@ if exist src\test\regress\regress.dll del /q src\test\regress\regress.dll
if exist src\test\regress\refint.dll del /q src\test\regress\refint.dll if exist src\test\regress\refint.dll del /q src\test\regress\refint.dll
if exist src\test\regress\autoinc.dll del /q src\test\regress\autoinc.dll if exist src\test\regress\autoinc.dll del /q src\test\regress\autoinc.dll
if exist src\bin\initdb\tmp_check rd /s /q src\bin\initdb\tmp_check
if exist src\bin\pg_basebackup\tmp_check rd /s /q src\bin\pg_basebackup\tmp_check
if exist src\bin\pg_config\tmp_check rd /s /q src\bin\pg_config\tmp_check
if exist src\bin\pg_ctl\tmp_check rd /s /q src\bin\pg_ctl\tmp_check
if exist src\bin\scripts\tmp_check rd /s /q src\bin\scripts\tmp_check
REM Clean up datafiles built with contrib REM Clean up datafiles built with contrib
REM cd contrib REM cd contrib
REM for /r %%f in (*.sql) do if exist %%f.in del %%f REM for /r %%f in (*.sql) do if exist %%f.in del %%f

45
src/tools/msvc/vcregress.pl
View File

@ -7,7 +7,9 @@ use strict;
our $config; our $config;
use Cwd; use Cwd;
use File::Basename;
use File::Copy; use File::Copy;
use File::Find ();
use Install qw(Install); use Install qw(Install);
@ -31,7 +33,7 @@ if (-e "src/tools/msvc/buildenv.pl")
my $what = shift || ""; my $what = shift || "";
if ($what =~ if ($what =~
/^(check|installcheck|plcheck|contribcheck|ecpgcheck|isolationcheck|upgradecheck)$/i /^(check|installcheck|plcheck|contribcheck|ecpgcheck|isolationcheck|upgradecheck|tapcheck)$/i
) )
{ {
$what = uc $what; $what = uc $what;
@ -58,7 +60,7 @@ unless ($schedule)
$schedule = "parallel" if ($what eq 'CHECK' || $what =~ /PARALLEL/); $schedule = "parallel" if ($what eq 'CHECK' || $what =~ /PARALLEL/);
} }
$ENV{PERL5LIB} = "$topdir/src/tools/msvc"; $ENV{PERL5LIB} = "$topdir/src/tools/msvc;$ENV{PERL5LIB}";
my $maxconn = ""; my $maxconn = "";
$maxconn = "--max_connections=$ENV{MAX_CONNECTIONS}" $maxconn = "--max_connections=$ENV{MAX_CONNECTIONS}"
@ -77,6 +79,7 @@ my %command = (
ECPGCHECK => \&ecpgcheck, ECPGCHECK => \&ecpgcheck,
CONTRIBCHECK => \&contribcheck, CONTRIBCHECK => \&contribcheck,
ISOLATIONCHECK => \&isolationcheck, ISOLATIONCHECK => \&isolationcheck,
TAPCHECK => \&tapcheck,
UPGRADECHECK => \&upgradecheck,); UPGRADECHECK => \&upgradecheck,);
my $proc = $command{$what}; my $proc = $command{$what};
@ -162,6 +165,44 @@ sub isolationcheck
exit $status if $status; exit $status if $status;
} }
sub tapcheck
{
my @args = ( "prove", "--verbose", "t/*.pl");
my $mstat = 0;
$ENV{PERL5LIB} = "$topdir/src/test/perl;$ENV{PERL5LIB}";
$ENV{PG_REGRESS} = "$topdir/$Config/pg_regress/pg_regress";
# Find out all the existing TAP tests by looking for t/ directories
# in the tree.
my $tap_dirs = [];
my @top_dir = ($topdir);
File::Find::find(
{ wanted => sub {
/^t\z/s
&& push(@$tap_dirs, $File::Find::name);
}
},
@top_dir);
# Process each test
foreach my $test_path (@$tap_dirs)
{
my $dir = dirname($test_path);
my $tmp_root = "$dir/tmp_check";
(mkdir $tmp_root || die $!) unless -d $tmp_root;
my $tmp_install = "$tmp_root/install";
Install($tmp_install, "all", $config);
chdir $dir;
# Reset those values, they may have been changed by another test.
$ENV{TESTDIR} = "$dir";
system(@args);
my $status = $? >> 8;
$mstat ||= $status;
}
exit $mstat if $mstat;
}
sub plcheck sub plcheck
{ {
chdir "../../pl"; chdir "../../pl";