#!perl
use strict;
use warnings;
use Test::More;
use lib 't/lib';
use Pinto::Tester;
#------------------------------------------------------------------------------
note("This test requires a live internet connection to pull stuff from CPAN");
#------------------------------------------------------------------------------
# FCGI and common::sense both generate the .pm files at build time. So it
# appears that they don't have any packages. The PackageExctractor class
# has workaround for these
for my $pkg (qw(common::sense FCGI Net::LibIDN)) {
my $t = Pinto::Tester->new;
$t->run_ok( Pull => { targets => $pkg } );
$t->run_ok( List => {} );
$t->stdout_like( qr{$pkg}, "$pkg registered ok" );
}
#------------------------------------------------------------------------------
# For inexplicable reasons, pulling DateTime::TimeZone causes Pinto to blow
# up on perl 5.14.x (and possibly others). It has something to do with
# Class::Load claiming that a module is already loaded when it really isn't.
for my $pkg (qw(DateTime::TimeZone)) {
my $t = Pinto::Tester->new;
$t->run_ok( Pull => { targets => $pkg } );
$t->run_ok( List => {} );
$t->stdout_like( qr{$pkg}, "$pkg registered ok" );
}
#------------------------------------------------------------------------------
done_testing;