skip failing leak test under -Dmad

a test for a leaky regex introduced by d97935e0 leaks under MAD:
because it uses eval, and eval leaks under MAD.
So skip it in this case.

diff --git a/t/op/svleak.t b/t/op/svleak.t
index 4a92bc7..b0e72f4 100644 (file)
--- a/t/op/svleak.t
+++ b/t/op/svleak.t
@@ -13,6 +13,8 @@ BEGIN {
        or skip_all("XS::APItest not available");
 }
 
+use Config;
+
 plan tests => 22;
 
 # run some code N times. If the number of SVs at the end of loop N is
@@ -165,4 +167,8 @@ leak(2,0,sub { !$^V }, '[perl #109762] version object in boolean context');
 # [perl #114356] run-time rexexp with unchanging pattern got
 # inflated refcounts
 
-leak(2, 0, sub { eval q{ my $x = "x"; "abc" =~ /$x/ for 1..5 } }, '#114356');
+SKIP: {
+    skip "disabled under -Dmad (eval leaks)" if $Config{mad};
+    leak(2, 0, sub { eval q{ my $x = "x"; "abc" =~ /$x/ for 1..5 } }, '#114356');
+}
+