mirror of
https://github.com/postgres/postgres.git
synced 2026-02-19 02:29:10 -05:00
549ec201d6
Rather than doing manual book keeping to plan the number of tests to run in each TAP suite, conclude each run with done_testing() summing up the the number of tests that ran. This removes the need for maintaning and updating the plan count at the expense of an accurate count of remaining during the test suite runtime. This patch has been discussed a number of times, often in the context of other patches which updates tests, so a larger number of discussions can be found in the archives. Reviewed-by: Julien Rouhaud <rjuju123@gmail.com> Reviewed-by: Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> Reviewed-by: Tom Lane <tgl@sss.pgh.pa.us> Reviewed-by: Michael Paquier <michael@paquier.xyz> Reviewed-by: Kyotaro Horiguchi <horikyota.ntt@gmail.com> Discussion: https://postgr.es/m/DD399313-3D56-4666-8079-88949DAC870F@yesql.se
63 lines
1.8 KiB
Perl
63 lines
1.8 KiB
Perl
|
|
# Copyright (c) 2021-2022, PostgreSQL Global Development Group
|
|
|
|
# Verify that we can take and verify backups with various checksum types.
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Cwd;
|
|
use Config;
|
|
use File::Path qw(rmtree);
|
|
use PostgreSQL::Test::Cluster;
|
|
use PostgreSQL::Test::Utils;
|
|
use Test::More;
|
|
|
|
my $primary = PostgreSQL::Test::Cluster->new('primary');
|
|
$primary->init(allows_streaming => 1);
|
|
$primary->start;
|
|
|
|
for my $algorithm (qw(bogus none crc32c sha224 sha256 sha384 sha512))
|
|
{
|
|
my $backup_path = $primary->backup_dir . '/' . $algorithm;
|
|
my @backup = (
|
|
'pg_basebackup', '-D', $backup_path,
|
|
'--manifest-checksums', $algorithm, '--no-sync', '-cfast');
|
|
my @verify = ('pg_verifybackup', '-e', $backup_path);
|
|
|
|
# A backup with a bogus algorithm should fail.
|
|
if ($algorithm eq 'bogus')
|
|
{
|
|
$primary->command_fails(\@backup,
|
|
"backup fails with algorithm \"$algorithm\"");
|
|
next;
|
|
}
|
|
|
|
# A backup with a valid algorithm should work.
|
|
$primary->command_ok(\@backup, "backup ok with algorithm \"$algorithm\"");
|
|
|
|
# We expect each real checksum algorithm to be mentioned on every line of
|
|
# the backup manifest file except the first and last; for simplicity, we
|
|
# just check that it shows up lots of times. When the checksum algorithm
|
|
# is none, we just check that the manifest exists.
|
|
if ($algorithm eq 'none')
|
|
{
|
|
ok(-f "$backup_path/backup_manifest", "backup manifest exists");
|
|
}
|
|
else
|
|
{
|
|
my $manifest = slurp_file("$backup_path/backup_manifest");
|
|
my $count_of_algorithm_in_manifest =
|
|
(() = $manifest =~ /$algorithm/mig);
|
|
cmp_ok($count_of_algorithm_in_manifest,
|
|
'>', 100, "$algorithm is mentioned many times in the manifest");
|
|
}
|
|
|
|
# Make sure that it verifies OK.
|
|
$primary->command_ok(\@verify,
|
|
"verify backup with algorithm \"$algorithm\"");
|
|
|
|
# Remove backup immediately to save disk space.
|
|
rmtree($backup_path);
|
|
}
|
|
|
|
done_testing();
|