use strict;
use warnings;
use utf8;
use Test::More;
use Acme::PrettyCure;
my @girls = Acme::PrettyCure->girls('AllStar');
my $output;
open my $OUT, '>', \$output;
local *STDOUT = $OUT;
for my $member (@girls) {
is $member->name, $member->human_name;
next if ref($member) =~ /Cure(Black|White|Bloom|Egret|Melody|Rhythm)/;
$member->transform;
is $member->name, $member->precure_name;
}
close($OUT);
done_testing;