mirror of
https://github.com/pgbackrest/pgbackrest.git
synced 2024-12-14 10:13:05 +02:00
c2b1620c53
1) Show log output realtime when --max-process=1 or only 1 test is being run. 2) Dry run now shows test output when --vm-out is specified.
91 lines
3.2 KiB
Perl
91 lines
3.2 KiB
Perl
####################################################################################################################################
|
|
# HelpTest.pm - Unit Tests for help
|
|
####################################################################################################################################
|
|
package BackRestTest::HelpTest;
|
|
|
|
####################################################################################################################################
|
|
# Perl includes
|
|
####################################################################################################################################
|
|
use strict;
|
|
use warnings FATAL => qw(all);
|
|
use Carp qw(confess);
|
|
|
|
use Exporter qw(import);
|
|
use File::Basename qw(dirname);
|
|
|
|
use lib dirname($0) . '/../lib';
|
|
use BackRest::Common::Log;
|
|
use BackRest::Config::Config;
|
|
|
|
use BackRestTest::Common::ExecuteTest;
|
|
use BackRestTest::CommonTest;
|
|
|
|
####################################################################################################################################
|
|
# BackRestTestHelp_ExecuteHelp
|
|
####################################################################################################################################
|
|
sub BackRestTestHelp_ExecuteHelp
|
|
{
|
|
my $strCommand = shift;
|
|
|
|
executeTest(BackRestTestCommon_CommandMainAbsGet() . ' --no-config ' . $strCommand);
|
|
}
|
|
|
|
####################################################################################################################################
|
|
# BackRestTestHelp_Test
|
|
####################################################################################################################################
|
|
our @EXPORT = qw(BackRestTestHelp_Test);
|
|
|
|
sub BackRestTestHelp_Test
|
|
{
|
|
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");
|
|
}
|
|
|
|
BackRestTestCommon_Drop(true);
|
|
BackRestTestCommon_Create();
|
|
|
|
# Increment the run, log, and decide whether this unit test should be run
|
|
if (BackRestTestCommon_Run(++$iRun, 'base', $strModule, $strThisTest, undef, false))
|
|
{
|
|
BackRestTestHelp_ExecuteHelp('version');
|
|
BackRestTestHelp_ExecuteHelp('help');
|
|
BackRestTestHelp_ExecuteHelp('help version');
|
|
BackRestTestHelp_ExecuteHelp('help --output=json --stanza=main info');
|
|
BackRestTestHelp_ExecuteHelp('help --output=json --stanza=main info output');
|
|
}
|
|
|
|
# Cleanup
|
|
if (BackRestTestCommon_Cleanup())
|
|
{
|
|
&log(INFO, 'cleanup');
|
|
BackRestTestCommon_Drop(true);
|
|
}
|
|
}
|
|
}
|
|
|
|
1;
|