LWP-UserAgent-DNS-Hosts

 view release on metacpan or  search on metacpan

t/11_https.t  view on Meta::CPAN

use strict;
use Test::More;
use Test::Fake::HTTPD 0.08;
use LWP::UserAgent;
use LWP::UserAgent::DNS::Hosts;

# server
plan skip_all => "disable SSL" unless Test::Fake::HTTPD::enable_ssl();

# client
for my $module (qw/ LWP::Protocol::https IO::Socket::SSL /) {
    plan skip_all => "$module required" unless eval "use $module; 1";
}

sub _uri {
    my ($uri, $httpd) = @_;
    $uri = URI->new($uri);
    $uri->port($httpd->port);
    $uri->as_string;
}



( run in 0.449 second using v1.01-cache-2.11-cpan-4d50c553e7e )