25 lines
1 KiB
Text
25 lines
1 KiB
Text
|
Change the test to a newer and supported protocol
|
||
|
|
Index: t/renegotiate_client_pings.t
|
||
|
|
--- t/renegotiate_client_pings.t.orig
|
||
|
|
+++ t/renegotiate_client_pings.t
|
||
|
|
@@ -52,8 +52,8 @@ POE::Component::Server::TCP->new
|
||
|
|
},
|
||
|
|
ClientPreConnect => sub
|
||
|
|
{
|
||
|
|
- eval { SSLify_Options('mylib/example.key', 'mylib/example.crt', 'sslv3') };
|
||
|
|
- eval { SSLify_Options('../mylib/example.key', '../mylib/example.crt', 'sslv3') } if ($@);
|
||
|
|
+ eval { SSLify_Options('mylib/example.key', 'mylib/example.crt', 'tlsv1_2') };
|
||
|
|
+ eval { SSLify_Options('../mylib/example.key', '../mylib/example.crt', 'tlsv1_2') } if ($@);
|
||
|
|
ok(!$@, "SERVER: SSLify_Options $@");
|
||
|
|
|
||
|
|
my $socket = eval { Server_SSLify($_[ARG0]) };
|
||
|
|
@@ -116,7 +116,7 @@ POE::Component::Client::TCP->new
|
||
|
|
},
|
||
|
|
PreConnect => sub
|
||
|
|
{
|
||
|
|
- my $ctx = eval { SSLify_ContextCreate(undef, undef, 'sslv3') };
|
||
|
|
+ my $ctx = eval { SSLify_ContextCreate(undef, undef, 'tlsv1_2') };
|
||
|
|
ok(!$@, "CLIENT: SSLify_ContextCreate $@");
|
||
|
|
my $socket = eval { Client_SSLify($_[ARG0], undef, undef, $ctx) };
|
||
|
|
ok(!$@, "CLIENT: Client_SSLify $@");
|