sub create_logical_slot_on_standby

{

my ($self, $primary, $slot_name, $dbname) = @_;

my ($stdout, $stderr);

my $handle;

$handle = IPC::Run::start(['pg_recvlogical', '-d', $self->connstr($dbname), '-P', 'test_decoding', '-S', $slot_name, '--create-slot'], '>', \$stdout, '2>', \$stderr);

# Once the slot's restart_lsn is determined, the standby looks for

# xl_running_xacts WAL record from the restart_lsn onwards. First wait

# until the slot restart_lsn is determined.

$self->poll_query_until(

'postgres', qq[

]) or die "timed out waiting for logical slot to calculate its restart_lsn";

# Then arrange for the xl_running_xacts record for which pg_recvlogical is

# waiting.

$primary->safe_psql('postgres', 'SELECT pg_log_standby_snapshot()');

$handle->finish();

is($self->slot($slot_name)->{'slot_type'}, 'logical', $slot_name . ' on standby created')

or die "could not create slot" . $slot_name;

}

't/035_standby_logical_decoding.pl',