mirror of
https://github.com/pgbackrest/pgbackrest.git
synced 2024-12-14 10:13:05 +02:00
Changes to allow specific tests to be run.
This commit is contained in:
parent
5813aedaa3
commit
c2dd53f908
File diff suppressed because it is too large
Load Diff
18
test/test.pl
18
test/test.pl
@ -20,9 +20,13 @@ use BackRestTest::FileTest;
|
|||||||
####################################################################################################################################
|
####################################################################################################################################
|
||||||
# Command line parameters
|
# Command line parameters
|
||||||
####################################################################################################################################
|
####################################################################################################################################
|
||||||
my $strLogLevel = "OFF"; # Log level for tests
|
my $strLogLevel = 'off'; # Log level for tests
|
||||||
|
my $strModule = 'all';
|
||||||
|
my $strModuleTest = 'all';
|
||||||
|
|
||||||
GetOptions ("log-level=s" => \$strLogLevel)
|
GetOptions ("log-level=s" => \$strLogLevel,
|
||||||
|
"module=s" => \$strModule,
|
||||||
|
"module-test=s" => \$strModuleTest)
|
||||||
or die("Error in command line arguments\n");
|
or die("Error in command line arguments\n");
|
||||||
|
|
||||||
####################################################################################################################################
|
####################################################################################################################################
|
||||||
@ -34,9 +38,17 @@ umask(0);
|
|||||||
# Set console log level to trace for testing
|
# Set console log level to trace for testing
|
||||||
log_level_set(undef, uc($strLogLevel));
|
log_level_set(undef, uc($strLogLevel));
|
||||||
|
|
||||||
|
if ($strModuleTest ne 'all' && $strModule eq 'all')
|
||||||
|
{
|
||||||
|
confess "--module must be provided for test \"${strModuleTest}\"";
|
||||||
|
}
|
||||||
|
|
||||||
####################################################################################################################################
|
####################################################################################################################################
|
||||||
# Runs tests
|
# Runs tests
|
||||||
####################################################################################################################################
|
####################################################################################################################################
|
||||||
BackRestFileTest();
|
if ($strModule eq 'all' || $strModule eq "file")
|
||||||
|
{
|
||||||
|
BackRestFileTest($strModuleTest);
|
||||||
|
}
|
||||||
|
|
||||||
print "\nTEST COMPLETED SUCCESSFULLY (DESPITE ANY ERROR MESSAGES YOU SAW)\n";
|
print "\nTEST COMPLETED SUCCESSFULLY (DESPITE ANY ERROR MESSAGES YOU SAW)\n";
|
||||||
|
Loading…
Reference in New Issue
Block a user