|
| 1 | +# Checks that snapshots on standbys behave in a minimally reasonable |
| 2 | +# way. |
| 3 | +use strict; |
| 4 | +use warnings; |
| 5 | + |
| 6 | +use PostgresNode; |
| 7 | +use TestLib; |
| 8 | +use Test::More tests => 10; |
| 9 | + |
| 10 | +# Initialize primary node |
| 11 | +my $node_primary = get_new_node('primary'); |
| 12 | +$node_primary->init(allows_streaming => 1); |
| 13 | +$node_primary->append_conf('postgresql.conf', 'max_prepared_transactions=10'); |
| 14 | +$node_primary->start; |
| 15 | + |
| 16 | +# Initialize with empty test table |
| 17 | +$node_primary->safe_psql('postgres', |
| 18 | + 'CREATE TABLE public.test_visibility (data text not null)'); |
| 19 | + |
| 20 | +# Take backup |
| 21 | +my $backup_name = 'my_backup'; |
| 22 | +$node_primary->backup($backup_name); |
| 23 | + |
| 24 | +# Create streaming standby from backup |
| 25 | +my $node_standby = get_new_node('standby'); |
| 26 | +$node_standby->init_from_backup($node_primary, $backup_name, |
| 27 | + has_streaming => 1); |
| 28 | +$node_standby->append_conf('postgresql.conf', 'max_prepared_transactions=10'); |
| 29 | +$node_standby->start; |
| 30 | + |
| 31 | +# To avoid hanging while expecting some specific input from a psql |
| 32 | +# instance being driven by us, add a timeout high enough that it |
| 33 | +# should never trigger even on very slow machines, unless something |
| 34 | +# is really wrong. |
| 35 | +my $psql_timeout = IPC::Run::timer(30); |
| 36 | + |
| 37 | +# One psql to primary and standby each, for all queries. That allows |
| 38 | +# to check uncommitted changes being replicated and such. |
| 39 | +my %psql_primary = (stdin => '', stdout => '', stderr => ''); |
| 40 | +$psql_primary{run} = |
| 41 | + IPC::Run::start( |
| 42 | + ['psql', '-XA', '-f', '-', '-d', $node_primary->connstr('postgres')], |
| 43 | + '<', \$psql_primary{stdin}, |
| 44 | + '>', \$psql_primary{stdout}, |
| 45 | + '2>', \$psql_primary{stderr}, |
| 46 | + $psql_timeout); |
| 47 | + |
| 48 | +my %psql_standby = ('stdin' => '', 'stdout' => '', 'stderr' => ''); |
| 49 | +$psql_standby{run} = |
| 50 | + IPC::Run::start( |
| 51 | + ['psql', '-XA', '-f', '-', '-d', $node_standby->connstr('postgres')], |
| 52 | + '<', \$psql_standby{stdin}, |
| 53 | + '>', \$psql_standby{stdout}, |
| 54 | + '2>', \$psql_standby{stderr}, |
| 55 | + $psql_timeout); |
| 56 | + |
| 57 | +# |
| 58 | +# 1. Check initial data is the same |
| 59 | +# |
| 60 | +ok(send_query_and_wait(\%psql_standby, |
| 61 | + q/SELECT * FROM test_visibility ORDER BY data;/, |
| 62 | + qr/^\(0 rows\)$/m), |
| 63 | + 'data not visible'); |
| 64 | + |
| 65 | +# |
| 66 | +# 2. Check if an INSERT is replayed and visible |
| 67 | +# |
| 68 | +$node_primary->psql('postgres', "INSERT INTO test_visibility VALUES ('first insert')"); |
| 69 | +$node_primary->wait_for_catchup($node_standby, 'replay', |
| 70 | + $node_primary->lsn('insert')); |
| 71 | + |
| 72 | +ok(send_query_and_wait(\%psql_standby, |
| 73 | + q[SELECT * FROM test_visibility ORDER BY data;], |
| 74 | + qr/first insert.*\n\(1 row\)/m), |
| 75 | + 'insert visible'); |
| 76 | + |
| 77 | +# |
| 78 | +# 3. Verify that uncommitted changes aren't visible. |
| 79 | +# |
| 80 | +ok(send_query_and_wait(\%psql_primary, |
| 81 | + q[ |
| 82 | +BEGIN; |
| 83 | +UPDATE test_visibility SET data = 'first update' RETURNING data; |
| 84 | + ], |
| 85 | + qr/^UPDATE 1$/m), |
| 86 | + 'UPDATE'); |
| 87 | + |
| 88 | +$node_primary->psql('postgres', "SELECT txid_current();"); # ensure WAL flush |
| 89 | +$node_primary->wait_for_catchup($node_standby, 'replay', |
| 90 | + $node_primary->lsn('insert')); |
| 91 | + |
| 92 | +ok(send_query_and_wait(\%psql_standby, |
| 93 | + q[SELECT * FROM test_visibility ORDER BY data;], |
| 94 | + qr/first insert.*\n\(1 row\)/m), |
| 95 | + 'uncommitted update invisible'); |
| 96 | + |
| 97 | +# |
| 98 | +# 4. That a commit turns 3. visible |
| 99 | +# |
| 100 | +ok(send_query_and_wait(\%psql_primary, |
| 101 | + q[COMMIT;], |
| 102 | + qr/^COMMIT$/m), |
| 103 | + 'COMMIT'); |
| 104 | + |
| 105 | +$node_primary->wait_for_catchup($node_standby, 'replay', |
| 106 | + $node_primary->lsn('insert')); |
| 107 | + |
| 108 | +ok(send_query_and_wait(\%psql_standby, |
| 109 | + q[SELECT * FROM test_visibility ORDER BY data;], |
| 110 | + qr/first update\n\(1 row\)$/m), |
| 111 | + 'committed update visible'); |
| 112 | + |
| 113 | +# |
| 114 | +# 5. Check that changes in prepared xacts is invisible |
| 115 | +# |
| 116 | +ok(send_query_and_wait(\%psql_primary, q[ |
| 117 | +DELETE from test_visibility; -- delete old data, so we start with clean slate |
| 118 | +BEGIN; |
| 119 | +INSERT INTO test_visibility VALUES('inserted in prepared will_commit'); |
| 120 | +PREPARE TRANSACTION 'will_commit';], |
| 121 | + qr/^PREPARE TRANSACTION$/m), |
| 122 | + 'prepared will_commit'); |
| 123 | + |
| 124 | +ok(send_query_and_wait(\%psql_primary, q[ |
| 125 | +BEGIN; |
| 126 | +INSERT INTO test_visibility VALUES('inserted in prepared will_abort'); |
| 127 | +PREPARE TRANSACTION 'will_abort'; |
| 128 | + ], |
| 129 | + qr/^PREPARE TRANSACTION$/m), |
| 130 | + 'prepared will_abort'); |
| 131 | + |
| 132 | +$node_primary->wait_for_catchup($node_standby, 'replay', |
| 133 | + $node_primary->lsn('insert')); |
| 134 | + |
| 135 | +ok(send_query_and_wait(\%psql_standby, |
| 136 | + q[SELECT * FROM test_visibility ORDER BY data;], |
| 137 | + qr/^\(0 rows\)$/m), |
| 138 | + 'uncommitted prepared invisible'); |
| 139 | + |
| 140 | +# For some variation, finish prepared xacts via separate connections |
| 141 | +$node_primary->safe_psql('postgres', |
| 142 | + "COMMIT PREPARED 'will_commit';"); |
| 143 | +$node_primary->safe_psql('postgres', |
| 144 | + "ROLLBACK PREPARED 'will_abort';"); |
| 145 | +$node_primary->wait_for_catchup($node_standby, 'replay', |
| 146 | + $node_primary->lsn('insert')); |
| 147 | + |
| 148 | +ok(send_query_and_wait(\%psql_standby, |
| 149 | + q[SELECT * FROM test_visibility ORDER BY data;], |
| 150 | + qr/will_commit.*\n\(1 row\)$/m), |
| 151 | + 'finished prepared visible'); |
| 152 | + |
| 153 | +$node_primary->stop; |
| 154 | +$node_standby->stop; |
| 155 | + |
| 156 | +# Send query, wait until string matches |
| 157 | +sub send_query_and_wait |
| 158 | +{ |
| 159 | + my ($psql, $query, $untl) = @_; |
| 160 | + my $ret; |
| 161 | + |
| 162 | + # send query |
| 163 | + $$psql{stdin} .= $query; |
| 164 | + $$psql{stdin} .= "\n"; |
| 165 | + |
| 166 | + # wait for query results |
| 167 | + $$psql{run}->pump_nb(); |
| 168 | + while (1) |
| 169 | + { |
| 170 | + last if $$psql{stdout} =~ /$untl/; |
| 171 | + |
| 172 | + if ($psql_timeout->is_expired) |
| 173 | + { |
| 174 | + BAIL_OUT("aborting wait: program timed out\n". |
| 175 | + "stream contents: >>$$psql{stdout}<<\n". |
| 176 | + "pattern searched for: $untl\n"); |
| 177 | + return 0; |
| 178 | + } |
| 179 | + if (not $$psql{run}->pumpable()) |
| 180 | + { |
| 181 | + BAIL_OUT("aborting wait: program died\n". |
| 182 | + "stream contents: >>$$psql{stdout}<<\n". |
| 183 | + "pattern searched for: $untl\n"); |
| 184 | + return 0; |
| 185 | + } |
| 186 | + $$psql{run}->pump(); |
| 187 | + } |
| 188 | + |
| 189 | + $$psql{stdout} = ''; |
| 190 | + |
| 191 | + return 1; |
| 192 | +} |
0 commit comments