Commit | Line | Data |
---|---|---|
4536f655 | 1 | # t/socket/ssl.t |
2 | ||
3 | use strict ; | |
4 | use lib 't/socket' ; | |
5 | ||
6 | unless ( eval { require IO::Socket::SSL } ) { | |
7 | ||
8 | print "1..0 # Skip IO::Socket::SSL is not installed\n" ; | |
9 | exit ; | |
10 | } | |
11 | ||
12 | ||
13 | require SockFork ; | |
14 | ||
15 | my @ssl_client_args = ( | |
16 | SSL_use_cert => 1, | |
17 | SSL_verify_mode => 0x01, | |
18 | SSL_passwd_cb => sub {return "bluebell"} | |
19 | ) ; | |
20 | ||
21 | my @ssl_server_args = () ; | |
22 | ||
23 | SockFork::test( \@ssl_client_args, \@ssl_server_args ) ; | |
24 | ||
25 | exit 0 ; |