A little bit better error message for \pq, still

not good because the script context is not shown.

p4raw-id: //depot/perl@15581

1 files changed, 14 insertions, 1 deletions

diff --git a/t/op/pat.t b/t/op/pat.t
index 2c897cf337..82749a077a 100755
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -6,7 +6,7 @@
 
 $| = 1;
 
-print "1..903\n";
+print "1..908\n";
 
 BEGIN {
     chdir 't' if -d 't';
@@ -2778,6 +2778,7 @@ print "# some Unicode properties\n";
     # This is not really a regex test but regexes bring
     # out the issue nicely.
     use strict;
+    my $test = 893;
     my $u3 = "f\x{df}\x{100}";
     my $u2 = substr($u3,0,2);
     my $u1 = substr($u2,0,1);
@@ -2804,6 +2805,7 @@ print "# some Unicode properties\n";
 
 {
     print "# qr/.../x\n";
+    my $test = 904;
 
     my $R = qr/ A B C # D E/x;
 
@@ -2816,3 +2818,14 @@ print "# some Unicode properties\n";
     print eval {"ABCDE" =~ m/($R)/} ? "ok $test\n" : "not ok $test\n";
     $test++;
 }
+
+{
+    print "# illegal Unicode properties\n";
+    my $test = 907;
+
+    print eval { "a" =~ /\pq / }      ? "not ok $test\n" : "ok $test\n";
+    $test++;
+
+    print eval { "a" =~ /\p{qrst} / } ? "not ok $test\n" : "ok $test\n";
+    $test++;
+}