use strict;
use warnings;
use utf8;
use Test::More;
use t::Utils;
use Acme::PrettyCure;
my ($nozomi, $rin, $urara, $komachi, $karen) = Acme::PrettyCure->girls('Five');
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';
is_output sub { $nozomi->transform($rin, $urara, $komachi, $karen); }, <<EOS, '変身時の台詞';
大いなる希望の力、キュアドリーム!
情熱の赤い炎、キュアルージュ!
はじけるレモンの香り、キュアレモネード!
やすらぎの緑の大地、キュアミント!
知性の青き泉、キュアアクア!
希望の力と、未来の光
華麗に羽ばたく五つの心!
Yes! プリキュア5!
EOS
done_testing;