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;
26 s/([\x{80}-\x{10ffff}])/"&#".ord($1).";"/eg;
31 my $rx = "\x{80}-\x{10ffff}";
32 s/([$rx])/"&#".ord($1).";"/eg;
37 my $rx = "\\x{80}-\\x{10ffff}";
38 s/([$rx])/"&#".ord($1).";"/eg;
47 $_ = "alphaNUMERICstring";
52 $_ = "alphaNUMERICstring";
57 $_ = "alphaNUMERICstring";
67 $_ = "alphaNUMERICstring";
72 $_ = "alpha123numeric456";
77 $_ = "alpha123numeric456";
82 $_ = ",123alpha,456numeric";
90 $_ = "\x{263A}>\x{263A}\x{263A}";
95 ok length((m/>(.)/)[0]), 1;
110 ok length($tmp=$&), 2;
113 ok length($tmp=$'), 1;
116 ok length($tmp=$`), 1;
119 ok length($tmp=$1), 1;
126 ok $tmp, pack("C*", ord(">"), 0342, 0230, 0272);
130 ok $tmp, pack("C*", 0342, 0230, 0272);
134 ok $tmp, pack("C*", 0342, 0230, 0272);
138 ok $tmp, pack("C*", 0342, 0230, 0272);
149 ok length((m/>(.)/)[0]), 1;
164 ok $&, pack("C*", ord(">"), 0342);
167 ok $', pack("C*", 0230, 0272, 0342, 0230, 0272);
170 ok $`, pack("C*", 0342, 0230, 0272);
173 ok $1, pack("C*", 0342);
181 $_="\342\230\272>\342\230\272\342\230\272";
187 ok length((m/>(.)/)[0]), 1;
202 ok length($tmp=$&), 2;
205 ok length($tmp=$'), 1;
208 ok length($tmp=$`), 1;
211 ok length($tmp=$1), 1;
218 ok $tmp, pack("C*", ord(">"), 0342, 0230, 0272);
222 ok $tmp, pack("C*", 0342, 0230, 0272);
226 ok $tmp, pack("C*", 0342, 0230, 0272);
230 ok $tmp, pack("C*", 0342, 0230, 0272);
240 ok length((m/>(.)/)[0]), 1;
255 ok $&, pack("C*", ord(">"), 0342);
258 ok $', pack("C*", 0230, 0272, 0342, 0230, 0272);
261 ok $`, pack("C*", 0342, 0230, 0272);
264 ok $1, pack("C*", 0342);