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 {
  12   my ($msg) = @_;
  13   if ($msg =~ /^You're_using CPAN Authors are not registered yet: (.*)/s) {
  14    die $1;
  15   }
  16   CORE::warn(@_);
  17  };
  18  Acme::CPANAuthors->new("You're_using");
  19 };
  20
  21 if ($authors) {
  22  plan tests => 5;
  23 } else {
  24  plan skip_all => $@;
  25 }
  26
  27 diag 'Directories in @INC :';
  28 diag "  $_" for @INC;
  29
  30 my $count = $authors->count;
  31 diag "$count authors found";
  32 cmp_ok $count, '>', 0, 'there are some authors';
  33
  34 is   $authors->name('???'),      undef,         'wrong name';
  35 is   $authors->name('VPIT'),     'Vincent Pit', 'we should at least have this module';
  36 isnt $authors->name('ISHIGAKI'), undef,         'we should at least have Acme::CPANAuthors\' author';
  37 isnt $authors->name('GAAS'),     undef,         'we should at least have LWP\'s author';