<userinput>vcregress modulescheck</userinput>

<userinput>vcregress ecpgcheck</userinput>

<userinput>vcregress isolationcheck</userinput>

<userinput>vcregressbincheck</userinput>

<userinput>vcregresstapcheck</userinput>

<userinput>vcregress upgradecheck</userinput>

</screen>

</para>

<para>

Running the regression tests on client programs, with "vcregressbincheck",

requires anadditional Perl module to be installed:

Running theTAPregression tests, with "vcregresstapcheck", requires an

additional Perl module to be installed:

<variablelist>

<varlistentry>

<term><productname>IPC::Run</productname></term>

<listitem>

<para>

Write a minimal <filename>recovery.conf</filename> in the output directory (or into

the base archive file when using tar format) to ease setting

up a standby server.

Write a minimal <filename>recovery.conf</filename> in the output

directory (or into the base archive file when using tar format) to

ease setting up a standby server.

The <filename>recovery.conf</filename> file will record the connection

settings and, if specified, the replication slot

that <application>pg_basebackup</application> is using, so that the

streaming replication will use the same settings later on.

</para>

</listitem>

</varlistentry>

<varlistentry>

<term><option>-S <replaceable>slotname</replaceable></option></term>

<term><option>--slot=<replaceable class="parameter">slotname</replaceable></option></term>

<listitem>

<para>

This option can only be used together with <literal>-X

stream</literal>. It causes the WAL streaming to use the specified

replication slot. If the base backup is intended to be used as a

streaming replication standby using replication slots, it should then

use the same replication slot name

in <filename>recovery.conf</filename>. That way, it is ensured that

the server does not remove any necessary WAL data in the time between

the end of the base backup and the start of streaming replication.

</para>

</listitem>

</varlistentry>

<varlistentry>

<term><option>-T <replaceable class="parameter">olddir</replaceable>=<replaceable class="parameter">newdir</replaceable></option></term>

<term><option>--tablespace-mapping=<replaceable class="parameter">olddir</replaceable>=<replaceable class="parameter">newdir</replaceable></option></term>

" (in kB/s, or use suffix \"k\" or \"M\")\n"));

printf(_(" -R, --write-recovery-conf\n"

" write recovery.conf after backup\n"));

printf(_(" -S, --slot=SLOTNAME replication slot to use\n"));

printf(_(" -T, --tablespace-mapping=OLDDIR=NEWDIR\n"

" relocate tablespace in OLDDIR to NEWDIR\n"));

printf(_(" -x, --xlog include required WAL files in backup (fetch mode)\n"));

appendPQExpBuffer(recoveryconfcontents,"primary_conninfo = '%s'\n",escaped);

free(escaped);

if (replication_slot)

{

escaped=escape_quotes(replication_slot);

appendPQExpBuffer(recoveryconfcontents,"primary_slot_name = '%s'\n",replication_slot);

free(escaped);

}

if (PQExpBufferBroken(recoveryconfcontents)||

PQExpBufferDataBroken(conninfo_buf))

{

{"checkpoint",required_argument,NULL,'c'},

{"max-rate",required_argument,NULL,'r'},

{"write-recovery-conf",no_argument,NULL,'R'},

{"slot",required_argument,NULL,'S'},

{"tablespace-mapping",required_argument,NULL,'T'},

{"xlog",no_argument,NULL,'x'},

{"xlog-method",required_argument,NULL,'X'},

}

}

while ((c=getopt_long(argc,argv,"D:F:r:RT:xX:l:zZ:d:c:h:p:U:s:wWvP",

while ((c=getopt_long(argc,argv,"D:F:r:RT:xX:l:zZ:d:c:h:p:U:s:S:wWvP",

long_options,&option_index))!=-1)

{

switch (c)

case'R':

writerecoveryconf= true;

break;

case'S':

replication_slot=pg_strdup(optarg);

break;

case'T':

tablespace_list_append(optarg);

break;

exit(1);

}

if (replication_slot&& !streamwal)

{

fprintf(stderr,

_("%s: replication slots can only be used with WAL streaming\n"),

progname);

fprintf(stderr,_("Try \"%s --help\" for more information.\n"),

progname);

exit(1);

}

if (strcmp(xlog_dir,"")!=0)

{

if (format!='p')

use Cwd;

use Config;

use TestLib;

use Test::Moretests=>46;

use Test::Moretests=>51;

program_help_ok('pg_basebackup');

program_version_ok('pg_basebackup');

SKIP: {

skip"symlinks not supported on Windows", 10if ($windows_os);

skip"symlinks not supported on Windows", 10if ($Config{osname}eq"MSWin32");

'pg_basebackup with replication slot fails without -X stream');

command_fails(['pg_basebackup','-D',"$tempdir/backupxs_sl_fail",'-X','stream','-S','slot1' ],

'pg_basebackup fails with nonexistent replication slot');

psql'postgres',q{SELECT * FROM pg_create_physical_replication_slot('slot1')};

my$lsn = psql'postgres',q{SELECT restart_lsn FROM pg_replication_slots WHERE slot_name = 'slot1'};

is($lsn,'','restart LSN of new slot is null');

command_ok(['pg_basebackup','-D',"$tempdir/backupxs_sl",'-X','stream','-S','slot1' ],

'pg_basebackup -X stream with replication slot runs');

$lsn = psql'postgres',q{SELECT restart_lsn FROM pg_replication_slots WHERE slot_name = 'slot1'};

like($lsn,qr!^0/[0-9A-Z]{7,8}$!,'restart LSN of slot has advanced');

command_ok(['pg_basebackup','-D',"$tempdir/backupxs_sl_R",'-X','stream','-S','slot1','-R' ],

'pg_basebackup with replication slot and -R runs');

like(slurp_file("$tempdir/backupxs_sl_R/recovery.conf"),

qr/^primary_slot_name = 'slot1'$/m,

'recovery.conf sets primary_slot_name');

"$tempdir/data" ],

'configure authentication');

open CONF,">>$tempdir/data/postgresql.conf";

print CONF"fsync = off\n";

if (!$windows_os)

if ($Config{osname}ne"MSWin32")

{

print CONF"listen_addresses = ''\n";

print CONF"unix_socket_directories = '$tempdir_short'\n";

configure_hba_for_replication$test_master_datadir;

}

{

'-l',"$log_path/standby.log",

'-o',"-p$port_standby",'start');

my$caughtup_query =

"SELECT pg_current_xlog_location() = replay_location FROM pg_stat_replication WHERE application_name = 'rewind_standby';";

poll_query_until($caughtup_query,$connstr_master)

ordie"Timed out while waiting for standby to catch up";

}

open CONF,">>$pgdata/postgresql.conf";

print CONF"\n# Added by TestLib.pm)\n";

print CONF"fsync = off\n";

if ($windows_os)

if ($Config{osname}eq"MSWin32")

{

print CONF"listen_addresses = '127.0.0.1'\n";

}

}

