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

[p5sagit/p5-mst-13.2.git] / t / op / incfilter.t

diff --git a/t/op/incfilter.t b/t/op/incfilter.t
index 0a5381e..0535b76 100644 (file)
--- a/t/op/incfilter.t
+++ b/t/op/incfilter.t
@@ -12,6 +12,7 @@ BEGIN {
     require "test.pl";
 }
 use strict;
+use Config;
 use Filter::Util::Call;
 
 plan(tests => 141);
@@ -156,7 +157,10 @@ BEGIN {prepend_block_counting_filter};
 pas("SSS make s fast SSS");
 EOC
 
-do [$fh, sub {s/s/ss/gs; s/([\nS])/$1$1$1/gs; return;}] or die;
+TODO: {
+    todo_skip "disabled under -Dmad", 50 if $Config{mad};
+    do [$fh, sub {s/s/ss/gs; s/([\nS])/$1$1$1/gs; return;}] or die;
+}
 
 sub prepend_line_counting_filter {
     filter_add(sub {