diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-08 19:21:56 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-08 19:21:56 +0000 |
| commit | a72deede5275fd576481e74da7ab7f9a7ef046ad (patch) | |
| tree | 3fab8efed29bf2fb291110eb9038975f7abfde1a /t | |
| parent | e67aeab17662a70a2316911b8ee5b43fdf6f7241 (diff) | |
| download | perl-a72deede5275fd576481e74da7ab7f9a7ef046ad.tar.gz | |
More \p{In...} testing, combined with \N{...}.
p4raw-id: //depot/perl@10481
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/pat.t | 24 |
1 files changed, 23 insertions, 1 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index ab4226ca21..c59e31f87f 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -6,7 +6,7 @@ $| = 1; -print "1..625\n"; +print "1..630\n"; BEGIN { chdir 't' if -d 't'; @@ -1743,3 +1743,25 @@ EOT print "not " if $w !~ /^Useless \(\?o\).*\nUseless \(\?g\).*\nUseless \(\?c\)/; print "ok 625\n"; } + +# More Unicode "class" tests + +{ + use charnames ':full'; + + print "not " unless "\N{LATIN CAPITAL LETTER A}" =~ /\p{InBasicLatin}/; + print "ok 626\n"; + + print "not " unless "\N{LATIN CAPITAL LETTER A WITH GRAVE}" =~ /\p{InLatin1Supplement}/; + print "ok 627\n"; + + print "not " unless "\N{LATIN CAPITAL LETTER A WITH MACRON}" =~ /\p{InLatinExtendedA}/; + print "ok 628\n"; + + print "not " unless "\N{LATIN SMALL LETTER B WITH STROKE}" =~ /\p{InLatinExtendedB}/; + print "ok 629\n"; + + print "not " unless "\N{KATAKANA LETTER SMALL A}" =~ /\p{InKatakana}/; + print "ok 630\n"; +} + |