1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
#!/usr/bin/perl
#
#
#
use strict;
use Jcode;
BEGIN {
if ($] < 5.008001){
print "1..0 # Skip: Perl 5.8.1 or later required\n";
exit 0;
}
require Test::More;
Test::More->import(tests => 7);
}
my $str = 'ʡҤ餬ʤäString';
my $re_hira = "([-]+)";
my $j = jcode($str, 'euc');
my ($match) = $j->m($re_hira);
is($match, "Ҥ餬ʤ", qq(m//));
$j->s("","Ҳ̾");
$j->s("Ҥ餬","ʿ̾");
is("$j", "Ҳ̾ʿ̾äString", "s///");
local($SIG{__WARN__}) = sub{}; # suppress eval error
my $p = __PACKAGE__;
our ($M_FLAG, $S_FLAG) = (0, 0);
$j->m("/);\$$p\:\:M_FLAG+=1;(/", "");
$j->m("", ");\$$p\:\:M_FLAG+=2;(");
$j->s("//);\$$p\:\:S_FLAG+=1;(s/", "", "");
$j->s("", "/);\$$p\:\:S_FLAG+=2;(/", "");
$j->s("", "", ");\$$p\:\:S_FLAG+=4;(");
is($M_FLAG & 1, 0, "m// pattern escape test");
is($M_FLAG & 2, 0, "m// flag escape test");
is($S_FLAG & 1, 0, "s/// pattern escape test");
is($S_FLAG & 2, 0, "s/// replace escape test");
is($S_FLAG & 4, 0, "s/// flag escape test");
__END__
|
