1
0
mirror of https://github.com/pgbackrest/pgbackrest.git synced 2024-12-12 10:04:14 +02:00
pgbackrest/test/test.pl

125 lines
4.6 KiB
Perl
Raw Normal View History

2013-11-17 21:58:21 +03:00
#!/usr/bin/perl
2014-04-03 00:25:37 +03:00
####################################################################################################################################
2014-06-08 00:29:11 +03:00
# test.pl - BackRest Unit Tests
2014-04-03 00:25:37 +03:00
####################################################################################################################################
####################################################################################################################################
# Perl includes
####################################################################################################################################
use strict;
use warnings;
use english;
use File::Basename;
use Getopt::Long;
use Carp;
use lib dirname($0) . "/../lib";
use BackRest::Utility;
2014-04-03 00:25:37 +03:00
use lib dirname($0) . "/lib";
use BackRestTest::CommonTest;
use BackRestTest::UtilityTest;
use BackRestTest::FileTest;
use BackRestTest::BackupTest;
2014-04-03 00:25:37 +03:00
####################################################################################################################################
# Command line parameters
####################################################################################################################################
my $strLogLevel = 'off'; # Log level for tests
my $strModule = 'all';
my $strModuleTest = 'all';
2014-06-22 17:54:31 +03:00
my $iModuleTestRun = undef;
my $bDryRun = false;
my $bNoCleanup = false;
GetOptions ("log-level=s" => \$strLogLevel,
"module=s" => \$strModule,
2014-06-22 17:54:31 +03:00
"module-test=s" => \$strModuleTest,
"module-test-run=s" => \$iModuleTestRun,
"dry-run" => \$bDryRun,
"no-cleanup" => \$bNoCleanup)
or die("Error in command line arguments\n");
####################################################################################################################################
# Setup
####################################################################################################################################
# Set a neutral umask so tests work as expected
umask(0);
# Set console log level to trace for testing
log_level_set(undef, uc($strLogLevel));
if ($strModuleTest ne 'all' && $strModule eq 'all')
{
confess "--module must be provided for test \"${strModuleTest}\"";
}
2014-06-22 17:54:31 +03:00
if (defined($iModuleTestRun) && $strModuleTest eq 'all')
{
confess "--module-test must be provided for run \"${iModuleTestRun}\"";
}
2014-06-08 00:29:11 +03:00
####################################################################################################################################
# Clean whitespace
####################################################################################################################################
BackRestTestCommon_Execute("find .. -type f -not -path \"../.git/*\" -not -path \"*.DS_Store\" -not -path \"../test/test/*\" " .
"-not -path \"../test/data/*\" " .
2014-07-13 02:36:12 +03:00
"-exec sh -c 'for i;do echo \"\$i\" && sed 's/[[:space:]]*\$//' \"\$i\">/tmp/.\$\$ && cat /tmp/.\$\$ " .
"> \"\$i\";done' arg0 {} + > /dev/null", false, true);
2014-06-08 00:29:11 +03:00
####################################################################################################################################
# Make sure version number matches in README.md and VERSION
####################################################################################################################################
my $hReadMe;
my $strLine;
my $bMatch = false;
my $strVersion = version_get();
if (!open($hReadMe, '<', dirname($0) . "/../README.md"))
{
confess "unable to open README.md";
}
while ($strLine = readline($hReadMe))
{
if ($strLine =~ /^\#\#\# v/)
{
$bMatch = substr($strLine, 5, length($strVersion)) eq $strVersion;
last;
}
}
if (!$bMatch)
{
confess "unable to find version ${strVersion} as last revision in README.md";
}
####################################################################################################################################
# Runs tests
2014-04-03 00:25:37 +03:00
####################################################################################################################################
BackRestTestCommon_Setup($iModuleTestRun, $bDryRun, $bNoCleanup);
# &log(INFO, "Testing with test_path = " . BackRestTestCommon_TestPathGet() . ", host = {strHost}, user = {strUser}, " .
# "group = {strGroup}");
if ($strModule eq 'all' || $strModule eq "utility")
{
BackRestTestUtility_Test($strModuleTest);
}
if ($strModule eq 'all' || $strModule eq "file")
{
BackRestTestFile_Test($strModuleTest);
}
if ($strModule eq 'all' || $strModule eq "backup")
{
BackRestTestBackup_Test($strModuleTest);
}
if (!$bDryRun)
{
&log(ASSERT, "TESTS COMPLETED SUCCESSFULLY (DESPITE ANY ERROR MESSAGES YOU SAW)");
}