diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-19 03:25:44 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-19 03:25:44 +0000 |
| commit | 71d929cb3e130a6486f59d4312ce76d7d6eea647 (patch) | |
| tree | 52e6aee3f2b3d3e50f5a382cf6273d07f312d34b /t/op/pat.t | |
| parent | 98fcdafd2e635d40117369e89e87427df39b6eff (diff) | |
| download | perl-71d929cb3e130a6486f59d4312ce76d7d6eea647.tar.gz | |
Unicode categories continue:
implement Category=, Script=, Block=
(these are based on an upcoming update of TR#18)
Fix a bug where we got two In categories named "old italic",
and another where shortcut for the Is categories wasn't taken.
p4raw-id: //depot/perl@12500
Diffstat (limited to 't/op/pat.t')
| -rwxr-xr-x | t/op/pat.t | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index 0f978d106b..66179212b2 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -6,7 +6,7 @@ $| = 1; -print "1..747\n"; +print "1..750\n"; BEGIN { chdir 't' if -d 't'; @@ -2243,3 +2243,15 @@ print "# some Unicode properties\n"; print "not " unless "\x{AC00}" =~ /\p{HangulSyllable}/; print "ok 747\n"; } + +{ + print "not " unless "\x{0100}" =~ /\p{Script=Latin}/; + print "ok 748\n"; + + print "not " unless "\x{0100}" =~ /\p{Block=LatinExtendedA}/; + print "ok 749\n"; + + print "not " unless "\x{0100}" =~ /\p{Category=UppercaseLetter}/; + print "ok 750\n"; +} + |