view release on metacpan or  search on metacpan

t/000_basic.t  view on Meta::CPAN

use Test::More 0.88;
use Acme::CPANAuthors;

our $r = eval "require Test::NoWarnings; 1";

BEGIN {
    use_ok ('Acme::CPANAuthors::Booking') or
        BAIL_OUT ("Loading of 'Acme-CPANAuthors-Booking' failed");
}

ok defined $Acme::CPANAuthors::Booking::VERSION, "VERSION is set";

my $authors = Acme::CPANAuthors -> new ('Booking');

ok $authors, 'Got $authors';

ok $authors -> count, "There are authors";
my @ids = $authors -> id;
ok scalar @ids, "There are ids";
ok $authors -> name ("BOOK"), "Find a name";