mirror of
https://github.com/pgbackrest/pgbackrest.git
synced 2024-12-16 10:20:02 +02:00
148836fe44
* Includes updating the manifest to format 4. It turns out the manifest and .info files were not very good for providing information. A format update was required anyway so worked through the backlog of changes that would require a format change. * Multiple database versions are now supported in the archive. Does't actually work yet but the structure should be good. * Tests use more constants now that test logs can catch name regressions.
131 lines
4.5 KiB
Perl
Executable File
131 lines
4.5 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
####################################################################################################################################
|
|
# UtilityTest.pl - Unit Tests for BackRest::Utility
|
|
####################################################################################################################################
|
|
package BackRestTest::UtilityTest;
|
|
|
|
####################################################################################################################################
|
|
# Perl includes
|
|
####################################################################################################################################
|
|
use strict;
|
|
use warnings FATAL => qw(all);
|
|
use Carp qw(confess);
|
|
|
|
use Exporter qw(import);
|
|
use File::Basename qw(dirname);
|
|
|
|
use lib dirname($0) . '/../lib';
|
|
use BackRest::Config;
|
|
use BackRest::File;
|
|
use BackRest::Ini;
|
|
use BackRest::Utility;
|
|
|
|
use BackRestTest::CommonTest;
|
|
|
|
####################################################################################################################################
|
|
# BackRestTestUtility_Test
|
|
####################################################################################################################################
|
|
our @EXPORT = qw(BackRestTestUtility_Test);
|
|
|
|
sub BackRestTestUtility_Test
|
|
{
|
|
my $strTest = shift;
|
|
|
|
# Setup test variables
|
|
my $iRun;
|
|
my $bCreate;
|
|
my $strTestPath = BackRestTestCommon_TestPathGet();
|
|
|
|
# Print test banner
|
|
&log(INFO, 'UTILITY MODULE ******************************************************************');
|
|
|
|
#-------------------------------------------------------------------------------------------------------------------------------
|
|
# Create remote
|
|
#-------------------------------------------------------------------------------------------------------------------------------
|
|
my $oLocal = new BackRest::Remote
|
|
(
|
|
undef, # Host
|
|
undef, # User
|
|
undef, # Command
|
|
undef, # Stanza
|
|
undef, # Repo Path
|
|
OPTION_DEFAULT_BUFFER_SIZE, # Buffer size
|
|
OPTION_DEFAULT_COMPRESS_LEVEL, # Compress level
|
|
OPTION_DEFAULT_COMPRESS_LEVEL_NETWORK, # Compress network level
|
|
);
|
|
|
|
#-------------------------------------------------------------------------------------------------------------------------------
|
|
# Test config
|
|
#-------------------------------------------------------------------------------------------------------------------------------
|
|
if ($strTest eq 'all' || $strTest eq 'config')
|
|
{
|
|
$iRun = 0;
|
|
$bCreate = true;
|
|
|
|
my $oFile = new BackRest::File
|
|
(
|
|
undef,
|
|
undef,
|
|
undef,
|
|
$oLocal
|
|
);
|
|
|
|
&log(INFO, "Test config\n");
|
|
|
|
# Increment the run, log, and decide whether this unit test should be run
|
|
if (BackRestTestCommon_Run(++$iRun, 'base'))
|
|
{
|
|
# Create the test directory
|
|
if ($bCreate)
|
|
{
|
|
BackRestTestCommon_Drop();
|
|
BackRestTestCommon_Create();
|
|
|
|
$bCreate = false;
|
|
}
|
|
|
|
# Generate a test config
|
|
my %oConfig;
|
|
|
|
$oConfig{test1}{key1} = 'value';
|
|
$oConfig{test1}{key2} = 'value';
|
|
|
|
$oConfig{test2}{key1} = 'value';
|
|
|
|
$oConfig{test3}{key1} = 'value';
|
|
$oConfig{test3}{key2}{sub1} = 'value';
|
|
$oConfig{test3}{key2}{sub2} = 'value';
|
|
|
|
# Save the test config
|
|
my $strFile = "${strTestPath}/config.cfg";
|
|
iniSave($strFile, \%oConfig);
|
|
|
|
my $strConfigHash = $oFile->hash(PATH_ABSOLUTE, $strFile);
|
|
|
|
# Reload the test config
|
|
my %oConfigTest;
|
|
|
|
iniLoad($strFile, \%oConfigTest);
|
|
|
|
# Resave the test config and compare hashes
|
|
my $strFileTest = "${strTestPath}/config-test.cfg";
|
|
iniSave($strFileTest, \%oConfigTest);
|
|
|
|
my $strConfigTestHash = $oFile->hash(PATH_ABSOLUTE, $strFileTest);
|
|
|
|
if ($strConfigHash ne $strConfigTestHash)
|
|
{
|
|
confess "config hash ${strConfigHash} != ${strConfigTestHash}";
|
|
}
|
|
|
|
if (BackRestTestCommon_Cleanup())
|
|
{
|
|
&log(INFO, 'cleanup');
|
|
BackRestTestCommon_Drop();
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
1;
|