t/10-base.t

   1 #!perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More;
   7
   8 use Acme::CPANAuthors;
   9
  10 my $authors = eval {
  11  local $SIG{__WARN__} = sub { die @_ };
  12  Acme::CPANAuthors->new("You're_using");
  13 };
  14
  15 if ($authors) {
  16  plan tests => 5;
  17 } else {
  18  plan skip_all => $@;
  19 }
  20
  21 my $count = $authors->count;
  22 diag "$count authors found";
  23 cmp_ok $count, '>', 0, 'there are some authors';
  24
  25 is   $authors->name('???'),      undef,         'wrong name';
  26 is   $authors->name('VPIT'),     'Vincent Pit', 'we should at least have this module';
  27 isnt $authors->name('ISHIGAKI'), undef,         'we should at least have Acme::CPANAuthors\' author';
  28 isnt $authors->name('LBROCARD'), undef,         'we should at least have Parse::CPAN::* author';