[tests] do not test for exact compress zlib size

If zlibg-ng instead of zlib is used then the testsuite fails because the
resulting compressed content has a different size.

Alter the test and expect that the compressed content is less than half
the size of the input.

x-ref:
  lighttpd: FTBFS with zlib-ng
  https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=1088683

Co-authored-by: Glenn Strauss <gstrauss@gluelogic.com>

Signed-off-by: Sebastian Andrzej Siewior <sebastian@breakpoint.cc>

Author: sebastianas

tests/LightyTest.pm

@@ -460,6 +460,7 @@ sub handle_http {
 			(my $k = $_) =~ tr/[A-Z]/[a-z]/;
 
 			my $verify_value = 1;
+			my $verify_less_than = 0;
 			my $key_inverted = 0;
 
 			if (substr($k, 0, 1) eq '+') {
@@ -470,6 +471,10 @@ sub handle_http {
 				$k = substr($k, 1);
 				$key_inverted = 1;
 				$verify_value = 0; ## skip the value check
+			} elsif (substr($k, 0, 1) eq '<') {
+				## the value must be less than
+				$k = substr($k, 1);
+				$verify_less_than = 1;
 			}
 
 			if ($key_inverted) {
@@ -492,6 +497,13 @@ sub handle_http {
 							$href->{$_}, $resp_hdr{$k}, $1));
 						return -1;
 					}
+				} elsif ($verify_less_than) {
+					if ($resp_hdr{$k} >= $href->{$_}) {
+						diag(sprintf(
+							"\nresponse-header failed: expected '%s' > '%s'",
+							$href->{$_}, $resp_hdr{$k}));
+						return -1;
+					}
 				} elsif ($href->{$_} ne $resp_hdr{$k}) {
 					diag(sprintf(
 						"\nresponse-header failed: expected '%s', got '%s'",

tests/request.t

@@ -1405,13 +1405,15 @@ EOF
 $t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, '+Vary' => '' } ];
 ok($tf->handle_http($t) == 0, 'Vary is set');
 
+# The compressed content should be less than half of the original content size for the specific index.html content used in these tests.
+
 $t->{REQUEST}  = ( <<EOF
 GET /index.html HTTP/1.0
 Accept-Encoding: deflate
 Host: deflate.example.org
 EOF
  );
-$t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, '+Vary' => '', 'Content-Length' => qr/^129[34]$/, '+Content-Encoding' => '' } ];
+$t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, '+Vary' => '', '<Content-Length' => '2174', '+Content-Encoding' => '' } ];
 ok($tf->handle_http($t) == 0, 'deflate - Content-Length and Content-Encoding is set');
 
 $t->{REQUEST}  = ( <<EOF
@@ -1420,7 +1422,7 @@ Accept-Encoding: deflate
 Host: deflate-cache.example.org
 EOF
  );
-$t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, '+Vary' => '', 'Content-Length' => qr/^129[34]$/, '+Content-Encoding' => '' } ];
+$t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, '+Vary' => '', '<Content-Length' => '2174', '+Content-Encoding' => '' } ];
 ok($tf->handle_http($t) == 0, 'deflate - Content-Length and Content-Encoding is set');
 
 $t->{REQUEST}  = ( <<EOF
@@ -1429,7 +1431,7 @@ Accept-Encoding: gzip
 Host: deflate.example.org
 EOF
  );
-$t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, '+Vary' => '', 'Content-Length' => qr/^130[56]$/, '+Content-Encoding' => '' } ];
+$t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, '+Vary' => '', '<Content-Length' => '2174', '+Content-Encoding' => '' } ];
 ok($tf->handle_http($t) == 0, 'gzip - Content-Length and Content-Encoding is set');
 
 $t->{REQUEST}  = ( <<EOF
@@ -1438,7 +1440,7 @@ Accept-Encoding: gzip
 Host: deflate-cache.example.org
 EOF
  );
-$t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, '+Vary' => '', 'Content-Length' => qr/^130[56]$/, '+Content-Encoding' => '' } ];
+$t->{RESPONSE} = [ { 'HTTP-Protocol' => 'HTTP/1.0', 'HTTP-Status' => 200, '+Vary' => '', '<Content-Length' => '2174', '+Content-Encoding' => '' } ];
 ok($tf->handle_http($t) == 0, 'gzip - Content-Length and Content-Encoding is set');