[PATCH 2 of 5] Tests: reduced ssl.t pipelining test time

[Maxim Dounin]

# HG changeset patch
# User Maxim Dounin <mdounin at mdounin.ru>
# Date 1752891898 -10800
#      Sat Jul 19 05:24:58 2025 +0300
# Node ID a93d11a64ed526a847d531dae657d23b41550395
# Parent  b04d3b7129f628b1f8c82701b740d333d7bf60dc
Tests: reduced ssl.t pipelining test time.

Doing 1000 pipelined requests might require significant time, as seen
on NetBSD with debugging enabled, and might cause occasional failures
on slow hosts.  To mitigate, the test changed to do only 100 requests
instead.

diff --git a/ssl.t b/ssl.t
--- a/ssl.t
+++ b/ssl.t
@@ -250,17 +250,17 @@ like(get_body('/body', '0123456789', 20,
 # pipelined requests
 
 $s = get_ssl_socket(8085);
-my $req = <<EOF;
-GET / HTTP/1.1
-Host: localhost
 
-EOF
-
-$req x= 1000;
+my $req = (
+	"GET / HTTP/1.1" . CRLF .
+	"Host: localhost" . CRLF . CRLF ) x 99 .
+	"GET / HTTP/1.1" . CRLF .
+	"Host: localhost" . CRLF .
+	"Connection: close" . CRLF . CRLF;
 
 my $r = http($req, socket => $s) || "";
 $s = undef;
-is(() = $r =~ /(200 OK)/g, 1000, 'pipelined requests');
+is(() = $r =~ /(200 OK)/g, 100, 'pipelined requests');
 
 # OpenSSL 3.0 error "unexpected eof while reading" seen as a critical error