use strict;
use warnings;
use utf8;
use Test::More;
use Acme::PrettyCure::Girl::CurePeace;
my $yayoi = Acme::PrettyCure::Girl::CurePeace->new;
subtest 'random mode' => sub {
for ( 1 ..100 ) {
like $yayoi->challenge_with_jankenpon, qr/じゃんけんぽん((グー|チョキ|パー))♪ /;
}
};
subtest 'story mode' => sub {
unlike $yayoi->challenge_with_jankenpon(1), qr/じゃんけんぽん((グー|チョキ|パー))♪ /;
like $yayoi->challenge_with_jankenpon(3), qr/じゃんけんぽん(チョキ)♪ /;
like $yayoi->challenge_with_jankenpon(11), qr/じゃんけんぽん(グー)♪ /;
like $yayoi->challenge_with_jankenpon(17), qr/じゃんけんぽん(パー)♪ /;
unlike $yayoi->challenge_with_jankenpon(32), qr/じゃんけんぽん((グー|チョキ|パー))♪ /;
};
done_testing;