diff options
author | Jay Berkenbilt <ejb@ql.org> | 2019-08-24 01:54:08 +0200 |
---|---|---|
committer | Jay Berkenbilt <ejb@ql.org> | 2019-08-24 02:34:21 +0200 |
commit | dac0598b94c877bec92a1edd78ae00021cfa1638 (patch) | |
tree | 70988ddf9cc7c4e9c2e7b867bb135c331e061217 /zlib-flate/qtest/zf.test | |
parent | bda5d26894c857a05f811a6ebd3595d26424d2ea (diff) | |
download | qpdf-dac0598b94c877bec92a1edd78ae00021cfa1638.tar.zst |
Add ability to set zlib compression level globally
Diffstat (limited to 'zlib-flate/qtest/zf.test')
-rw-r--r-- | zlib-flate/qtest/zf.test | 24 |
1 files changed, 15 insertions, 9 deletions
diff --git a/zlib-flate/qtest/zf.test b/zlib-flate/qtest/zf.test index 39271e16..2b188eb2 100644 --- a/zlib-flate/qtest/zf.test +++ b/zlib-flate/qtest/zf.test @@ -7,15 +7,21 @@ require TestDriver; my $td = new TestDriver('zlib-flate'); -$td->runtest("compress", - {$td->COMMAND => "zlib-flate -compress < 1.uncompressed"}, - {$td->FILE => "1.compressed", - $td->EXIT_STATUS => 0}); +foreach my $level ('', '=1', '=9') +{ + my $f = $level; + $f =~ s/=/-/; + $td->runtest("compress", + {$td->COMMAND => + "zlib-flate -compress$level < 1.uncompressed"}, + {$td->FILE => "1.compressed$f", + $td->EXIT_STATUS => 0}); -$td->runtest("uncompress", - {$td->COMMAND => "zlib-flate -uncompress < 1.compressed"}, - {$td->FILE => "1.uncompressed", - $td->EXIT_STATUS => 0}); + $td->runtest("uncompress", + {$td->COMMAND => "zlib-flate -uncompress < 1.compressed"}, + {$td->FILE => "1.uncompressed", + $td->EXIT_STATUS => 0}); +} $td->runtest("error", {$td->COMMAND => "zlib-flate -uncompress < 1.uncompressed"}, @@ -23,4 +29,4 @@ $td->runtest("error", $td->EXIT_STATUS => 2}, $td->NORMALIZE_NEWLINES); -$td->report(3); +$td->report(7); |