[urisagit/Stem.git] / t / socket / ssl_fork.t

# 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 ;
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 ;