add some tests for Perl #71922
authorYves Orton <demerphq@gmail.com>
Thu, 20 Jun 2013 19:51:48 +0000 (21:51 +0200)
committerYves Orton <demerphq@gmail.com>
Thu, 20 Jun 2013 19:52:13 +0000 (21:52 +0200)
Apparently this is fixed now. But add tests

t/re/re_tests

index de7d590..0e7d8d3 100644 (file)
@@ -1747,4 +1747,11 @@ m?^xy\?$?        xy?     y       $&      xy?
 /(a|(bc)){0,0}+xyz/    xyz     y       $&      xyz
 /( a | ( bc ) ) {0,0} + xyz/x  xyz     y       $&      xyz
 
 /(a|(bc)){0,0}+xyz/    xyz     y       $&      xyz
 /( a | ( bc ) ) {0,0} + xyz/x  xyz     y       $&      xyz
 
+(A(*PRUNE)B|A(*PRUNE)C)        AC      n       -       -
+(A(*PRUNE)B|A(*PRUNE)D|A(*PRUNE)C)     AC      n       -       -
+(A(*PRUNE)B|A(*PRUNE)C|A(*PRUNE)D)     AC      n       -       -
+((A(*PRUNE)B|A(*PRUNE)C))      AC      n       -       -
+((A(*PRUNE)B|A(*PRUNE)D|A(*PRUNE)C))   AC      n       -       -
+((A(*PRUNE)B|A(*PRUNE)C|A(*PRUNE)D))   AC      n       -       -
+
 # vim: softtabstop=0 noexpandtab
 # vim: softtabstop=0 noexpandtab