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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
# Test upgrading from the oldest version to all majors with all possible
# configuration parameters set. This checks that they are correctly
# transitioned.
use strict;
use lib 't';
use TestLib;
use Test::More tests => (@MAJORS == 1) ? 1 : (12 + @MAJORS * 9);
if (@MAJORS == 1) {
pass 'only one major version installed, skipping upgrade tests';
exit 0;
}
$ENV{_SYSTEMCTL_SKIP_REDIRECT} = 1; # FIXME: testsuite is hanging otherwise
# t/$v.conf generated using
# sed -e 's/^#//' -e 's/[ \t]*#.*//g' /etc/postgresql/9.3/foo/postgresql.conf | grep '^[a-z]'
# remove/comment data_directory, hba_file, ident_file, external_pid_file, include_dir, include
# lc_* should be 'C'
# stats_temp_directory should point to /var/run/postgresql/*.pg_stat_tmp
# Test one particular upgrade (old version, new version)
sub do_upgrade {
my $cur = $_[0];
my $new = $_[1];
note "Testing upgrade $cur -> $new";
open C, "t/$cur.conf" or die "could not open t/$cur.conf: $!";
my $fullconf;
{ local $/; $fullconf = <C>; }
close C;
# Write configuration file and start
my $datadir = PgCommon::cluster_data_directory $cur, 'main';
open F, ">/etc/postgresql/$cur/main/postgresql.conf" or
die "could not open /etc/postgresql/$cur/main/postgresql.conf";
print F $fullconf;
close F;
# restore data directory, we just scribbled over it
PgCommon::set_conf_value $cur, 'main', 'postgresql.conf', 'data_directory', $datadir;
is ((exec_as 0, "pg_ctlcluster $cur main start"), 0,
'pg_ctlcluster start');
like_program_out 'postgres', 'pg_lsclusters -h', 0, qr/$cur.*online/,
"Old $cur cluster is online";
# Upgrade cluster
like_program_out 0, "pg_upgradecluster -v $new $cur main", 0, qr/^Success/im;
like_program_out 'postgres', 'pg_lsclusters -h', 0, qr/$new.*online/,
"New $new cluster is online";
is ((system "pg_dropcluster $cur main"), 0, "pg_dropcluster $cur main");
is ((exec_as 0, "pg_ctlcluster $new main stop 2>/dev/null"), 0,
"Stopping new $new pg_ctlcluster");
}
# create cluster for oldest version
is ((system "pg_createcluster $MAJORS[0] main >/dev/null"), 0, "pg_createcluster $MAJORS[0] main");
# Loop over all but the latest major version, testing N->N+1 upgrades
my @testversions = sort { $a <=> $b } @MAJORS;
while ($#testversions) {
my $cur = shift @testversions;
my $new = $testversions[0];
do_upgrade $cur, $new;
}
# remove latest cluster and directory
is ((system "pg_dropcluster $testversions[0] main"), 0, 'Dropping remaining cluster');
# now test a direct upgrade from oldest to newest, to also catch parameters
# which changed several times, like syslog -> redirect_stderr ->
# logging_collector
if ($#MAJORS > 1) {
is ((system "pg_createcluster $MAJORS[0] main >/dev/null"), 0, "pg_createcluster $MAJORS[0] main");
do_upgrade $MAJORS[0], $MAJORS[-1];
is ((system "pg_dropcluster $testversions[0] main"), 0, 'Dropping remaining cluster');
} else {
pass 'only two available versions, skipping tests...';
for (my $i = 0; $i < 10; ++$i) {
pass '...';
}
}
check_clean;
# vim: filetype=perl
|
