view release on metacpan or  search on metacpan

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

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

use Acme::PrettyCure;

my ( $nozomi, $rin, $urara, $komachi, $karen, $kurumi )
    = Acme::PrettyCure->members('FiveGoGo');

isa_ok $nozomi,  'Acme::PrettyCure::CureDream';
isa_ok $rin,     'Acme::PrettyCure::CureRouge';
isa_ok $urara,   'Acme::PrettyCure::CureLemonade';
isa_ok $komachi, 'Acme::PrettyCure::CureMint';
isa_ok $karen,   'Acme::PrettyCure::CureAqua';
isa_ok $kurumi,  'Acme::PrettyCure::MilkyRose';

$kurumi->powerdown();

is $kurumi->name, $kurumi->fairy_name;

done_testing;