File openssl3_1-adapt_tests.patch of Package perl-Protocol-HTTP2

From 552e3677372c77ec458548fd8c3fdc280e493d91 Mon Sep 17 00:00:00 2001
From: Otto Hollmann <otto.hollmann@suse.com>
Date: Thu, 4 May 2023 13:42:51 +0200
Subject: [PATCH] Adapt tests for OpenSSL 3.1

---
 t/lib/PH2ClientServerTest.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/t/lib/PH2ClientServerTest.pm b/t/lib/PH2ClientServerTest.pm
index 3fe9203..fe90f32 100644
--- a/t/lib/PH2ClientServerTest.pm
+++ b/t/lib/PH2ClientServerTest.pm
@@ -43,7 +43,7 @@ sub server {
         if ( !$h{upgrade} && ( $h{npn} || $h{alpn} ) ) {
             eval {
                 $tls = AnyEvent::TLS->new(
-                    method    => 'tlsv1',
+                    method    => 'tlsv1_2',
                     cert_file => $tls_crt,
                     key_file  => $tls_key,
                 );
@@ -122,7 +122,7 @@ sub client {
     }
     elsif ( $h{npn} || $h{alpn} ) {
         eval {
-            $tls = AnyEvent::TLS->new( method => 'tlsv1', );
+            $tls = AnyEvent::TLS->new( method => 'tlsv1_2', );
 
             if ( delete $h{npn} ) {