view release on metacpan or  search on metacpan

t/01_characters.t  view on Meta::CPAN

use strict;
use warnings;
use Acme::PriPara;
use Acme::PriPara::MainMembers::ManakaLaara;
use Acme::PriPara::MainMembers::MinamiMirei;
use Acme::PriPara::MainMembers::HojoSophy;
use Acme::PriPara::MainMembers::TodoSion;
use Acme::PriPara::MainMembers::DorothyWest;
use Acme::PriPara::MainMembers::ReonaWest;
use Test::More;
use utf8;

subtest 'Charactors' => sub {
    subtest 'Laara' => sub {
        my $laara = Acme::PriPara::MainMembers::ManakaLaara->new;
        ok ! $laara->has_pripara_changed, 'initially not pripara-changed';
        is $laara->name,          '真中 らぁら';
        is $laara->firstname,     'らぁら';
        is $laara->lastname,      '真中';
        is $laara->age,            10;
        is $laara->birthday,      '11/20';
        is $laara->blood_type,    'O';
        is $laara->cv,            '茜屋日海夏';
        is $laara->voiced_by,     '茜屋日海夏';
        is $laara->say,            'かしこま！';
        is $laara->costume_brand,  undef;    # withiout PriPara Changing, you cannot get costume_brand.
        is $laara->color,          undef, 'color returns only if pripara-changed';

        $laara->pripara_change;
        ok $laara->has_pripara_changed;
        is $laara->costume_brand, 'Twinkle Ribbon';
        is $laara->color,         'ピンク', 'color returns only if pripara-changed';
    };

    subtest 'Mirei' => sub {
        my $mirei = Acme::PriPara::MainMembers::MinamiMirei->new;
        ok ! $mirei->has_pripara_changed, 'initially not pripara-changed';
        is $mirei->name,          '南 みれぃ';
        is $mirei->firstname,     'みれぃ';
        is $mirei->lastname,      '南';
        is $mirei->age,            13;
        is $mirei->birthday,      '10/1';
        is $mirei->blood_type,    'A';
        is $mirei->cv,            '芹澤優';
        is $mirei->voiced_by,     '芹澤優';
        is $mirei->costume_brand,  undef;
        is $mirei->color,          undef, 'color returns only if pripara-changed';

        $mirei->pripara_change;
        ok $mirei->has_pripara_changed;
        is $mirei->costume_brand, 'Candy à la Mode';
        is $mirei->color,         'ライトブルー', 'color returns only if pripara-changed';
        is $mirei->say,           'ぷり';
    };

    subtest 'Sophy' => sub {
        my $sophy = Acme::PriPara::MainMembers::HojoSophy->new;
        ok ! $sophy->has_pripara_changed, 'initially not pripara-changed';
        is $sophy->name,          '北条 そふぃ';
        is $sophy->firstname,     'そふぃ';
        is $sophy->lastname,      '北条';
        is $sophy->age,            14;
        is $sophy->birthday,      '7/30';
        is $sophy->blood_type,    'AB';
        is $sophy->cv,            '久保田未夢';
        is $sophy->voiced_by,     '久保田未夢';
        is $sophy->costume_brand,  undef;
        is $sophy->color,          undef, 'color returns only if pripara-changed';
        is $sophy->say,            'ぷしゅ〜';

        $sophy->pripara_change;    # Sophy attempt to enter the PriPara World...