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: [PATCH] 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

diff --git a/zlib-flate/qtest/1.compressed-1 b/zlib-flate/qtest/1.compressed-1
deleted file mode 100644
index 11150cf303b0b51084896f1816e2d7e3f0bc0644..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 193
zcmV;y06zbC0VR(ya>OtQMSGv(cWIoxMJ8pMy#OoWmDaM@2o#NPA8a=a%;&!kKQ%D=
zTPg^aH-;r{jFSI2df%AwD`V&lxF_BbbF3fc`pS4q%kjz6)<c@1a(H(nicl(E7ioAj
zrgb4T2YgG3xky-bz9LUC*C(jPiK}t*VRm1yM|f74;K3fM<_KPTIaZG-O^jDp!*CyH
v&_0c9NxFf_F6Mq7?G%-bM<R2VH2Vy>g`VwvkfA2++T`i0#@qA{(D-4<iSu1x

diff --git a/zlib-flate/qtest/1.compressed-9 b/zlib-flate/qtest/1.compressed-9
deleted file mode 100644
index 25f4647bb7790df7112a47f919dc16e4ee07a970..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 193
zcmV;y06zbC+9i)Ma>OtQMSGv(cWIoxMJ8pMy#OoWmDaM@2o#NPA8a=a%;&!kKQ%D=
zTPg^aH-;r{jFSI2df%AwD`V&lxF_BbbF3fc`pS4q%kjz6)<c@1a(H(nicl(E7ioAj
zrgb4T2YgG3xky-bz9LUC*C(jPiK}t*VRm1yM|f74;K3fM<_KPTIaZG-O^jDp!*CyH
v&_0c9NxFf_F6Mq7?G%-bM<R2VH2Vy>g`VwvkfA2++T`i0#@qA{(D-4<EW%zn

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.*");
+}