The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# t/socket/ssl.t

use strict ;
use lib 't/socket' ;

unless ( eval { require IO::Socket::SSL } ) {

	print "1..0 # Skip IO::Socket::SSL is not installed\n" ;
	exit ;
}


require SockFork ;

my @ssl_client_args = (
	SSL_use_cert	=> 1,
	SSL_verify_mode => 0x01,
	SSL_passwd_cb	=> sub {return "bluebell"}
) ;

my @ssl_server_args = () ;

SockFork::test( \@ssl_client_args, \@ssl_server_args ) ;

exit 0 ;