This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
skip re_eval leak test under -Dmad
authorDavid Mitchell <davem@iabyn.com>
Tue, 6 Mar 2012 21:31:06 +0000 (21:31 +0000)
committerDavid Mitchell <davem@iabyn.com>
Wed, 13 Jun 2012 12:32:49 +0000 (13:32 +0100)
Under MAD, eval CVs are explicitly not freed, so the leak test
can't succeed.

t/re/pat_re_eval.t

index a650b6a..64d4c6a 100644 (file)
@@ -6,6 +6,7 @@
 
 use strict;
 use warnings;
+use Config;
 use 5.010;
 
 
@@ -593,7 +594,10 @@ sub run_tests {
 
        # and make sure things are freed at the right time
 
-       {
+        SKIP: {
+            if ($Config{mad}) {
+                skip "MAD doesn't free eval CVs", 3;
+           }
 
            {
                sub Foo99::DESTROY { $Foo99::d++ }