# This file is encoded in Char::GB18030.
die "This file is not encoded in Char::GB18030.\n" if q{ } ne "\x82\xa0";
use Char::GB18030;
print "1..8\n";
my $__FILE__ = __FILE__;
# /g ȵÌXJ[ReLXg
$success = "A\A" =~ /\/;
if ($success) {
print qq{ok - 1 "A\A" =~ /\/ $^X $__FILE__\n};
}
else {
print qq{not ok - 1 "A\A" =~ /\/ $^X $__FILE__\n};
}
# /g ȵÌXgReLXg
if (($c1,$c2,$c3,$c4) = "TVXZ\^`ceg" =~ /^...(.)(.)(.)(.)...$/) {
if ("($c1)($c2)($c3)($c4)" eq "(Z)(\)(^)(`)") {
print qq{ok - 2 "TVXZ\^`ceg" =~ /^...(.)(.)(.)(.)...\$/ $^X $__FILE__\n};
}
else {
print qq{not ok - 2 "TVXZ\^`ceg" =~ /^...(.)(.)(.)(.)...\$/ ($c1)($c2)($c3)($c4) $^X $__FILE__\n};
}
}
else {
print qq{not ok - 2 "TVXZ\^`ceg" =~ /^...(.)(.)(.)(.)...\$/ ($c1)($c2)($c3)($c4) $^X $__FILE__\n};
}
# /g èÌXgReLXg
@c = "TVXZ\^`ceg" =~ /./g;
if (@c) {
$c = join '', map {"($_)"} @c;
if ($c eq "(T)(V)(X)(Z)(\)(^)(`)(c)(e)(g)") {
print qq{ok - 3 \@c = "TVXZ\^`ceg" =~ /./g $^X $__FILE__\n};
}
else {
print qq{not ok - 3 \@c = "TVXZ\^`ceg" =~ /./g $^X $__FILE__\n};
}
}
else {
print qq{not ok - 3 \@c = "TVXZ\^`ceg" =~ /./g $^X $__FILE__\n};
}
# /g èÌXJ[ReLXg
@c = ();
while ("TVXZ\^`ceg" =~ /(..)/g) {
push @c, $1;
}
$c = join '', map {"($_)"} @c;
if ($c eq "(TV)(XZ)(\^)(`c)(eg)") {
print qq{ok - 4 while ("TVXZ\^`ceg" =~ /(..)/g) { } $^X $__FILE__\n};
}
else {
print qq{not ok - 4 while ("TVXZ\^`ceg" =~ /(..)/g) { } $^X $__FILE__\n};
}
#---
# /g ȵÌXJ[ReLXg
$success = "A\A" =~ m/\/;
if ($success) {
print qq{ok - 5 "A\A" =~ m/\/ $^X $__FILE__\n};
}
else {
print qq{not ok - 5 "A\A" =~ m/\/ $^X $__FILE__\n};
}
# /g ȵÌXgReLXg
if (($c1,$c2,$c3,$c4) = "TVXZ\^`ceg" =~ m/^...(.)(.)(.)(.)...$/) {
if ("($c1)($c2)($c3)($c4)" eq "(Z)(\)(^)(`)") {
print qq{ok - 6 "TVXZ\^`ceg" =~ m/^...(.)(.)(.)(.)...\$/ $^X $__FILE__\n};
}
else {
print qq{not ok - 6 "TVXZ\^`ceg" =~ m/^...(.)(.)(.)(.)...\$/ $^X $__FILE__\n};
}
}
else {
print qq{not ok - 6 "TVXZ\^`ceg" =~ m/^...(.)(.)(.)(.)...\$/ $^X $__FILE__\n};
}
# /g èÌXgReLXg
@c = "TVXZ\^`ceg" =~ m/./g;
if (@c) {
$c = join '', map {"($_)"} @c;
if ($c eq "(T)(V)(X)(Z)(\)(^)(`)(c)(e)(g)") {
print qq{ok - 7 \@c = "TVXZ\^`ceg" =~ m/./g $^X $__FILE__\n};
}
else {
print qq{not ok - 7 \@c = "TVXZ\^`ceg" =~ m/./g $^X $__FILE__\n};
}
}
else {
print qq{not ok - 7 \@c = "TVXZ\^`ceg" =~ m/./g $^X $__FILE__\n};
}
# /g èÌXJ[ReLXg
@c = ();
while ("TVXZ\^`ceg" =~ m/(..)/g) {
push @c, $1;
}
$c = join '', map {"($_)"} @c;
if ($c eq "(TV)(XZ)(\^)(`c)(eg)") {
print qq{ok - 8 while ("TVXZ\^`ceg" =~ m/(..)/g) { } $^X $__FILE__\n};
}
else {
print qq{not ok - 8 while ("TVXZ\^`ceg" =~ m/(..)/g) { } $^X $__FILE__\n};
}
__END__