t/10-base.t

   1 #!perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 1;
   7
   8 use Acme::CPANAuthors;
   9
  10 my $authors = eval { Acme::CPANAuthors->new("You're_using") };
  11
  12 SKIP: {
  13  skip $@ => 1 unless defined $authors;
  14
  15  my $count = $authors->count;
  16  diag "$count authors found";
  17  cmp_ok $count, '>', 0, 'there are some authors';
  18 }