db/pgbackrest
1
0
Fork 0
mirror of https://github.com/pgbackrest/pgbackrest.git synced 2024-12-12 10:04:14 +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
Show Stats 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 Getopt::Long qw(GetOptions);
use Cwd qw(abs_path);
use Cwd qw(abs_path cwd);
use Pod::Usage qw(pod2usage);
use POSIX qw(ceil);
use Time::HiRes qw(gettimeofday);
@ -165,7 +165,7 @@ if ($bQuiet)
$strLogLevel = 'off';
}
logLevelSet(undef, uc($strLogLevel));
logLevelSet(uc($strLogLevel), uc($strLogLevel));
if ($strModuleTest ne 'all' && $strModule eq 'all')
{
@ -332,6 +332,11 @@ eval
################################################################################################################################
if ($strOS ne 'none')
{
if (!$bDryRun)
{
logFileSet(cwd() . "/test");
}
my $oyVm = vmGet();
if ($strOS ne 'all' && !defined($${oyVm}{$strOS}))