t/socket/ssl_fork.t

   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 ;