view release on metacpan or  search on metacpan

t/01-misc.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use Acme::CPANAuthors;

use Test::More tests => 2;

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

# TEST
is( $authors->count, 19, 'number of authors' );

# TEST
is_deeply(
    [ sort $authors->id ],
    [
        qw(
            AMOSS
            EILARA
            FELIXL
            GENIE
            ISAAC
            MIGO
            NUFFIN
            PETERG
            PRILUSKYJ
            RAZINF
            REUVEN
            ROMM
            SCHOP
            SEMUELF
            SHLOMIF
            SHLOMOY
            SMALYSHEV
            SZABGAB
            YOSEFM
            )
    ],
    'Author IDs'
);