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

use Acme::PrettyCure;

my ($miyuki, $akane, $yayoi, $nao, $reika) = Acme::PrettyCure->girls('Smile');

isa_ok $miyuki,  'Acme::PrettyCure::Girl::CureHappy';
isa_ok $akane,   'Acme::PrettyCure::Girl::CureSunny';
isa_ok $yayoi,   'Acme::PrettyCure::Girl::CurePeace';
isa_ok $nao,     'Acme::PrettyCure::Girl::CureMarch';
isa_ok $reika,   'Acme::PrettyCure::Girl::CureBeauty';

is_output sub { $miyuki->transform($akane, $yayoi, $nao, $reika); }, <<EOS, '変身時の台詞';
キラキラ輝く未来の光! キュアハッピー!
太陽サンサン熱血パワー! キュアサニー!
ピカピカぴかりんじゃんけんぽん♪ キュアピース!
勇気リンリン直球勝負! キュアマーチ!
しんしんと降りつもる清き心! キュアビューティ!
五つの心が導く未来!
輝け! スマイルプリキュア!
EOS

done_testing;