24 lines
1,023 B
Text
24 lines
1,023 B
Text
Change the test to a newer and supported protocol
|
|
Index: t/simple_large.t
|
|
--- t/simple_large.t.orig
|
|
+++ t/simple_large.t
|
|
@@ -49,8 +49,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]) };
|
|
@@ -109,7 +109,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 $@");
|