db/pgbackrest
1
0
Fork 0
mirror of https://github.com/pgbackrest/pgbackrest.git synced 2025-06-14 23:44:58 +02:00
Code Issues Releases Activity

Major refactor of the test suite.

Browse Source 
* Make the code more modular and object-oriented.
* Multiple Docker containers can now be created for a single test to simulate more realistic environments.
This commit is contained in:
David Steele
2016-06-24 08:12:58 -04:00
parent 23a3911830
commit c8f806a293
68 changed files with 9216 additions and 9446 deletions
Download Patch File Download Diff File Expand all files Collapse all files

85
test/lib/pgBackRestTest/Help/HelpTest.pm Normal file
View File

@ -0,0 +1,85 @@
####################################################################################################################################
# HelpTest.pm - Unit Tests for help
####################################################################################################################################
package pgBackRestTest::Help::HelpTest;
####################################################################################################################################
# Perl includes
####################################################################################################################################
use strict;
use warnings FATAL => qw(all);
use Carp qw(confess);
use Exporter qw(import);
our @EXPORT = qw();
use pgBackRest::Common::Log;
use pgBackRest::Config::Config;
use pgBackRestTest::Backup::Common::HostBackupTest;
use pgBackRestTest::Common::HostGroupTest;
use pgBackRestTest::Common::ExecuteTest;
use pgBackRestTest::CommonTest;
####################################################################################################################################
# helpExecute
####################################################################################################################################
sub helpExecute
{
my $strCommand = shift;
my $oHostGroup = hostGroupGet();
executeTest($oHostGroup->paramGet(HOST_PARAM_BACKREST_EXE) . ' --no-config ' . $strCommand);
}
####################################################################################################################################
# helpTestRun
####################################################################################################################################
sub helpTestRun
{
my $strTest = shift;
my $iThreadMax = shift;
my $bVmOut = shift;
# Setup test variables
my $iRun;
my $strModule = 'help';
# Print test banner
if (!$bVmOut)
{
&log(INFO, 'HELP MODULE *****************************************************************');
}
#-------------------------------------------------------------------------------------------------------------------------------
# Test config
#-------------------------------------------------------------------------------------------------------------------------------
my $strThisTest = 'help';
if ($strTest eq 'all' || $strTest eq $strThisTest)
{
$iRun = 0;
if (!$bVmOut)
{
&log(INFO, "Test help\n");
}
# Increment the run, log, and decide whether this unit test should be run
if (testRun(++$iRun, 'base', $strModule, $strThisTest, undef, false))
{
helpExecute('version');
helpExecute('help');
helpExecute('help version');
helpExecute('help --output=json --stanza=main info');
helpExecute('help --output=json --stanza=main info output');
}
# Cleanup
testCleanup();
}
}
push @EXPORT, qw(helpTestRun);
1;