1 files changed, 13 insertions, 0 deletions
diff --git a/tests/filename-lineno.pl b/tests/filename-lineno.pl
index be927ef4..82b48cd8 100755
--- a/tests/filename-lineno.pl
+++ b/tests/filename-lineno.pl
@@ -97,6 +97,19 @@ my @Tests =
    ['invalid-re-G-star-paren', '-G "a.*\\)"', {EXIT=>2},
     {ERR => "$prog: Unmatched ) or \\)\n"},
    ],
+   ['invalid-re-P-paren', '-P ")"', {EXIT=>2},
+    {ERR => $ENV{PCRE_WORKS} == 1
+       ? "$prog: unmatched parentheses\n"
+       : "Perl matching not supported in a --disable-perl-regexp build\n"
+    },
+   ],
+   ['invalid-re-P-star-paren', '-P "a.*)"', {EXIT=>2},
+    {ERR => $ENV{PCRE_WORKS} == 1
+       ? "$prog: unmatched parentheses\n"
+       : "Perl matching not supported in a --disable-perl-regexp build\n"
+    },
+   ],
+
   );
 
 my $save_temps = $ENV{DEBUG};