X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2Fwarnings%2Fregcomp;h=49820165945a0ceaff1844d04b329679ccea5c94;hb=f2f96cd564e6a3029bcc2182ffccc4f92f518fb6;hp=ceca4410d6f5c799af9595fc04886c1524f63f8e;hpb=8a6cb2cbf33b292e9c5c2689417fb9f525f67df2;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/lib/warnings/regcomp b/t/lib/warnings/regcomp
index ceca441..4982016 100644
--- a/t/lib/warnings/regcomp
+++ b/t/lib/warnings/regcomp
@@ -20,7 +20,7 @@
   /%.127s/: Unrecognized escape \\%c passed through	[S_regatom] 
   	$x = '\m' ; /$x/
 
-  POSIX syntax [%c %c] is reserved for future extensions [S_checkposixcc] 
+  POSIX syntax [%c %c] belongs inside character classes	[S_checkposixcc] 
 
 
   Character class [:%.*s:] unknown	[S_regpposixcc]
@@ -47,15 +47,6 @@ $a =~ /(?=a)*/ ;
 EXPECT
 (?=a)* matches null string many times in regex; marked by <-- HERE in m/(?=a)* <-- HERE / at - line 4.
 ########
-# regcomp.c [S_study_chunk]
-use warnings 'regexp' ;
-$_ = "" ;
-/(?=a)?/;
-no warnings 'regexp' ;
-/(?=a)?/;
-EXPECT
-Quantifier unexpected on zero-length expression in regex; marked by <-- HERE in m/(?=a)? <-- HERE / at - line 4.
-########
 # regcomp.c [S_regatom]
 $x = '\m' ;
 use warnings 'regexp' ;
@@ -71,15 +62,12 @@ use warnings 'regexp' ;
 $_ = "" ;
 /[:alpha:]/;
 /[:zog:]/;
-/[[:zog:]]/;
 no warnings 'regexp' ;
 /[:alpha:]/;
 /[:zog:]/;
-/[[:zog:]]/;
 EXPECT
 POSIX syntax [: :] belongs inside character classes in regex; marked by <-- HERE in m/[:alpha:] <-- HERE / at - line 5.
 POSIX syntax [: :] belongs inside character classes in regex; marked by <-- HERE in m/[:zog:] <-- HERE / at - line 6.
-POSIX class [:zog:] unknown in regex; marked by <-- HERE in m/[[:zog:] <-- HERE ]/
 ########
 # regcomp.c [S_checkposixcc]
 #
@@ -90,17 +78,7 @@ no warnings 'regexp' ;
 /[.zog.]/;
 EXPECT
 POSIX syntax [. .] belongs inside character classes in regex; marked by <-- HERE in m/[.zog.] <-- HERE / at - line 5.
-POSIX syntax [. .] is reserved for future extensions in regex; marked by <-- HERE in m/[.zog.] <-- HERE /
-########
-# regcomp.c [S_checkposixcc]
-#
-use warnings 'regexp' ;
-$_ = "" ;
-/[[.zog.]]/;
-no warnings 'regexp' ;
-/[[.zog.]]/;
-EXPECT
-POSIX syntax [. .] is reserved for future extensions in regex; marked by <-- HERE in m/[[.zog.] <-- HERE ]/
+POSIX syntax [. .] is reserved for future extensions in regex; marked by <-- HERE in m/[.zog.] <-- HERE / at - line 5.
 ########
 # regcomp.c [S_regclass]
 $_ = "";
@@ -192,6 +170,7 @@ $a =~ /(?p{'x'})/ ;
 use warnings;
 no warnings 'deprecated' ;
 no warnings 'regexp' ;
+no warnings 'syntax' ;
 $a =~ /(?p{'x'})/ ;
 EXPECT
 (?p{}) is deprecated - use (??{}) in regex; marked by <-- HERE in m/(?p <-- HERE {'x'})/ at - line 4.