view release on metacpan or  search on metacpan

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

#!perl -T

use strict;
use warnings;
use Test::More tests => 1;
use Acme::CPANAuthors;
use Acme::CPANAuthors::Chinese;

my $authors = Acme::CPANAuthors->new('Chinese');
my @ids      = $authors->id;
ok(grep { $_ eq 'FAYLAND' } @ids);

1;