diff options
Diffstat (limited to 't/op/pat.t')
| -rwxr-xr-x | t/op/pat.t | 27 |
1 files changed, 26 insertions, 1 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index ff692d2bea..57dc2f24e1 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -6,7 +6,7 @@ $| = 1; -print "1..664\n"; +print "1..672\n"; BEGIN { chdir 't' if -d 't'; @@ -1904,3 +1904,28 @@ print "ok 663\n"; print "not " unless chr(0xfb4f) =~ /\p{InHebrew}/; # outside HebrewBlock print "ok 664\n"; +print "not " unless chr(0xb5) =~ /\p{InGreek}/; # singleton (not in a range) +print "ok 665\n"; + +print "not " unless chr(0x37a) =~ /\p{InGreek}/; # singleton +print "ok 666\n"; + +print "not " unless chr(0x386) =~ /\p{InGreek}/; # singleton +print "ok 667\n"; + +print "not " unless chr(0x387) =~ /\P{InGreek}/; # not there +print "ok 668\n"; + +print "not " unless chr(0x388) =~ /\p{InGreek}/; # range +print "ok 669\n"; + +print "not " unless chr(0x38a) =~ /\p{InGreek}/; # range +print "ok 670\n"; + +print "not " unless chr(0x38b) =~ /\P{InGreek}/; # not there +print "ok 671\n"; + +print "not " unless chr(0x38c) =~ /\p{InGreek}/; # singleton +print "ok 672\n"; + + |