view release on metacpan or  search on metacpan

t/040_https_request.t  view on Meta::CPAN

use t::test_base;

use strict;
use warnings;
use IO::Socket::SSL;
use File::Spec;

my @parts = File::Spec->splitpath(__FILE__);

my $basedir = $parts[1];

my $port = 20000+int(rand(10000));

my $TEST_TEXT = 'Hi, how are you!';

t/040_https_request.t  view on Meta::CPAN

done_testing();



sub start_server {
    my ($port, $public_cert, $private_cert, $ca_file) = @_;

    if(my $pid = fork){
        #print "Open socket in 127.0.0.1:$port\n";
        # simple server
        my $srv = IO::Socket::SSL->new(
            LocalAddr => "localhost:$port",
            Listen => 10,
            SSL_server => 1,
            SSL_cert_file => $public_cert,
            SSL_key_file => $private_cert,
            SSL_client_ca_file => $ca_file,
            SSL_ca_file => $ca_file,
        );

        my $con = $srv->accept;