diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-23 01:29:45 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-23 01:29:45 +0000 |
| commit | b7c83a7e594640c2503df864ea898c1fad026a14 (patch) | |
| tree | bb7091e71f3cabb953ce787b13d8f4e177238ab8 /t | |
| parent | 22c54be3d94cfb3f4b06aaa5a8a1910193e54a07 (diff) | |
| download | perl-b7c83a7e594640c2503df864ea898c1fad026a14.tar.gz | |
More \X fixing.
p4raw-id: //depot/perl@13860
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/pat.t | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index 03eec49508..7a88b0466b 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -6,7 +6,7 @@ $| = 1; -print "1..786\n"; +print "1..792\n"; BEGIN { chdir 't' if -d 't'; @@ -2389,3 +2389,18 @@ print "# some Unicode properties\n"; # Before #13843 this was failing by matching falsely. print "_:$char:_" =~ m/_:$SIGMA:_/i ? "not ok 786\n" : "ok 786\n"; } + +{ + print "# \\X\n"; + + use charnames ':full'; + + print "a!" =~ /\X!/ ? "ok 787\n" : "not ok 787\n"; + print "\xDF!" =~ /\X!/ ? "ok 788\n" : "not ok 788\n"; + print "\x{100}!" =~ /\X!/ ? "ok 789\n" : "not ok 789\n"; + print "\x{100}\x{300}!" =~ /\X!/ ? "ok 790\n" : "not ok 790\n"; + print "\N{LATIN CAPITAL LETTER E}!" =~ /\X!/ ? + "ok 791\n" : "not ok 791\n"; + print "\N{LATIN CAPITAL LETTER E}\N{COMBINING GRAVE ACCENT}!" =~ /\X!/ ? + "ok 792\n" : "not ok 792\n"; +} |