close CONF;

$ENV{PGHOST} =$windows_os ?"127.0.0.1" :$tempdir_short;

$ENV{PGHOST} =($Config{osname}eq"MSWin32") ?"127.0.0.1" :$tempdir_short;

}

open HBA,">>$pgdata/pg_hba.conf";

print HBA"\n# Allow replication (set up by TestLib.pm)\n";

if (!$windows_os)

if ($Config{osname}ne"MSWin32")

{

print HBA"local replication all trust\n";

}

standard_initdb"$tempdir/pgdata";

$ret = system_log('pg_ctl','-D',"$tempdir/pgdata",'-w','-l',

"$log_path/postmaster.log",'-o',"--log-statement=all",

"$log_path/postmaster.log",'-o',"--fsync=off --log-statement=all",

'start');

if ($ret != 0)

print("# Running SQL command:$sql\n");

run ['psql','-X','-A','-t','-q','-d',$dbname,'-f','-' ],'<', \$sql,'>', \$stdout,'2>', \$stderrordie;

chomp$stdout;

$stdout =~s/\r//gif$Config{osname}eq'msys';

return$stdout;

}

ifexist src\bin\initdb\tmp_checkrd /s /q src\bin\initdb\tmp_check

ifexist src\bin\pg_basebackup\tmp_checkrd /s /q src\bin\pg_basebackup\tmp_check

ifexist src\bin\pg_config\tmp_checkrd /s /q src\bin\pg_config\tmp_check

ifexist src\bin\pg_controldata\tmp_checkrd /s /q src\bin\pg_controldata\tmp_check

ifexist src\bin\pg_ctl\tmp_checkrd /s /q src\bin\pg_ctl\tmp_check

ifexist src\bin\pg_rewind\tmp_checkrd /s /q src\bin\pg_rewind\tmp_check

ifexist src\bin\pgbench\tmp_checkrd /s /q src\bin\pgbench\tmp_check

ifexist src\bin\scripts\tmp_checkrd /s /q src\bin\scripts\tmp_check

my$what =shift ||"";

if ($what =~

)

{

$what =uc$what;

$schedule ="parallel"if ($whateq'CHECK' ||$what =~/PARALLEL/);

}

if ($ENV{PERL5LIB})

{

$ENV{PERL5LIB} ="$topdir/src/tools/msvc;$ENV{PERL5LIB}";

}

{

$ENV{PERL5LIB} ="$topdir/src/tools/msvc";

}

$ENV{PERL5LIB} ="$topdir/src/tools/msvc;$ENV{PERL5LIB}";

my$maxconn ="";

$maxconn ="--max_connections=$ENV{MAX_CONNECTIONS}"

CONTRIBCHECK=> \&contribcheck,

MODULESCHECK=> \&modulescheck,

ISOLATIONCHECK=> \&isolationcheck,

BINCHECK=> \&bincheck,

TAPCHECK=> \&tapcheck,

UPGRADECHECK=> \&upgradecheck,);

my$proc =$command{$what};

exit$statusif$status;

}

{

InstallTemp();

my@args = ("prove","--verbose","t/*.pl");

$ENV{PATH} ="$tmp_installdir/bin;$ENV{PATH}";

$ENV{PERL5LIB} ="$topdir/src/test/perl;$ENV{PERL5LIB}";

$ENV{PG_REGRESS} ="$topdir/$Config/pg_regress/pg_regress";

my$tap_dirs = [];

my@top_dir = ($topdir);

File::Find::find(

{wanted=>sub {

&&push(@$tap_dirs,$File::Find::name);

}

},

@top_dir);

foreachmy$test_path (@$tap_dirs)

{

nextif ($test_path =~/\/src\/test\/ssl\//);

my$dir = dirname($test_path);

chdir$dir;

$ENV{TESTDIR} ="$dir";

system(@args);

my$status =$? >> 8;

exit$statusif$status;

}

}

{

unless$config->{tap_tests};