view release on metacpan or  search on metacpan

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

use strict;
use warnings;
use utf8;
binmode(STDOUT, ":utf8");
use Test::More;

use Acme::HidamariSketch;


subtest 'characters' => sub {
    my $hidamari   = Acme::HidamariSketch->new;
    my @characters = $hidamari->characters;

    ok $hidamari;
    ok @characters;
    
    subtest 'ゆの' => sub {
        is $characters[0]->{name_ja},     'ゆの';
        is $characters[0]->{name_en},     'yuno';
        is $characters[0]->{nickname},    'ゆのっち';
        is $characters[0]->{voice_by},    '阿澄 佳奈';
        is $characters[0]->{birthday},    '5/5';
        is $characters[0]->{sign},        '射手座';
        is $characters[0]->{color},       '#FFA500';
        is_deeply 
            $characters[0]->{room_number}, {
                before => undef,
                first  => 201,
                second => 201,
                third  => 201,
            }
        ;
    };
    
    subtest '宮子' => sub {
        is $characters[1]->{name_ja},     '宮子';
        is $characters[1]->{name_en},     'miyako';
        is $characters[1]->{nickname},    '宮ちゃん';
        is $characters[1]->{voice_by},    '水橋 かおり';
        is $characters[1]->{birthday},    '10/10';
        is $characters[1]->{sign},        '天秤座';
        is $characters[1]->{color},       '#FFFF00';
        is_deeply 
            $characters[1]->{room_number}, {
                before => undef,
                first  => 202,
                second => 202,
                third  => 202,
            }
        ;
    };

    subtest 'ヒロ' => sub {
        is $characters[2]->{name_ja},     'ヒロ';
        is $characters[2]->{name_en},     'hiro';
        is $characters[2]->{nickname},    'ヒロ';
        is $characters[2]->{voice_by},    '後藤 邑子';
        is $characters[2]->{birthday},    '6/15';
        is $characters[2]->{sign},        '双子座';
        is $characters[2]->{color},       '#FFC0CB';
        is_deeply 
            $characters[2]->{room_number}, {
                before => 203, 
                first  => 101,