Extra regex tests

Message-ID: <20090215185207.gsnhhqdegckws0co@horde.wizbit.be>
Message-ID: <20090215210634.u02f15b284ogc4s4@horde.wizbit.be>

diff --git a/t/op/pat.t b/t/op/pat.t
index eb1034a..859ec00 100755 (executable)
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -13,7 +13,7 @@ sub run_tests;
 
 $| = 1;
 
-my $EXPECTED_TESTS = 3962;  # Update this when adding/deleting tests.
+my $EXPECTED_TESTS = 3965;  # Update this when adding/deleting tests.
 
 BEGIN {
     chdir 't' if -d 't';
@@ -4116,6 +4116,13 @@ sub run_tests {
        }
        iseq "@res","#1 #2";
     }
+    {
+       no warnings 'closure';
+       my $re = qr/A(??{"1"})/;
+       ok "A1B" =~ m/^((??{ $re }))((??{"B"}))$/;
+       ok $1 eq "A1";
+       ok $2 eq "B";
+    }
     #
     # This should be the last test.
     #

diff --git a/t/op/re_tests b/t/op/re_tests
index 9d353e8..f9b070d 100644 (file)
--- a/t/op/re_tests
+++ b/t/op/re_tests
@@ -1365,3 +1365,5 @@ foo(\h)bar        foo\tbar        y       $1      \t
 
 # was generating malformed utf8
 '[\x{100}\xff]'i       \x{ff}  y       $&      \x{ff}
+
+((??{ "(?:|)" }))\s    C\x20   y       -       -