5 unshift @INC, '../lib';
6 $ENV{PERL5LIB} = '../lib';
7 if ( ord("\t") != 9 ) { # skip on ebcdic platforms
8 print "1..0 # Skip utf8 tests on ebcdic platform.\n";
18 my ($got,$expect) = @_;
19 print "# expected [$expect], got [$got]\nnot " if $got ne $expect;
25 my ($got,$expect) = @_;
26 print "# expected [$expect], got [$got]\nnot " if $got ne $expect;
34 s/([\x{80}-\x{10ffff}])/"&#".ord($1).";"/eg;
39 my $rx = "\x{80}-\x{10ffff}";
40 s/([$rx])/"&#".ord($1).";"/eg;
45 my $rx = "\\x{80}-\\x{10ffff}";
46 s/([$rx])/"&#".ord($1).";"/eg;
55 $_ = "alphaNUMERICstring";
60 $_ = "alphaNUMERICstring";
65 $_ = "alphaNUMERICstring";
75 $_ = "alphaNUMERICstring";
80 $_ = "alpha123numeric456";
85 $_ = "alpha123numeric456";
90 $_ = ",123alpha,456numeric";
98 $_ = "\x{263A}>\x{263A}\x{263A}";
103 ok length((m/>(.)/)[0]), 1;
118 ok length($tmp=$&), 2;
121 ok length($tmp=$'), 1;
124 ok length($tmp=$`), 1;
127 ok length($tmp=$1), 1;
134 ok $tmp, pack("C*", ord(">"), 0342, 0230, 0272);
138 ok $tmp, pack("C*", 0342, 0230, 0272);
142 ok $tmp, pack("C*", 0342, 0230, 0272);
146 ok $tmp, pack("C*", 0342, 0230, 0272);
150 ok_bytes $&, pack("C*", ord(">"), 0342, 0230, 0272);
153 ok_bytes $', pack("C*", 0342, 0230, 0272);
156 ok_bytes $`, pack("C*", 0342, 0230, 0272);
159 ok_bytes $1, pack("C*", 0342, 0230, 0272);
169 ok length((m/>(.)/)[0]), 1;
184 ok $&, pack("C*", ord(">"), 0342);
187 ok $', pack("C*", 0230, 0272, 0342, 0230, 0272);
190 ok $`, pack("C*", 0342, 0230, 0272);
193 ok $1, pack("C*", 0342);
201 $_="\342\230\272>\342\230\272\342\230\272";
207 ok length((m/>(.)/)[0]), 1;
222 ok length($tmp=$&), 2;
225 ok length($tmp=$'), 1;
228 ok length($tmp=$`), 1;
231 ok length($tmp=$1), 1;
238 ok $tmp, pack("C*", ord(">"), 0342, 0230, 0272);
242 ok $tmp, pack("C*", 0342, 0230, 0272);
246 ok $tmp, pack("C*", 0342, 0230, 0272);
250 ok $tmp, pack("C*", 0342, 0230, 0272);
260 ok length((m/>(.)/)[0]), 1;
275 ok $&, pack("C*", ord(">"), 0342);
278 ok $', pack("C*", 0230, 0272, 0342, 0230, 0272);
281 ok $`, pack("C*", 0342, 0230, 0272);
284 ok $1, pack("C*", 0342);
289 ok "\x{ab}" =~ /^\x{ab}$/, 1;
295 ok_bytes chr(0xe2), pack("C*", 0xc3, 0xa2);