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 | |
b8c5462f |
9 | print "1..9\n"; |
f96ec2a2 |
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++; |
b8c5462f |
37 | |
38 | $_ = "alpha,numeric"; |
39 | m/([[:alpha:]]+)/; |
40 | ok $1, 'alpha'; |
41 | $test++; |
42 | |
43 | $_ = "alphaNUMERICstring"; |
44 | m/([[:^lower:]]+)/; |
45 | ok $1, 'NUMERIC'; |
46 | $test++; |
47 | |
48 | $_ = "alphaNUMERICstring"; |
49 | m/(\p{Ll}+)/; |
50 | ok $1, 'alpha'; |
51 | $test++; |
52 | |
53 | $_ = "alphaNUMERICstring"; |
54 | m/(\p{Lu}+)/; |
55 | ok $1, 'NUMERIC'; |
56 | $test++; |
57 | |
58 | $_ = "alpha,numeric"; |
59 | m/([\p{IsAlpha}]+)/; |
60 | ok $1, 'alpha'; |
61 | $test++; |
62 | |
63 | $_ = "alphaNUMERICstring"; |
64 | m/([^\p{IsLower}]+)/; |
65 | ok $1, 'NUMERIC'; |
66 | $test++; |
67 | |
f96ec2a2 |
68 | } |
b8c5462f |
69 | |
70 | |