Commit | Line | Data |
f96ec2a2 |
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 $_, '>☺<'; |
24 | $test++; |
25 | |
26 | $_ = ">\x{263A}<"; |
27 | my $rx = "\x{80}-\x{10ffff}"; |
28 | s/([$rx])/"&#".ord($1).";"/eg; |
29 | ok $_, '>☺<'; |
30 | $test++; |
31 | |
32 | $_ = ">\x{263A}<"; |
33 | my $rx = "\\x{80}-\\x{10ffff}"; |
34 | s/([$rx])/"&#".ord($1).";"/eg; |
35 | ok $_, '>☺<'; |
36 | $test++; |
37 | } |