From dac0598b94c877bec92a1edd78ae00021cfa1638 Mon Sep 17 00:00:00 2001
From: Jay Berkenbilt <ejb@ql.org>
Date: Fri, 23 Aug 2019 19:54:08 -0400
Subject: Add ability to set zlib compression level globally

---
 zlib-flate/qtest/1.compressed-1 | Bin 0 -> 193 bytes
 zlib-flate/qtest/1.compressed-9 | Bin 0 -> 193 bytes
 zlib-flate/qtest/zf.test        |  24 +++++++++++++++---------
 3 files changed, 15 insertions(+), 9 deletions(-)
 create mode 100644 zlib-flate/qtest/1.compressed-1
 create mode 100644 zlib-flate/qtest/1.compressed-9

(limited to 'zlib-flate/qtest')

diff --git a/zlib-flate/qtest/1.compressed-1 b/zlib-flate/qtest/1.compressed-1
new file mode 100644
index 00000000..11150cf3
Binary files /dev/null and b/zlib-flate/qtest/1.compressed-1 differ
diff --git a/zlib-flate/qtest/1.compressed-9 b/zlib-flate/qtest/1.compressed-9
new file mode 100644
index 00000000..25f4647b
Binary files /dev/null and b/zlib-flate/qtest/1.compressed-9 differ
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);
-- 
cgit v1.2.3-54-g00ecf