diff options
Diffstat (limited to 't/lib/warnings/regcomp')
| -rw-r--r-- | t/lib/warnings/regcomp | 23 |
1 files changed, 22 insertions, 1 deletions
diff --git a/t/lib/warnings/regcomp b/t/lib/warnings/regcomp index 044e02f2a6..af8c06bf5c 100644 --- a/t/lib/warnings/regcomp +++ b/t/lib/warnings/regcomp @@ -1,6 +1,6 @@ regcomp.c These tests have been moved to t/re/reg_mesg.t except for those that explicitly test line numbers - and those that don't have a <-- HERE in them. + and those that don't have a <-- HERE in them, and those that die plus have warnings __END__ use warnings 'regexp'; @@ -52,3 +52,24 @@ no warnings 'utf8'; qr/abc[fi[.00./i; EXPECT Unmatched [ in regex; marked by <-- HERE in m/abc[ <-- HERE fi[.00./ at - line 4. +######## +# NAME perl qr/(?[[[:word]]])/ XXX Why is 'syntax' lc? +# OPTION fatal +qr/(?[[[:word]]])/; +EXPECT +Assuming NOT a POSIX class since there is no terminating ':' in regex; marked by <-- HERE in m/(?[[[:word <-- HERE ]]])/ at - line 2. +syntax error in (?[...]) in regex m/(?[[[:word]]])/ at - line 2. +######## +# NAME qr/(?[ [[:digit: ])/ +# OPTION fatal +qr/(?[[[:digit: ])/; +EXPECT +Assuming NOT a POSIX class since no blanks are allowed in one in regex; marked by <-- HERE in m/(?[[[:digit: ] <-- HERE )/ at - line 2. +syntax error in (?[...]) in regex m/(?[[[:digit: ])/ at - line 2. +######## +# NAME qr/(?[ [:digit: ])/ +# OPTION fatal +qr/(?[[:digit: ])/ +EXPECT +Assuming NOT a POSIX class since no blanks are allowed in one in regex; marked by <-- HERE in m/(?[[:digit: ] <-- HERE )/ at - line 2. +syntax error in (?[...]) in regex m/(?[[:digit: ])/ at - line 2. |