/usr/share/postgresql-common/t/041_upgrade_custompaths.t is in postgresql-common 129.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 | # Test cluster upgrade with a custom data directory and custom log file.
use strict;
use lib 't';
use TestLib;
use Test::More tests => ($#MAJORS == 0) ? 1 : 30;
if ($#MAJORS == 0) {
pass 'only one major version installed, skipping upgrade tests';
exit 0;
}
use lib '/usr/share/postgresql-common';
use PgCommon;
ok ((system "pg_createcluster --datadir /tmp/postgresql-test -l /tmp/postgresql-test.log --start $MAJORS[0] upgr >/dev/null") == 0);
# Upgrade to latest version
my $outref;
is ((exec_as 0, "pg_upgradecluster $MAJORS[0] upgr", $outref, 0), 0, 'pg_upgradecluster succeeds');
like $$outref, qr/Starting target cluster/, 'pg_upgradecluster reported cluster startup';
like $$outref, qr/Success. Please check/, 'pg_upgradecluster reported successful operation';
# Check clusters
is_program_out 'nobody', 'pg_lsclusters -h', 0,
"$MAJORS[0] upgr 5433 down postgres /tmp/postgresql-test /tmp/postgresql-test.log
$MAJORS[-1] upgr 5432 online postgres /var/lib/postgresql/$MAJORS[-1]/upgr /var/log/postgresql/postgresql-$MAJORS[-1]-upgr.log
", 'pg_lsclusters output';
# clean away new cluster and restart the old one
is ((system "pg_dropcluster $MAJORS[-1] upgr --stop"), 0, 'Dropping upgraded cluster');
is_program_out 0, "pg_ctlcluster $MAJORS[0] upgr start", 0, '', 'Restarting old cluster';
is_program_out 'nobody', 'pg_lsclusters -h', 0,
"$MAJORS[0] upgr 5433 online postgres /tmp/postgresql-test /tmp/postgresql-test.log
", 'pg_lsclusters output';
# Do another upgrade with using a custom defined data directory
my $outref;
is ((exec_as 0, "pg_upgradecluster $MAJORS[0] upgr /tmp/psql-common-testsuite", $outref, 0), 0, 'pg_upgradecluster succeeds');
unlike $$outref, qr/^pg_restore: /m, 'no pg_restore error messages during upgrade';
unlike $$outref, qr/^[A-Z]+: /m, 'no server error messages during upgrade';
like $$outref, qr/Starting target cluster/, 'pg_upgradecluster reported cluster startup';
like $$outref, qr/Success. Please check/, 'pg_upgradecluster reported successful operation';
is_program_out 'nobody', 'pg_lsclusters -h', 0,
"$MAJORS[0] upgr 5432 down postgres /tmp/postgresql-test /tmp/postgresql-test.log
$MAJORS[-1] upgr 5433 online postgres /tmp/psql-common-testsuite /var/log/postgresql/postgresql-$MAJORS[-1]-upgr.log
", 'pg_lsclusters output';
# stop servers, clean up
is ((system "pg_dropcluster $MAJORS[0] upgr"), 0, 'Dropping original cluster');
is ((system "pg_dropcluster $MAJORS[-1] upgr --stop"), 0, 'Dropping upgraded cluster');
check_clean;
# vim: filetype=perl
|