diff options
author | Jay Berkenbilt <ejb@ql.org> | 2023-12-19 14:05:33 +0100 |
---|---|---|
committer | Jay Berkenbilt <ejb@ql.org> | 2023-12-20 13:07:35 +0100 |
commit | 513ed692342ce2d98d4d505ade3d7b5d329d6c65 (patch) | |
tree | 8dd82b81fc7fd0319b7b679abdcd561d1d950a24 /zlib-flate/qtest | |
parent | a80e1a578f36206dc21be09ab93a93830f7a122b (diff) | |
download | qpdf-513ed692342ce2d98d4d505ade3d7b5d329d6c65.tar.zst |
zlib-flate: make test work with alternative zlib
Diffstat (limited to 'zlib-flate/qtest')
-rw-r--r-- | zlib-flate/qtest/1.compressed-1 | bin | 193 -> 0 bytes | |||
-rw-r--r-- | zlib-flate/qtest/1.compressed-9 | bin | 193 -> 0 bytes | |||
-rw-r--r-- | zlib-flate/qtest/zf.test | 39 |
3 files changed, 32 insertions, 7 deletions
diff --git a/zlib-flate/qtest/1.compressed-1 b/zlib-flate/qtest/1.compressed-1 Binary files differdeleted file mode 100644 index 11150cf3..00000000 --- a/zlib-flate/qtest/1.compressed-1 +++ /dev/null diff --git a/zlib-flate/qtest/1.compressed-9 b/zlib-flate/qtest/1.compressed-9 Binary files differdeleted file mode 100644 index 25f4647b..00000000 --- a/zlib-flate/qtest/1.compressed-9 +++ /dev/null diff --git a/zlib-flate/qtest/zf.test b/zlib-flate/qtest/zf.test index d864a130..2fa5c1eb 100644 --- a/zlib-flate/qtest/zf.test +++ b/zlib-flate/qtest/zf.test @@ -7,22 +7,40 @@ require TestDriver; my $td = new TestDriver('zlib-flate'); +cleanup(); + +open(F, "<1.uncompressed") or die; +undef $/; +my $unc = <F>; +close(F); + +open(F, ">a.uncompressed") or die; +for (my $i = 0; $i < 100; $i++) +{ + print F $unc; +} +close(F); + 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}); + "zlib-flate -compress$level < a.uncompressed > a.$level"}, + {$td->STRING => "", $td->EXIT_STATUS => 0}); $td->runtest("uncompress", - {$td->COMMAND => "zlib-flate -uncompress < 1.compressed"}, - {$td->FILE => "1.uncompressed", - $td->EXIT_STATUS => 0}); + {$td->COMMAND => "zlib-flate -uncompress < a.$level"}, + {$td->FILE => "a.uncompressed", $td->EXIT_STATUS => 0}); } +my $size1 = (stat("a.=1"))[7]; +my $size9 = (stat("a.=9"))[7]; +$td->runtest("higher compression is smaller", + {$td->STRING => ($size9 < $size1 ? "YES\n" : "$size9 $size1\n")}, + {$td->STRING => "YES\n"}); + $td->runtest("error", {$td->COMMAND => "zlib-flate -uncompress < 1.uncompressed"}, {$td->REGEXP => "flate: inflate: data: .*\n", @@ -36,4 +54,11 @@ $td->runtest("corrupted input", $td->EXIT_STATUS => 3}, $td->NORMALIZE_NEWLINES); -$td->report(8); +$td->report(9); + +cleanup(); + +sub cleanup +{ + system("rm -f a.*"); +} |