Add ability to set zlib compression level globally

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