Re: [PATCH] optimize /[x]/ to /x/.

Message-ID: <9b18b3110605211032n5035d2cfne703514d8271e181@mail.gmail.com>

New tests.

p4raw-id: //depot/perl@28269

diff --git a/t/op/re_tests b/t/op/re_tests
index 8c8beb1..03afa19 100644 (file)
--- a/t/op/re_tests
+++ b/t/op/re_tests
@@ -70,6 +70,11 @@ a.*c axyzc   y       $&      axyzc
 a.*c   axyzd   n       -       -
 a[bc]d abc     n       -       -
 a[bc]d abd     y       $&      abd
+a[b]d  abd     y       $&      abd
+[a][b][d]      abd     y       $&      abd
+.[b].  abd     y       $&      abd
+.[b].  aBd     n       -       -
+(?i:.[b].)     abd     y       $&      abd
 a[b-d]e        abd     n       -       -
 a[b-d]e        ace     y       $&      ace
 a[b-d] aac     y       $&      ac