view release on metacpan or  search on metacpan

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

#!perl

use strict;
use warnings;

use Test::More;

use Acme::CPANAuthors;

local @INC = grep $_ ne '.', @INC;

diag 'Directories in @INC :';
diag "  $_" for @INC;

my $authors = eval {
 local $SIG{__WARN__} = sub {
  my ($msg) = @_;
  if ($msg =~ /^You're_using CPAN Authors are not registered yet: (.*)/s) {
   die $1;
  }
  diag $_ for @_;
 };
 Acme::CPANAuthors->new("You're_using");
};

if ($authors) {
 plan tests => 5;
} else {
 plan skip_all => $@;
}

my $count = $authors->count;
diag "$count authors found";
cmp_ok $count, '>', 0, 'there are some authors';

is   $authors->name('???'),      undef,         'wrong name';
is   $authors->name('VPIT'),     'Vincent Pit', 'we should at least have this module';
isnt $authors->name('ISHIGAKI'), undef,         'we should at least have Acme::CPANAuthors\' author';
isnt $authors->name('GAAS'),     undef,         'we should at least have LWP\'s author';