view release on metacpan or  search on metacpan

t/Acme-CPANAuthors-Slovak/06-id.t  view on Meta::CPAN

use strict;
use warnings;

use Acme::CPANAuthors;
use Test::More 'tests' => 2;
use Test::NoWarnings;

# Test.
my $obj = Acme::CPANAuthors->new('Slovak');
my @ret = $obj->id;
my @right_ret = ('BARNEY', 'JKUTEJ', 'KOZO', 'LKUNDRAK', 'PALI', 'SAMSK');
is_deeply(\@ret, \@right_ret, 'CPAN authors ids.');