1
0
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:
David Steele 2014-06-05 10:20:03 -04:00
parent 5813aedaa3
commit c2dd53f908
2 changed files with 666 additions and 620 deletions

File diff suppressed because it is too large Load Diff

View File

@ -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";