view release on metacpan or  search on metacpan

t/10_first.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;
use Test::More;
use Test::Exception;

use Acme::PrettyCure;

# skip warnings
binmode(Test::More->builder->$_, ':utf8') for qw/failure_output output todo_output/;

my ($nagi, $hono) = Acme::PrettyCure->members('First');

isa_ok $nagi, 'Acme::PrettyCure::CureBlack';
isa_ok $hono, 'Acme::PrettyCure::CureWhite';

throws_ok { $nagi->transform } qr/メポ/, '初代は単独変身不可能';
throws_ok { $nagi->transform($nagi) } qr/メポ/, 'ほのか以外とも変身は出来ない';

throws_ok { $hono->transform } qr/ミポ/, '初代は単独変身不可能';

t/10_splasstar.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;
use Test::More;
use Test::Exception;

use Acme::PrettyCure;

# skip warnings
binmode(Test::More->builder->$_, ':utf8') for qw/failure_output output todo_output/;

my ($saki, $mai) = Acme::PrettyCure->members('SplashStar');

isa_ok $saki, 'Acme::PrettyCure::CureBloom';
isa_ok $mai,  'Acme::PrettyCure::CureEgret';

throws_ok { $saki->transform } qr/ラピ/, 'SSも単独変身不可能';
throws_ok { $saki->transform($saki) } qr/ラピ/, '舞以外とも変身は出来ない';

throws_ok { $mai->transform } qr/チョピ/, '初代は単独変身不可能';