t/pragma/utf8.t

   1 #!./perl
   2
   3 BEGIN {
   4     chdir 't' if -d 't';
   5     unshift @INC, '../lib';
   6     $ENV{PERL5LIB} = '../lib';
   7 }
   8
   9 print "1..3\n";
  10
  11 my $test = 1;
  12
  13 sub ok {
  14     my ($got,$expect) = @_;
  15     print "# expected [$expect], got [$got]\nnot " if $got ne $expect;
  16     print "ok $test\n";
  17 }
  18
  19 {
  20     use utf8;
  21     $_ = ">\x{263A}<";
  22     s/([\x{80}-\x{10ffff}])/"&#".ord($1).";"/eg;
  23     ok $_, '>&#9786;<';
  24     $test++;
  25
  26     $_ = ">\x{263A}<";
  27     my $rx = "\x{80}-\x{10ffff}";
  28     s/([$rx])/"&#".ord($1).";"/eg;
  29     ok $_, '>&#9786;<';
  30     $test++;
  31
  32     $_ = ">\x{263A}<";
  33     my $rx = "\\x{80}-\\x{10ffff}";
  34     s/([$rx])/"&#".ord($1).";"/eg;
  35     ok $_, '>&#9786;<';
  36     $test++;
  37 }