CP932-R2
view release on metacpan or search on metacpan
t/1003_mbtr.t view on Meta::CPAN
# 181
sub { $_='ABCABCABC'; my $r= $_ =~ tr/AB/1/cs; $r == 3 },
sub { $_='ABCABCABC'; my $r= $_ =~ tr/AB/1/cs; $_ eq 'AB1AB1AB1' },
sub { $_='ABCABCABC'; my $r= $_ =~ tr/AB/11/cs; $r == 3 },
sub { $_='ABCABCABC'; my $r= $_ =~ tr/AB/11/cs; $_ eq 'AB1AB1AB1' },
sub { $_='ABCABCABC'; my $r= $_ =~ tr/B/1/cds; $r == 6 },
sub { $_='ABCABCABC'; my $r= $_ =~ tr/B/1/cds; $_ eq 'BBB' },
sub { $_='ABCABCABC'; my $r= $_ =~ tr/B/12/cds; $r == 6 },
sub { $_='ABCABCABC'; my $r= $_ =~ tr/B/12/cds; $_ eq 'BBB' },
sub { $_='ABCABCABC'; my $r= $_ =~ tr/BC/11/cds; $r == 3 },
sub { $_='ABCABCABC'; my $r= $_ =~ tr/BC/11/cds; $_ eq 'BCBCBC' },
# 191
sub { $_='ABCABCABC'; my $r= $_ =~ tr/BC/1/cds; $r == 3 },
sub { $_='ABCABCABC'; my $r= $_ =~ tr/BC/1/cds; $_ eq 'BCBCBC' },
sub {1},
sub {1},
sub {1},
sub {1},
sub {1},
sub {1},
sub {1},
sub {1},
#-----------------------------------------------------------------------------
# 201
sub { $_='ABCABCABC'; my $r=mbtr($_,'AB','1','cs'); $r == 3 },
sub { $_='ABCABCABC'; my $r=mbtr($_,'AB','1','cs'); $_ eq 'AB1AB1AB1' },
sub { $_='ABCABCABC'; my $r=mbtr($_,'AB','11','cs'); $r == 3 },
sub { $_='ABCABCABC'; my $r=mbtr($_,'AB','11','cs'); $_ eq 'AB1AB1AB1' },
sub { $_='ABCABCABC'; my $r=mbtr($_,'B','1','cds'); $r == 6 },
sub { $_='ABCABCABC'; my $r=mbtr($_,'B','1','cds'); $_ eq 'BBB' },
sub { $_='ABCABCABC'; my $r=mbtr($_,'B','12','cds'); $r == 6 },
sub { $_='ABCABCABC'; my $r=mbtr($_,'B','12','cds'); $_ eq 'BBB' },
sub { $_='ABCABCABC'; my $r=mbtr($_,'BC','11','cds'); $r == 3 },
sub { $_='ABCABCABC'; my $r=mbtr($_,'BC','11','cds'); $_ eq 'BCBCBC' },
# 211
sub { $_='ABCABCABC'; my $r=mbtr($_,'BC','1','cds'); $r == 3 },
sub { $_='ABCABCABC'; my $r=mbtr($_,'BC','1','cds'); $_ eq 'BCBCBC' },
sub {1},
sub {1},
sub {1},
sub {1},
sub {1},
sub {1},
sub {1},
sub {1},
#-----------------------------------------------------------------------------
# 221
t/1003_mbtr.t view on Meta::CPAN
sub { ($] < 5.014) or eval q{ $_='ABCABCABC'; my $r= $_ =~ tr/AB/1/cr; $r eq 'AB1AB1AB1' }},
sub { ($] < 5.014) or eval q{ $_='ABCABCABC'; my $r= $_ =~ tr/AB/1/cdr; $r eq 'ABABAB' }},
sub {1},
sub {1},
sub {1},
# 311
sub { ($] < 5.014) or eval q{ $_='ABCABCABC'; my $r= $_ =~ tr/AB/1/csr; $r eq 'AB1AB1AB1' }},
sub { ($] < 5.014) or eval q{ $_='ABCABCABC'; my $r= $_ =~ tr/AB/11/csr; $r eq 'AB1AB1AB1' }},
sub { ($] < 5.014) or eval q{ $_='ABCABCABC'; my $r= $_ =~ tr/B/1/cdsr; $r eq 'BBB' }},
sub { ($] < 5.014) or eval q{ $_='ABCABCABC'; my $r= $_ =~ tr/B/11/cdsr; $r eq 'BBB' }},
sub { ($] < 5.014) or eval q{ $_='ABCABCABC'; my $r= $_ =~ tr/BC/11/cdsr; $r eq 'BCBCBC' }},
sub { ($] < 5.014) or eval q{ $_='ABCABCABC'; my $r= $_ =~ tr/BC/1/cdsr; $r eq 'BCBCBC' }},
sub {1},
sub {1},
sub {1},
sub {1},
#-----------------------------------------------------------------------------
# 321
sub { $_='AAA'; my $r=mbtr($_,'A','1','cr'); $r eq 'AAA' },
sub { $_='AAA'; my $r=mbtr($_,'AA','12','cr'); $r eq 'AAA' },
sub { $_='AAA'; my $r=mbtr($_,'AAA','123','cr'); $r eq 'AAA' },
sub { $_='AAABBBCCC'; my $r=mbtr($_,'AB','12','cr'); $r eq 'AAABBB222' },
t/1003_mbtr.t view on Meta::CPAN
sub {1},
sub {1},
sub {1},
sub {1},
# 331
sub { $_='ABCABCABC'; my $r=mbtr($_,'AB','1','cdr'); $r eq 'ABABAB' },
sub { $_='ABCABCABC'; my $r=mbtr($_,'AB','1','csr'); $r eq 'AB1AB1AB1' },
sub { $_='ABCABCABC'; my $r=mbtr($_,'AB','11','csr'); $r eq 'AB1AB1AB1' },
sub { $_='ABCABCABC'; my $r=mbtr($_,'B','1','cdsr'); $r eq 'BBB' },
sub { $_='ABCABCABC'; my $r=mbtr($_,'B','11','cdsr'); $r eq 'BBB' },
sub { $_='ABCABCABC'; my $r=mbtr($_,'BC','11','cdsr'); $r eq 'BCBCBC' },
sub { $_='ABCABCABC'; my $r=mbtr($_,'BC','1','cdsr'); $r eq 'BCBCBC' },
sub {1},
sub {1},
sub {1},
#-----------------------------------------------------------------------------
# 341
sub { $_='ＡＡＡ'; my $r=mbtr($_,'Ａ','１','cr'); $r eq 'ＡＡＡ' },
sub { $_='ＡＡＡ'; my $r=mbtr($_,'ＡＡ','１２','cr'); $r eq 'ＡＡＡ' },
sub { $_='ＡＡＡ'; my $r=mbtr($_,'ＡＡＡ','１２３','cr'); $r eq 'ＡＡＡ' },
sub { $_='ＡＡＡＢＢＢＣＣＣ'; my $r=mbtr($_,'ＡＢ','１２','cr'); $r eq 'ＡＡＡＢＢＢ２２２' },
sub { $_='ＡＢＣＡＢＣＡＢＣ'; my $r=mbtr($_,'ＡＢ','１２','cr'); $r eq 'ＡＢ２ＡＢ２ＡＢ２' },
( run in 1.248 second using v1.01-cache-2.11-cpan-e1769b4cff6 )