From 513ed692342ce2d98d4d505ade3d7b5d329d6c65 Mon Sep 17 00:00:00 2001
From: Jay Berkenbilt <ejb@ql.org>
Date: Tue, 19 Dec 2023 08:05:33 -0500
Subject: zlib-flate: make test work with alternative zlib

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

(limited to 'zlib-flate')

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