Regex tests from Chicheng Zhang. (Already fixed.)

p4raw-id: //depot/perl@9291

diff --git a/t/op/re_tests b/t/op/re_tests
index 6477d67..6406fcd 100644 (file)
--- a/t/op/re_tests
+++ b/t/op/re_tests
@@ -784,3 +784,6 @@ tt+$        xxxtt   y       -       -
 \((\w\. \w+)\) cd. (A. Tw)     y       -$1-    -A. Tw-
 ((?:aaaa|bbbb)cccc)?   aaaacccc        y       -       -
 ((?:aaaa|bbbb)cccc)?   bbbbcccc        y       -       -
+(a)?(a)+       a       y       $1:$2   :a      -
+(ab)?(ab)+     ab      y       $1:$2   :ab     -
+(abc)?(abc)+   abc     y       $1:$2   :abc    -