One test was relying on method remove_tree that isn't implemented in the
oldest Perl we support; fix it by using the older rmtree instead.
Another test had a typo in a SQL command, which isn't noticed because
the PostgresNode->psql() method doesn't check that queries return
correctly. That's undesirable and will also be fixed later on, but for
now let's make the test actually work.
Author: Craig Ringer
my $lsn4 =
$node_master->psql('postgres', "SELECT pg_current_xlog_location();");
$node_master->psql('postgres',
- "SELECT pg_create_restore_point('$recovery_name'");
+ "SELECT pg_create_restore_point('$recovery_name');");
# Force archiving of WAL file
$node_master->psql('postgres', "SELECT pg_switch_xlog()");
# on a new timeline.
use strict;
use warnings;
-use File::Path qw(remove_tree);
+use File::Path qw(rmtree);
use PostgresNode;
use TestLib;
use Test::More tests => 1;
$node_standby_1->promote;
# Switch standby 2 to replay from standby 1
-remove_tree($node_standby_2->data_dir . '/recovery.conf');
+rmtree($node_standby_2->data_dir . '/recovery.conf');
my $connstr_1 = $node_standby_1->connstr;
$node_standby_2->append_conf(
'recovery.conf', qq(