view release on metacpan or  search on metacpan

t/10_allstar.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;
use Test::More;

use Acme::PrettyCure;

my @members = Acme::PrettyCure->members('AllStar');

is scalar(@members), 19, 'pretty cure allstar';

my @dx1 = Acme::PrettyCure->members('AllStarDX1');

is scalar(@dx1), 14, 'pretty cure allstar_dx1';

my @dx2 = Acme::PrettyCure->members('AllStarDX2');

is scalar(@dx2), 17, 'pretty cure allstar_dx2';

done_testing;