diff options
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); |