db/pgbackrest
1
0
Fork 0
mirror of https://github.com/pgbackrest/pgbackrest.git synced 2025-11-06 08:49:29 +02:00
Code Issues Releases Activity

Master test log is output to file.

Browse Source
This commit is contained in:
David Steele
2016-01-14 19:37:06 -05:00
parent 65d0c7dc3b
commit 67fb7a23bc
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
test/test.pl
View File

@@ -15,7 +15,7 @@ $SIG{__DIE__} = sub { Carp::confess @_ };
use File::Basename qw(dirname); use File::Basename qw(dirname);
use Getopt::Long qw(GetOptions); use Getopt::Long qw(GetOptions);
use Cwd qw(abs_path); use Cwd qw(abs_path cwd);
use Pod::Usage qw(pod2usage); use Pod::Usage qw(pod2usage);
use POSIX qw(ceil); use POSIX qw(ceil);
use Time::HiRes qw(gettimeofday); use Time::HiRes qw(gettimeofday);
@@ -165,7 +165,7 @@ if ($bQuiet)
$strLogLevel = 'off'; $strLogLevel = 'off';
} }
logLevelSet(undef, uc($strLogLevel)); logLevelSet(uc($strLogLevel), uc($strLogLevel));
if ($strModuleTest ne 'all' && $strModule eq 'all') if ($strModuleTest ne 'all' && $strModule eq 'all')
{ {
@@ -332,6 +332,11 @@ eval
################################################################################################################################ ################################################################################################################################
if ($strOS ne 'none') if ($strOS ne 'none')
{ {
if (!$bDryRun)
{
logFileSet(cwd() . "/test");
}
my $oyVm = vmGet(); my $oyVm = vmGet();
if ($strOS ne 'all' && !defined($${oyVm}{$strOS})) if ($strOS ne 'all' && !defined($${oyVm}{$strOS}))