view release on metacpan or  search on metacpan

t/10-simple.t  view on Meta::CPAN

subtest "this domain is okay.  bradfitz.com isn't blocked" => sub {
    $res = $ua->get("http://bradfitz.com/");
    print $res->status_line, "\n";
    ok(  $res->is_success);
};

# SSL should still work, assuming it would work before.
SKIP:
{
    my $has_ssleay = eval { require Crypt::SSLeay; 1;   };
    my $has_iossl  = eval { require IO::Socket::SSL; 1; };

    skip "Crypt::SSLeay or IO::Socket::SSL not installed", 1 unless $has_ssleay || $has_iossl;

    $res = $ua->get("https://pause.perl.org/pause/query");
    ok(  $res->is_success && $res->content =~ /Login|PAUSE|Edit/);
}

subtest 'internal. bad.  blocked by default by module.' => sub {
    $res = $ua->get("http://10.2.3.4/");
    note $res->status_line;
    ok(! $res->is_success);
};