App-cpantested
view release on metacpan - search on metacpan
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));
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.906 second using v1.00-cache-2.02-grep-82fe00e-cpan-2c419f77a38b )