5 unshift @INC, '../lib';
6 $ENV{PERL5LIB} = '../lib';
14 my ($got,$expect) = @_;
15 print "# expected [$expect], got [$got]\nnot " if $got ne $expect;
22 s/([\x{80}-\x{10ffff}])/"&#".ord($1).";"/eg;
27 my $rx = "\x{80}-\x{10ffff}";
28 s/([$rx])/"&#".ord($1).";"/eg;
33 my $rx = "\\x{80}-\\x{10ffff}";
34 s/([$rx])/"&#".ord($1).";"/eg;