view release on metacpan or  search on metacpan

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

use File::Spec::Functions;
use IO::Socket::INET;
use Test::More;

plan skip_all => q(no direct Internet connection)
    unless IO::Socket::INET->new(
        PeerHost  => q(cpantesters.org),
        PeerPort  => 80,
        Proto     => q(tcp),
        Timeout   => 10,
    );

my $reference = catfile(qw(t dists));
my $utility = catfile(qw(bin cpan-tested));

ok(-f $reference, q(reference exists));
ok(-f $utility, q(utility exists));

my $fh;
ok(open($fh, q(<), $reference), q(reference file));