This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Un-TODO and un-SKIP the [perl #22354] tests
authorFather Chrysostomos <sprout@cpan.org>
Sat, 4 Dec 2010 20:43:06 +0000 (12:43 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 4 Dec 2010 20:43:06 +0000 (12:43 -0800)
We can run these now that the regexp engine is re├źntrant.

t/re/pat_rt_report.t

index a40bcbe..a811d2b 100644 (file)
@@ -21,7 +21,7 @@ BEGIN {
 }
 
 
-plan tests => 2512;  # Update this when adding/deleting tests.
+plan tests => 2514;  # Update this when adding/deleting tests.
 
 run_tests() unless caller;
 
@@ -461,19 +461,8 @@ sub run_tests {
         func "standalone";
         $_ = "x"; s/x/func "in subst"/e;
         $_ = "x"; s/x/func "in multiline subst"/em;
-
-        #
-        # Next two give 'panic: malloc'.
-        # Outcommented, using two TODOs.
-        #
-        local $TODO    = 'panic: malloc';
-        local $Message = 'Postponed regexp and propaged modifier';
-      # ok 0 for 1 .. 2;
-      SKIP: {
-            skip "panic: malloc", 2;
-            $_ = "x"; /x(?{func "in regexp"})/;
-            $_ = "x"; /x(?{func "in multiline regexp"})/m;
-        }
+        $_ = "x"; /x(?{func "in regexp"})/;
+        $_ = "x"; /x(?{func "in multiline regexp"})/m;
     }