2727$node -> start;
2828
2929$node -> safe_psql(' postgres' , " CREATE EXTENSION IF NOT EXISTS pg_tde;" );
30- $node -> safe_psql(' postgres' , " SELECT pg_tde_add_global_key_provider_file('file-keyring-wal','/tmp/pg_tde_test_keyring-wal.per');" );;
31- $node -> safe_psql(' postgres' , " SELECT pg_tde_set_server_key_using_global_key_provider('server-key', 'file-keyring-wal');" );
30+ $node -> safe_psql(' postgres' ,
31+ " SELECT pg_tde_add_global_key_provider_file('file-keyring-wal','/tmp/pg_tde_test_keyring-wal.per');"
32+ );
33+ $node -> safe_psql(' postgres' ,
34+ " SELECT pg_tde_set_server_key_using_global_key_provider('server-key', 'file-keyring-wal');"
35+ );
3236
3337$node -> append_conf(
3438 ' postgresql.conf' , q{
128132 [ ' pg_waldump' , ' foo' , ' bar' ],
129133 qr / error: could not locate WAL file "foo"/ ,
130134 ' start file not found' );
131- command_like([ ' pg_waldump' , ' -k' , $node -> data_dir. ' /pg_tde' , $node -> data_dir . ' /pg_wal/' . $start_walfile ],
132- qr / ./ , ' runs with start segment specified' );
135+ command_like(
136+ [
137+ ' pg_waldump' , ' -k' ,
138+ $node -> data_dir . ' /pg_tde' ,
139+ $node -> data_dir . ' /pg_wal/' . $start_walfile
140+ ],
141+ qr / ./ ,
142+ ' runs with start segment specified' );
133143command_fails_like(
134- [ ' pg_waldump' , ' -k' , $node -> data_dir. ' /pg_tde' , $node -> data_dir . ' /pg_wal/' . $start_walfile , ' bar' ],
144+ [
145+ ' pg_waldump' , ' -k' ,
146+ $node -> data_dir . ' /pg_tde' ,
147+ $node -> data_dir . ' /pg_wal/' . $start_walfile , ' bar'
148+ ],
135149 qr / error: could not open file "bar"/ ,
136150 ' end file not found' );
137151command_like(
138152 [
139153 ' pg_waldump' ,
140- ' -k' , $node -> data_dir. ' /pg_tde' ,
154+ ' -k' ,
155+ $node -> data_dir . ' /pg_tde' ,
141156 $node -> data_dir . ' /pg_wal/' . $start_walfile ,
142157 $node -> data_dir . ' /pg_wal/' . $end_walfile
143158 ],
144159 qr / ./ ,
145160 ' runs with start and end segment specified' );
146161command_fails_like(
147- [ ' pg_waldump' , ' -p' , $node -> data_dir, ' -k' , $node -> data_dir. ' /pg_tde' ],
162+ [
163+ ' pg_waldump' , ' -p' , $node -> data_dir, ' -k' ,
164+ $node -> data_dir . ' /pg_tde'
165+ ],
148166 qr / error: no start WAL location given/ ,
149167 ' path option requires start location' );
150168command_like(
151169 [
152- ' pg_waldump' , ' -p' , $node -> data_dir, ' --start' ,
153- $start_lsn , ' --end' , $end_lsn ,
154- ' -k' , $node -> data_dir. ' /pg_tde'
170+ ' pg_waldump' , ' -p' ,
171+ $node -> data_dir, ' --start' ,
172+ $start_lsn , ' --end' ,
173+ $end_lsn , ' -k' ,
174+ $node -> data_dir . ' /pg_tde'
155175 ],
156176 qr / ./ ,
157177 ' runs with path option and start and end locations' );
158178command_fails_like(
159- [ ' pg_waldump' , ' -k' , $node -> data_dir. ' /pg_tde' , ' -p' , $node -> data_dir, ' --start' , $start_lsn ],
179+ [
180+ ' pg_waldump' , ' -k' ,
181+ $node -> data_dir . ' /pg_tde' , ' -p' ,
182+ $node -> data_dir, ' --start' ,
183+ $start_lsn
184+ ],
160185 qr / error: error in WAL record at/ ,
161186 ' falling off the end of the WAL results in an error' );
162187
163188command_like(
164189 [
165- ' pg_waldump' , ' --quiet' ,
166- ' -k ' , $node -> data_dir. ' /pg_tde' ,
190+ ' pg_waldump' , ' --quiet' , ' -k ' ,
191+ $node -> data_dir . ' /pg_tde' ,
167192 $node -> data_dir . ' /pg_wal/' . $start_walfile
168193 ],
169194 qr / ^$ / ,
170195 ' no output with --quiet option' );
171196command_fails_like(
172- [ ' pg_waldump' , ' --quiet' , ' -k' , $node -> data_dir. ' /pg_tde' , ' -p' , $node -> data_dir, ' --start' , $start_lsn ],
197+ [
198+ ' pg_waldump' , ' --quiet' ,
199+ ' -k' , $node -> data_dir . ' /pg_tde' ,
200+ ' -p' , $node -> data_dir,
201+ ' --start' , $start_lsn
202+ ],
173203 qr / error: error in WAL record at/ ,
174204 ' errors are shown with --quiet' );
175205
187217 my (@cmd , $stdout , $stderr , $result );
188218
189219 @cmd = (
190- ' pg_waldump' , ' -k' , $node -> data_dir. ' /pg_tde' ,
191- ' --start' , $new_start ,
192- $node -> data_dir . ' /pg_wal/' . $start_walfile );
220+ ' pg_waldump' , ' -k' , $node -> data_dir . ' /pg_tde' ,
221+ ' --start' , $new_start , $node -> data_dir . ' /pg_wal/' . $start_walfile );
193222 $result = IPC::Run::run \@cmd , ' >' , \$stdout , ' 2>' , \$stderr ;
194223 ok($result , " runs with start segment and start LSN specified" );
195224 like($stderr , qr / first record is after/ , ' info message printed' );
@@ -206,8 +235,11 @@ sub test_pg_waldump
206235 my (@cmd , $stdout , $stderr , $result , @lines );
207236
208237 @cmd = (
209- ' pg_waldump' , ' -k' , $node -> data_dir. ' /pg_tde' , ' -p' , $node -> data_dir,
210- ' --start' , $start_lsn , ' --end' , $end_lsn );
238+ ' pg_waldump' , ' -k' ,
239+ $node -> data_dir . ' /pg_tde' , ' -p' ,
240+ $node -> data_dir, ' --start' ,
241+ $start_lsn , ' --end' ,
242+ $end_lsn );
211243 push @cmd , @opts ;
212244 $result = IPC::Run::run \@cmd , ' >' , \$stdout , ' 2>' , \$stderr ;
213245 ok($result , " pg_waldump @opts : runs ok" );
0 commit comments