use strict;
use warnings;
use utf8;
use Test::More;
use Acme::PrettyCure;
my ( $nozomi, $rin, $urara, $komachi, $karen, $kurumi )
= Acme::PrettyCure->girls('FiveGoGo');
isa_ok $nozomi, 'Acme::PrettyCure::Girl::CureDream';
isa_ok $rin, 'Acme::PrettyCure::Girl::CureRouge';
isa_ok $urara, 'Acme::PrettyCure::Girl::CureLemonade';
isa_ok $komachi, 'Acme::PrettyCure::Girl::CureMint';
isa_ok $karen, 'Acme::PrettyCure::Girl::CureAqua';
isa_ok $kurumi, 'Acme::PrettyCure::Girl::MilkyRose';
$kurumi->powerdown();
is $kurumi->name, $kurumi->fairy_name;
done_testing;