mirror of
https://github.com/pgbackrest/pgbackrest.git
synced 2024-12-14 10:13:05 +02:00
de7fc37f88
Refactor storage layer to allow for new repository filesystems using drivers. (Reviewed by Cynthia Shang.) Refactor IO layer to allow for new compression formats, checksum types, and other capabilities using filters. (Reviewed by Cynthia Shang.)
422 lines
25 KiB
Perl
422 lines
25 KiB
Perl
####################################################################################################################################
|
|
# StanzaUnitTest.pm - Unit tests for Stanza.pm
|
|
####################################################################################################################################
|
|
package pgBackRestTest::Module::Stanza::StanzaUnitTest;
|
|
use parent 'pgBackRestTest::Env::HostEnvTest';
|
|
|
|
####################################################################################################################################
|
|
# Perl includes
|
|
####################################################################################################################################
|
|
use strict;
|
|
use warnings FATAL => qw(all);
|
|
use Carp qw(confess);
|
|
use English '-no_match_vars';
|
|
|
|
use File::Basename qw(dirname);
|
|
use Storable qw(dclone);
|
|
|
|
use pgBackRest::Archive::ArchiveCommon;
|
|
use pgBackRest::Archive::ArchiveInfo;
|
|
use pgBackRest::Backup::Info;
|
|
use pgBackRest::Common::Exception;
|
|
use pgBackRest::Common::Ini;
|
|
use pgBackRest::Common::Lock;
|
|
use pgBackRest::Common::Log;
|
|
use pgBackRest::Config::Config;
|
|
use pgBackRest::DbVersion;
|
|
use pgBackRest::Manifest;
|
|
use pgBackRest::Protocol::Helper;
|
|
use pgBackRest::Stanza;
|
|
use pgBackRest::Protocol::Storage::Helper;
|
|
|
|
use pgBackRestTest::Env::HostEnvTest;
|
|
use pgBackRestTest::Common::ExecuteTest;
|
|
use pgBackRestTest::Common::FileTest;
|
|
use pgBackRestTest::Env::Host::HostBackupTest;
|
|
use pgBackRestTest::Common::RunTest;
|
|
|
|
####################################################################################################################################
|
|
# initModule
|
|
####################################################################################################################################
|
|
sub initModule
|
|
{
|
|
my $self = shift;
|
|
|
|
$self->{strDbPath} = $self->testPath() . '/db';
|
|
$self->{strRepoPath} = $self->testPath() . '/repo';
|
|
$self->{strArchivePath} = "$self->{strRepoPath}/archive/" . $self->stanza();
|
|
$self->{strBackupPath} = "$self->{strRepoPath}/backup/" . $self->stanza();
|
|
$self->{strSpoolPath} = "$self->{strArchivePath}/out";
|
|
}
|
|
|
|
####################################################################################################################################
|
|
# initTest
|
|
####################################################################################################################################
|
|
sub initTest
|
|
{
|
|
my $self = shift;
|
|
|
|
# Create archive info path
|
|
storageTest()->pathCreate($self->{strArchivePath}, {bIgnoreExists => true, bCreateParent => true});
|
|
|
|
# Create backup info path
|
|
storageTest()->pathCreate($self->{strBackupPath}, {bIgnoreExists => true, bCreateParent => true});
|
|
|
|
# Create pg_control path
|
|
storageTest()->pathCreate($self->{strDbPath} . '/' . DB_PATH_GLOBAL, {bCreateParent => true});
|
|
|
|
# Copy a pg_control file into the pg_control path
|
|
executeTest(
|
|
'cp ' . $self->dataPath() . '/backup.pg_control_' . WAL_VERSION_94 . '.bin ' . $self->{strDbPath} . '/' .
|
|
DB_FILE_PGCONTROL);
|
|
}
|
|
|
|
####################################################################################################################################
|
|
# run
|
|
####################################################################################################################################
|
|
sub run
|
|
{
|
|
my $self = shift;
|
|
|
|
my $oOption = {};
|
|
|
|
$self->optionSetTest($oOption, OPTION_STANZA, $self->stanza());
|
|
$self->optionSetTest($oOption, OPTION_DB_PATH, $self->{strDbPath});
|
|
$self->optionSetTest($oOption, OPTION_REPO_PATH, $self->{strRepoPath});
|
|
$self->optionSetTest($oOption, OPTION_LOG_PATH, $self->testPath());
|
|
|
|
$self->optionBoolSetTest($oOption, OPTION_ONLINE, false);
|
|
|
|
$self->optionSetTest($oOption, OPTION_DB_TIMEOUT, 5);
|
|
$self->optionSetTest($oOption, OPTION_PROTOCOL_TIMEOUT, 6);
|
|
|
|
################################################################################################################################
|
|
if ($self->begin("Stanza::new"))
|
|
{
|
|
#---------------------------------------------------------------------------------------------------------------------------
|
|
$self->optionBoolSetTest($oOption, OPTION_ONLINE, true);
|
|
logDisable(); $self->configLoadExpect(dclone($oOption), CMD_STANZA_CREATE); logEnable();
|
|
# my $oStanza = new pgBackRest::Stanza();
|
|
|
|
$self->testException(sub {(new pgBackRest::Stanza())}, ERROR_DB_CONNECT,
|
|
"could not connect to server: No such file or directory\n");
|
|
|
|
$self->optionBoolSetTest($oOption, OPTION_ONLINE, false);
|
|
}
|
|
|
|
################################################################################################################################
|
|
if ($self->begin("Stanza::process()"))
|
|
{
|
|
#---------------------------------------------------------------------------------------------------------------------------
|
|
logDisable(); $self->configLoadExpect(dclone($oOption), CMD_CHECK); logEnable();
|
|
my $oStanza = new pgBackRest::Stanza();
|
|
|
|
$self->testException(sub {$oStanza->process()}, ERROR_ASSERT,
|
|
"stanza->process() called with invalid command: " . CMD_CHECK);
|
|
|
|
#---------------------------------------------------------------------------------------------------------------------------
|
|
logDisable(); $self->configLoadExpect(dclone($oOption), CMD_STANZA_CREATE); logEnable();
|
|
rmdir($self->{strArchivePath});
|
|
rmdir($self->{strBackupPath});
|
|
$self->testResult(sub {$oStanza->process()}, 0, 'parent paths recreated successfully');
|
|
}
|
|
|
|
################################################################################################################################
|
|
if ($self->begin("Stanza::stanzaCreate()"))
|
|
{
|
|
logDisable(); $self->configLoadExpect(dclone($oOption), CMD_STANZA_CREATE); logEnable();
|
|
my $oStanza = new pgBackRest::Stanza();
|
|
|
|
my $strBackupInfoFile = storageRepo()->pathGet(STORAGE_REPO_BACKUP . qw{/} . FILE_BACKUP_INFO);
|
|
my $strBackupInfoFileCopy = storageRepo()->pathGet(STORAGE_REPO_BACKUP . qw{/} . FILE_BACKUP_INFO . INI_COPY_EXT);
|
|
my $strArchiveInfoFile = storageRepo()->pathGet(STORAGE_REPO_ARCHIVE . qw{/} . ARCHIVE_INFO_FILE);
|
|
|
|
# No force. Archive dir not empty. No archive.info file. Backup directory empty.
|
|
#---------------------------------------------------------------------------------------------------------------------------
|
|
storageRepo()->pathCreate(STORAGE_REPO_ARCHIVE . "/9.4-1");
|
|
$self->testException(sub {$oStanza->stanzaCreate()}, ERROR_PATH_NOT_EMPTY,
|
|
"archive directory not empty" .
|
|
"\nHINT: use stanza-create --force to force the stanza data to be created.");
|
|
|
|
# No force. Archive dir not empty. No archive.info file. Backup directory not empty. No backup.info file.
|
|
#---------------------------------------------------------------------------------------------------------------------------
|
|
storageRepo()->pathCreate(STORAGE_REPO_BACKUP . "/12345");
|
|
$self->testException(sub {$oStanza->stanzaCreate()}, ERROR_PATH_NOT_EMPTY,
|
|
"backup directory and/or archive directory not empty" .
|
|
"\nHINT: use stanza-create --force to force the stanza data to be created.");
|
|
|
|
# No force. Archive dir empty. No archive.info file. Backup directory not empty. No backup.info file.
|
|
#---------------------------------------------------------------------------------------------------------------------------
|
|
forceStorageRemove(storageRepo(), STORAGE_REPO_ARCHIVE . "/9.4-1", {bRecurse => true});
|
|
$self->testException(sub {$oStanza->stanzaCreate()}, ERROR_PATH_NOT_EMPTY,
|
|
"backup directory not empty" .
|
|
"\nHINT: use stanza-create --force to force the stanza data to be created.");
|
|
|
|
# No force. No archive.info file and no archive sub-directories or files. Backup.info exists and no backup sub-directories
|
|
# or files
|
|
#---------------------------------------------------------------------------------------------------------------------------
|
|
forceStorageRemove(storageRepo(), STORAGE_REPO_BACKUP . "/12345", {bRecurse => true});
|
|
(new pgBackRest::Backup::Info($self->{strBackupPath}, false, false, {bIgnoreMissing => true}))->create(PG_VERSION_94,
|
|
WAL_VERSION_94_SYS_ID, '942', '201409291', true);
|
|
$self->testException(sub {$oStanza->stanzaCreate()}, ERROR_FILE_MISSING,
|
|
"archive information missing" .
|
|
"\nHINT: use stanza-create --force to force the stanza data to be created.");
|
|
|
|
# No force. No backup.info file (backup.info.copy only) and no backup sub-directories or files. Archive.info exists and no
|
|
# archive sub-directories or files
|
|
#---------------------------------------------------------------------------------------------------------------------------
|
|
forceStorageRemove(storageRepo(), STORAGE_REPO_BACKUP . qw{/} . FILE_BACKUP_INFO);
|
|
(new pgBackRest::Archive::ArchiveInfo($self->{strArchivePath}, false, {bIgnoreMissing => true}))->create(PG_VERSION_94,
|
|
WAL_VERSION_94_SYS_ID, true);
|
|
$self->testException(sub {$oStanza->stanzaCreate()}, ERROR_FILE_MISSING,
|
|
"backup information missing" .
|
|
"\nHINT: use stanza-create --force to force the stanza data to be created.");
|
|
|
|
# No force. Valid archive.info exists. Invalid backup.info exists.
|
|
#---------------------------------------------------------------------------------------------------------------------------
|
|
(new pgBackRest::Backup::Info($self->{strBackupPath}, false, false))->create(PG_VERSION_94, WAL_VERSION_93_SYS_ID, '942',
|
|
'201409291', true);
|
|
$self->testException(sub {$oStanza->stanzaCreate()}, ERROR_FILE_INVALID,
|
|
"backup info file invalid" .
|
|
"\nHINT: use stanza-upgrade if the database has been upgraded or use --force");
|
|
|
|
# No force. Invalid archive.info exists. Invalid backup.info exists.
|
|
#---------------------------------------------------------------------------------------------------------------------------
|
|
(new pgBackRest::Archive::ArchiveInfo($self->{strArchivePath}, false))->create(PG_VERSION_94, WAL_VERSION_93_SYS_ID, true);
|
|
$self->testException(sub {$oStanza->stanzaCreate()}, ERROR_FILE_INVALID,
|
|
"archive info file invalid" .
|
|
"\nHINT: use stanza-upgrade if the database has been upgraded or use --force");
|
|
|
|
# Create stanza without force
|
|
#---------------------------------------------------------------------------------------------------------------------------
|
|
forceStorageRemove(storageRepo(), $strBackupInfoFile . "*");
|
|
forceStorageRemove(storageRepo(), $strArchiveInfoFile . "*");
|
|
$self->testResult(sub {$oStanza->stanzaCreate()}, 0, 'successfully created stanza without force');
|
|
|
|
# Create stanza successfully with .info and .info.copy files already existing
|
|
#--------------------------------------------------------------------------------------------------------------------------
|
|
$self->testResult(sub {$oStanza->stanzaCreate()}, 0, 'successfully created stanza without force with existing info files');
|
|
|
|
# Remove only backup.info.copy file - confirm stanza create does not throw an error
|
|
#---------------------------------------------------------------------------------------------------------------------------
|
|
forceStorageRemove(storageRepo(), $strBackupInfoFileCopy);
|
|
$self->testResult(sub {$oStanza->stanzaCreate()}, 0, 'no error on missing copy file');
|
|
$self->testResult(sub {storageRepo()->exists($strBackupInfoFile) &&
|
|
!storageRepo()->exists($strBackupInfoFileCopy)},
|
|
true, ' and only backup.info exists');
|
|
|
|
# Force on, Repo-Sync off. Archive dir empty. No archive.info file. Backup directory not empty. No backup.info file.
|
|
#---------------------------------------------------------------------------------------------------------------------------
|
|
$self->optionBoolSetTest($oOption, OPTION_FORCE, true);
|
|
logDisable(); $self->configLoadExpect(dclone($oOption), CMD_STANZA_CREATE); logEnable();
|
|
|
|
forceStorageRemove(storageRepo(), $strBackupInfoFile . "*");
|
|
forceStorageRemove(storageRepo(), $strArchiveInfoFile . "*");
|
|
storageRepo()->pathCreate(STORAGE_REPO_BACKUP . "/12345");
|
|
$oStanza = new pgBackRest::Stanza();
|
|
$self->testResult(sub {$oStanza->stanzaCreate()}, 0, 'successfully created stanza with force');
|
|
$self->testResult(sub {(new pgBackRest::Archive::ArchiveInfo($self->{strArchivePath}))->check(PG_VERSION_94,
|
|
WAL_VERSION_94_SYS_ID) && (new pgBackRest::Backup::Info($self->{strBackupPath}))->check(PG_VERSION_94, '942',
|
|
'201409291', WAL_VERSION_94_SYS_ID)}, 1, ' new info files correct');
|
|
|
|
$self->optionReset($oOption, OPTION_FORCE);
|
|
}
|
|
|
|
################################################################################################################################
|
|
if ($self->begin("Stanza::infoFileCreate"))
|
|
{
|
|
logDisable(); $self->configLoadExpect(dclone($oOption), CMD_STANZA_CREATE); logEnable();
|
|
my $oStanza = new pgBackRest::Stanza();
|
|
|
|
my @stryFileList = ('anything');
|
|
my $oArchiveInfo = new pgBackRest::Archive::ArchiveInfo($self->{strArchivePath}, false, {bIgnoreMissing => true});
|
|
my $oBackupInfo = new pgBackRest::Backup::Info($self->{strBackupPath}, false, false, {bIgnoreMissing => true});
|
|
|
|
# If infoFileCreate is ever called directly, confirm it errors if something other than the info file exists in archive dir
|
|
# when --force is not used
|
|
#---------------------------------------------------------------------------------------------------------------------------
|
|
$self->testException(sub {$oStanza->infoFileCreate($oArchiveInfo, STORAGE_REPO_ARCHIVE, $self->{strArchivePath},
|
|
\@stryFileList)}, ERROR_PATH_NOT_EMPTY,
|
|
"archive directory not empty" .
|
|
"\nHINT: use stanza-create --force to force the stanza data to be created.");
|
|
|
|
# If infoFileCreate is ever called directly, confirm it errors if something other than the info file exists in backup dir
|
|
# when --force is not used
|
|
#---------------------------------------------------------------------------------------------------------------------------
|
|
$self->testException(sub {$oStanza->infoFileCreate($oBackupInfo, STORAGE_REPO_BACKUP, $self->{strBackupPath},
|
|
\@stryFileList)}, ERROR_PATH_NOT_EMPTY,
|
|
"backup directory not empty" .
|
|
"\nHINT: use stanza-create --force to force the stanza data to be created.");
|
|
|
|
# Set force option --------
|
|
$self->optionBoolSetTest($oOption, OPTION_FORCE, true);
|
|
|
|
# Force. Invalid archive.info exists.
|
|
#---------------------------------------------------------------------------------------------------------------------------
|
|
$self->optionBoolSetTest($oOption, OPTION_FORCE, true);
|
|
logDisable(); $self->configLoadExpect(dclone($oOption), CMD_STANZA_CREATE); logEnable();
|
|
|
|
$oArchiveInfo->create(PG_VERSION_94, 12345, true);
|
|
$oStanza = new pgBackRest::Stanza();
|
|
$self->testResult(sub {$oStanza->infoFileCreate($oArchiveInfo, STORAGE_REPO_ARCHIVE, $self->{strArchivePath},
|
|
\@stryFileList)}, "(0, [undef])", 'force successful for invalid info file');
|
|
|
|
# Cause an error to be thrown by changing the permissions of the archive file so it cannot be read for the hash comparison
|
|
#---------------------------------------------------------------------------------------------------------------------------
|
|
executeTest('sudo chmod 220 ' . $self->{strArchivePath} . "/archive.info");
|
|
$self->testResult(sub {$oStanza->infoFileCreate($oArchiveInfo, STORAGE_REPO_ARCHIVE, $self->{strArchivePath},
|
|
\@stryFileList)},
|
|
"(" . &ERROR_FILE_OPEN . ", unable to open '" . $self->{strArchivePath} . "/archive.info': Permission denied)",
|
|
'exception code path');
|
|
executeTest('sudo chmod 640 ' . $self->{strArchivePath} . "/archive.info");
|
|
|
|
# Force. Archive dir not empty. Warning returned.
|
|
#---------------------------------------------------------------------------------------------------------------------------
|
|
storageTest()->pathCreate($self->{strArchivePath} . "/9.3-0", {bIgnoreExists => true, bCreateParent => true});
|
|
$self->testResult(sub {$oStanza->infoFileCreate($oArchiveInfo, STORAGE_REPO_ARCHIVE, $self->{strArchivePath},
|
|
\@stryFileList)}, "(0, [undef])", 'force successful with archive.info file warning',
|
|
{strLogExpect => "WARN: found empty directory " . $self->{strArchivePath} . "/9.3-0"});
|
|
|
|
# Reset force option --------
|
|
$self->optionReset($oOption, OPTION_FORCE);
|
|
}
|
|
|
|
################################################################################################################################
|
|
if ($self->begin("Stanza::infoObject()"))
|
|
{
|
|
logDisable(); $self->configLoadExpect(dclone($oOption), CMD_STANZA_UPGRADE); logEnable();
|
|
my $oStanza = new pgBackRest::Stanza();
|
|
|
|
$self->testException(sub {$oStanza->infoObject(STORAGE_REPO_BACKUP, $self->{strBackupPath})}, ERROR_FILE_MISSING,
|
|
storageRepo()->pathGet(STORAGE_REPO_BACKUP . qw{/} . FILE_BACKUP_INFO) .
|
|
" does not exist and is required to perform a backup." .
|
|
"\nHINT: has a stanza-create been performed?");
|
|
|
|
# Force valid but not set.
|
|
#---------------------------------------------------------------------------------------------------------------------------
|
|
logDisable(); $self->configLoadExpect(dclone($oOption), CMD_STANZA_CREATE); logEnable();
|
|
$oStanza = new pgBackRest::Stanza();
|
|
|
|
$self->testException(sub {$oStanza->infoObject(STORAGE_REPO_BACKUP, $self->{strBackupPath})}, ERROR_FILE_MISSING,
|
|
storageRepo()->pathGet(STORAGE_REPO_BACKUP . qw{/} . FILE_BACKUP_INFO) .
|
|
" does not exist and is required to perform a backup." .
|
|
"\nHINT: has a stanza-create been performed?" .
|
|
"\nHINT: use stanza-create --force to force the stanza data to be created.");
|
|
|
|
# Force.
|
|
#---------------------------------------------------------------------------------------------------------------------------
|
|
$self->optionBoolSetTest($oOption, OPTION_FORCE, true);
|
|
logDisable(); $self->configLoadExpect(dclone($oOption), CMD_STANZA_CREATE); logEnable();
|
|
|
|
$self->testResult(sub {$oStanza->infoObject(STORAGE_REPO_ARCHIVE, $self->{strArchivePath})}, "[object]",
|
|
'archive force successful');
|
|
$self->testResult(sub {$oStanza->infoObject(STORAGE_REPO_BACKUP, $self->{strBackupPath})}, "[object]",
|
|
'backup force successful');
|
|
|
|
# Reset force option --------
|
|
$self->optionReset($oOption, OPTION_FORCE);
|
|
|
|
# Cause an error to be thrown by changing the permissions of the archive file so it cannot be read
|
|
#---------------------------------------------------------------------------------------------------------------------------
|
|
logDisable(); $self->configLoadExpect(dclone($oOption), CMD_STANZA_CREATE); logEnable();
|
|
|
|
(new pgBackRest::Backup::Info($self->{strBackupPath}, false, false, {bIgnoreMissing => true}))->create(PG_VERSION_94,
|
|
WAL_VERSION_94_SYS_ID, '942', '201409291', true);
|
|
forceStorageRemove(storageRepo(), storageRepo()->pathGet(STORAGE_REPO_BACKUP . qw{/} . FILE_BACKUP_INFO . INI_COPY_EXT));
|
|
executeTest('sudo chmod 220 ' . storageRepo()->pathGet(STORAGE_REPO_BACKUP . qw{/} . FILE_BACKUP_INFO));
|
|
$self->testException(sub {$oStanza->infoObject(STORAGE_REPO_BACKUP, $self->{strBackupPath})}, ERROR_FILE_OPEN,
|
|
"unable to open '" . storageRepo()->pathGet(STORAGE_REPO_BACKUP . qw{/} . FILE_BACKUP_INFO) .
|
|
"': Permission denied");
|
|
executeTest('sudo chmod 640 ' . storageRepo()->pathGet(STORAGE_REPO_BACKUP . qw{/} . FILE_BACKUP_INFO));
|
|
}
|
|
|
|
################################################################################################################################
|
|
if ($self->begin("Stanza::stanzaUpgrade()"))
|
|
{
|
|
logDisable(); $self->configLoadExpect(dclone($oOption), CMD_STANZA_UPGRADE); logEnable();
|
|
|
|
my $oArchiveInfo = new pgBackRest::Archive::ArchiveInfo($self->{strArchivePath}, false, {bIgnoreMissing => true});
|
|
$oArchiveInfo->create('9.3', '6999999999999999999', true);
|
|
|
|
my $oBackupInfo = new pgBackRest::Backup::Info($self->{strBackupPath}, false, false, {bIgnoreMissing => true});
|
|
$oBackupInfo->create('9.3', '6999999999999999999', '937', '201306121', true);
|
|
|
|
logDisable(); $self->configLoadExpect(dclone($oOption), CMD_STANZA_UPGRADE); logEnable();
|
|
my $oStanza = new pgBackRest::Stanza();
|
|
|
|
#---------------------------------------------------------------------------------------------------------------------------
|
|
$self->testResult(sub {$oStanza->stanzaUpgrade()}, 0, 'successfully upgraded');
|
|
|
|
#---------------------------------------------------------------------------------------------------------------------------
|
|
$self->testResult(sub {$oStanza->stanzaUpgrade()}, 0, 'upgrade not required');
|
|
}
|
|
|
|
################################################################################################################################
|
|
if ($self->begin("Stanza::upgradeCheck()"))
|
|
{
|
|
logDisable(); $self->configLoadExpect(dclone($oOption), CMD_STANZA_UPGRADE); logEnable();
|
|
my $oStanza = new pgBackRest::Stanza();
|
|
|
|
# Create the archive file with current data
|
|
my $oArchiveInfo = new pgBackRest::Archive::ArchiveInfo($self->{strArchivePath}, false, {bIgnoreMissing => true});
|
|
$oArchiveInfo->create('9.4', 6353949018581704918, true);
|
|
|
|
# Create the backup file with outdated data
|
|
my $oBackupInfo = new pgBackRest::Backup::Info($self->{strBackupPath}, false, false, {bIgnoreMissing => true});
|
|
$oBackupInfo->create('9.3', 6999999999999999999, '937', '201306121', true);
|
|
|
|
# Confirm upgrade is needed for backup
|
|
$self->testResult(sub {$oStanza->upgradeCheck($oBackupInfo, STORAGE_REPO_BACKUP, ERROR_BACKUP_MISMATCH)}, true,
|
|
'backup upgrade needed');
|
|
$self->testResult(sub {$oStanza->upgradeCheck($oArchiveInfo, STORAGE_REPO_ARCHIVE, ERROR_ARCHIVE_MISMATCH)}, false,
|
|
'archive upgrade not needed');
|
|
|
|
# Change archive file to contain outdated data
|
|
$oArchiveInfo->create('9.3', 6999999999999999999, true);
|
|
|
|
# Confirm upgrade is needed for both
|
|
$self->testResult(sub {$oStanza->upgradeCheck($oArchiveInfo, STORAGE_REPO_ARCHIVE, ERROR_ARCHIVE_MISMATCH)}, true,
|
|
'archive upgrade needed');
|
|
$self->testResult(sub {$oStanza->upgradeCheck($oBackupInfo, STORAGE_REPO_BACKUP, ERROR_BACKUP_MISMATCH)}, true,
|
|
'backup upgrade needed');
|
|
|
|
# Change the backup file to contain current data
|
|
$oBackupInfo->create('9.4', 6353949018581704918, '942', '201409291', true);
|
|
|
|
# Confirm upgrade is needed for archive
|
|
$self->testResult(sub {$oStanza->upgradeCheck($oBackupInfo, STORAGE_REPO_BACKUP, ERROR_BACKUP_MISMATCH)}, false,
|
|
'backup upgrade not needed');
|
|
$self->testResult(sub {$oStanza->upgradeCheck($oArchiveInfo, STORAGE_REPO_ARCHIVE, ERROR_ARCHIVE_MISMATCH)}, true,
|
|
'archive upgrade needed');
|
|
|
|
#---------------------------------------------------------------------------------------------------------------------------
|
|
# Perform an upgrade and then confirm upgrade is not necessary
|
|
$oStanza->process();
|
|
|
|
$oArchiveInfo = new pgBackRest::Archive::ArchiveInfo($self->{strArchivePath});
|
|
$oBackupInfo = new pgBackRest::Backup::Info($self->{strBackupPath});
|
|
|
|
$self->testResult(sub {$oStanza->upgradeCheck($oArchiveInfo, STORAGE_REPO_ARCHIVE, ERROR_ARCHIVE_MISMATCH)}, false,
|
|
'archive upgrade not necessary');
|
|
$self->testResult(sub {$oStanza->upgradeCheck($oBackupInfo, STORAGE_REPO_BACKUP, ERROR_BACKUP_MISMATCH)}, false,
|
|
'backup upgrade not necessary');
|
|
|
|
#---------------------------------------------------------------------------------------------------------------------------
|
|
# Change the DB data
|
|
$oStanza->{oDb}{strDbVersion} = '9.3';
|
|
$oStanza->{oDb}{ullDbSysId} = 6999999999999999999;
|
|
|
|
# Pass an expected error that is different than the actual error and confirm an error is thrown
|
|
$self->testException(sub {$oStanza->upgradeCheck($oArchiveInfo, STORAGE_REPO_ARCHIVE, ERROR_ASSERT)},
|
|
ERROR_ARCHIVE_MISMATCH,
|
|
"WAL segment version 9.3 does not match archive version 9.4\n" .
|
|
"WAL segment system-id 6999999999999999999 does not match archive system-id 6353949018581704918\n" .
|
|
"HINT: are you archiving to the correct stanza?");
|
|
$self->testException(sub {$oStanza->upgradeCheck($oBackupInfo, STORAGE_REPO_BACKUP, ERROR_ASSERT)}, ERROR_BACKUP_MISMATCH,
|
|
"database version = 9.3, system-id 6999999999999999999 does not match backup version = 9.4, " .
|
|
"system-id = 6353949018581704918\nHINT: is this the correct stanza?");
|
|
}
|
|
}
|
|
|
|
1;
|