mirror of
https://github.com/pgbackrest/pgbackrest.git
synced 2025-04-21 11:57:01 +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.)
106 lines
5.4 KiB
Perl
106 lines
5.4 KiB
Perl
####################################################################################################################################
|
|
# ConfigUnitTest.pm - Tests code paths
|
|
####################################################################################################################################
|
|
package pgBackRestTest::Module::Config::ConfigUnitTest;
|
|
use parent 'pgBackRestTest::Env::ConfigEnvTest';
|
|
|
|
####################################################################################################################################
|
|
# Perl includes
|
|
####################################################################################################################################
|
|
use strict;
|
|
use warnings FATAL => qw(all);
|
|
use Carp qw(confess);
|
|
|
|
use pgBackRest::Common::Exception;
|
|
use pgBackRest::Common::Ini;
|
|
use pgBackRest::Common::Log;
|
|
use pgBackRest::Config::Config;
|
|
|
|
use pgBackRestTest::Common::RunTest;
|
|
|
|
####################################################################################################################################
|
|
# run
|
|
####################################################################################################################################
|
|
sub run
|
|
{
|
|
my $self = shift;
|
|
|
|
my $oConfig = {};
|
|
my $strConfigFile = $self->testPath() . '/pgbackrest.conf';
|
|
optionSet(OPTION_CONFIG, $strConfigFile, true);
|
|
commandSet(CMD_ARCHIVE_GET);
|
|
|
|
if ($self->begin('Config::configFileValidate()'))
|
|
{
|
|
$oConfig = {};
|
|
$$oConfig{&CONFIG_SECTION_GLOBAL}{&OPTION_DB_PORT} = 1234;
|
|
|
|
$self->testResult(sub {configFileValidate($oConfig)}, false,
|
|
'valid option ' . OPTION_DB_PORT . ' under invalid section',
|
|
{strLogExpect =>
|
|
"WARN: $strConfigFile valid option '" . OPTION_DB_PORT . "' is a stanza section option and is not valid in" .
|
|
" section " . CONFIG_SECTION_GLOBAL . "\nHINT: global options can be specified in global or stanza sections but" .
|
|
" not visa-versa"});
|
|
|
|
#---------------------------------------------------------------------------------------------------------------------------
|
|
$oConfig = {};
|
|
$$oConfig{&CONFIG_SECTION_GLOBAL . ':' . &CMD_BACKUP}{&OPTION_DB_PORT} = 1234;
|
|
|
|
$self->testResult(sub {configFileValidate($oConfig)}, false,
|
|
'valid option ' . OPTION_DB_PORT . ' for command ' . CMD_BACKUP . ' under invalid global section',
|
|
{strLogExpect =>
|
|
"WARN: $strConfigFile valid option '" . OPTION_DB_PORT . "' is a stanza section option and is not valid in" .
|
|
" section " . CONFIG_SECTION_GLOBAL ."\nHINT: global options can be specified in global or stanza sections but" .
|
|
" not visa-versa"});
|
|
|
|
#---------------------------------------------------------------------------------------------------------------------------
|
|
$oConfig = {};
|
|
$$oConfig{$self->stanza() . ':' . &CMD_ARCHIVE_PUSH}{&OPTION_DB_PORT} = 1234;
|
|
|
|
$self->testResult(sub {configFileValidate($oConfig)}, false,
|
|
'valid option ' . OPTION_DB_PORT . ' under invalid stanza section command',
|
|
{strLogExpect =>
|
|
"WARN: $strConfigFile valid option '" . OPTION_DB_PORT . "' is not valid for command '" . CMD_ARCHIVE_PUSH ."'"});
|
|
|
|
#---------------------------------------------------------------------------------------------------------------------------
|
|
$oConfig = {};
|
|
$$oConfig{&CONFIG_SECTION_GLOBAL}{&BOGUS} = BOGUS;
|
|
|
|
$self->testResult(sub {configFileValidate($oConfig)}, false, 'invalid option ' . $$oConfig{&CONFIG_SECTION_GLOBAL}{&BOGUS},
|
|
{strLogExpect => "WARN: $strConfigFile file contains invalid option '" . BOGUS . "'"});
|
|
|
|
#---------------------------------------------------------------------------------------------------------------------------
|
|
$oConfig = {};
|
|
$$oConfig{&CONFIG_SECTION_GLOBAL}{'thread-max'} = 3;
|
|
|
|
$self->testResult(sub {configFileValidate($oConfig)}, true, 'valid alt name found');
|
|
|
|
#---------------------------------------------------------------------------------------------------------------------------
|
|
$oConfig = {};
|
|
$$oConfig{&CONFIG_SECTION_GLOBAL}{&OPTION_LOG_LEVEL_STDERR} = OPTION_DEFAULT_LOG_LEVEL_STDERR;
|
|
$$oConfig{$self->stanza()}{&OPTION_DB_PATH} = '/db';
|
|
$$oConfig{&CONFIG_SECTION_GLOBAL . ':' . &CMD_ARCHIVE_PUSH}{&OPTION_PROCESS_MAX} = 2;
|
|
|
|
$self->testResult(sub {configFileValidate($oConfig)}, true, 'valid config file');
|
|
|
|
#---------------------------------------------------------------------------------------------------------------------------
|
|
$oConfig = {};
|
|
$$oConfig{&CONFIG_SECTION_GLOBAL}{&OPTION_LOG_LEVEL_STDERR} = OPTION_DEFAULT_LOG_LEVEL_STDERR;
|
|
$$oConfig{&CONFIG_SECTION_GLOBAL . ':' . &CMD_ARCHIVE_PUSH}{&OPTION_PROCESS_MAX} = 2;
|
|
$$oConfig{'unusual-section^name!:' . &CMD_CHECK}{&OPTION_DB_PATH} = '/db';
|
|
|
|
$self->testResult(sub {configFileValidate($oConfig)}, true, 'valid unusual section name');
|
|
|
|
#---------------------------------------------------------------------------------------------------------------------------
|
|
$oConfig = {};
|
|
$$oConfig{&CONFIG_SECTION_GLOBAL}{&BOGUS} = BOGUS;
|
|
|
|
# Change command to indicate remote
|
|
commandSet(CMD_REMOTE);
|
|
|
|
$self->testResult(sub {configFileValidate($oConfig)}, true, 'invalid option but config file not validated on remote');
|
|
}
|
|
}
|
|
|
|
1;
|