view release on metacpan or  search on metacpan

t/04_soulgem.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;

use Acme::MadokaMagica;
use Test::More;

subtest 'Soulgem' => sub{
    subtest 'alone_members' => sub {
        my ($mami) = Acme::MadokaMagica->alone_members;
        is ref $mami,'Acme::MadokaMagica::TvMembers::TomoeMami';
        is $mami->color,'yellow';