view release on metacpan or  search on metacpan

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

use strict;
use warnings;

use Acme::MilkyHolmes;
use Test::More;
use utf8;

subtest 'members - milkyholmes', sub {
    subtest 'en', sub {
        my @milkyholmes = Acme::MilkyHolmes->members( locale => 'en' );
        is( scalar(@milkyholmes), 4);
        is( $milkyholmes[0]->name, 'Sherlock Shellingford' );
        is( $milkyholmes[1]->name, 'Nero Yuzurizaki' );
        is( $milkyholmes[2]->name, 'Hercule Barton' );
        is( $milkyholmes[3]->name, 'Cordelia Glauca' );
    };
    subtest 'default - ja', sub {
        my @milkyholmes = Acme::MilkyHolmes->members();
        is( scalar(@milkyholmes), 4);
        is( $milkyholmes[0]->name, 'シャーロック・シェリンフォード' );
        is( $milkyholmes[1]->name, '譲崎 ネロ' );
        is( $milkyholmes[2]->name, 'エルキュール・バートン' );
        is( $milkyholmes[3]->name, 'コーデリア・グラウカ' );
    };
};

subtest 'members_of - milkyholmes', sub {
    subtest 'en', sub {
        my @milkyholmes = Acme::MilkyHolmes->members_of($Acme::MilkyHolmes::MilkyHolmes, locale => 'en' );
        is( scalar(@milkyholmes), 4);
        is( $milkyholmes[0]->name, 'Sherlock Shellingford' );
        is( $milkyholmes[1]->name, 'Nero Yuzurizaki' );
        is( $milkyholmes[2]->name, 'Hercule Barton' );
        is( $milkyholmes[3]->name, 'Cordelia Glauca' );
    };
    subtest 'default - ja', sub {
        my @milkyholmes = Acme::MilkyHolmes->members_of($Acme::MilkyHolmes::MilkyHolmes);
        is( scalar(@milkyholmes), 4);
        is( $milkyholmes[0]->name, 'シャーロック・シェリンフォード' );
        is( $milkyholmes[1]->name, '譲崎 ネロ' );
        is( $milkyholmes[2]->name, 'エルキュール・バートン' );
        is( $milkyholmes[3]->name, 'コーデリア・グラウカ' );
    };
};

subtest 'members_of - feathers', sub {
    subtest 'en', sub {
        my @members = Acme::MilkyHolmes->members_of($Acme::MilkyHolmes::MilkyHolmesFeathers, locale => 'en' );
        is( scalar(@members), 2);
        is( $members[0]->name, 'Kazumi Tokiwa' );
        is( $members[1]->name, 'Alice Myojingawa' );
    };
    subtest 'default - ja', sub {
        my @members = Acme::MilkyHolmes->members_of($Acme::MilkyHolmes::MilkyHolmesFeathers);
        is( scalar(@members), 2);
        is( $members[0]->name, '常盤 カズミ' );
        is( $members[1]->name, '明神川 アリス' );
    };
};

subtest 'members_of - milkyholmes sisters', sub {
    subtest 'en', sub {
        my @members = Acme::MilkyHolmes->members_of($Acme::MilkyHolmes::MilkyHolmesSisters, locale => 'en' );
        is( scalar(@members), 6);
        is( $members[0]->name, 'Sherlock Shellingford' );
        is( $members[1]->name, 'Nero Yuzurizaki' );