1
0
mirror of https://github.com/pgbackrest/pgbackrest.git synced 2025-06-16 23:47:38 +02:00

Fix custom settings for compress-level option being ignored.

Reported by Jens Wilke.
This commit is contained in:
David Steele
2017-10-22 18:05:46 -04:00
parent 3553ccae44
commit d82fe88031
30 changed files with 594 additions and 352 deletions

View File

@ -106,8 +106,9 @@ sub run
#---------------------------------------------------------------------------------------------------------------------------
my $oGzipIo = $self->testResult(
sub {new pgBackRest::Storage::Filter::Gzip($oDriver->openWrite($strFileGz), {bWantGzip => false})},
sub {new pgBackRest::Storage::Filter::Gzip($oDriver->openWrite($strFileGz), {bWantGzip => false, iLevel => 3})},
'[object]', 'new write compress');
$self->testResult($oGzipIo->{iLevel}, 3, ' check level');
$self->testResult(sub {$oGzipIo->write(\$strFileContent, $iFileLength)}, $iFileLength, ' write');
$self->testResult(sub {$oGzipIo->close()}, true, ' close');