From: Sébastien Aperghis-Tramoni <sebastien@aperghis.net>
Date: Tue, 2 May 2006 01:37:03 +0000 (+0200)
Subject: -Dmad breaks a few tests
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=16d5c2f8b1cda0f138e42178a21cad8ee16e6a20;p=p5sagit%2Fp5-mst-13.2.git

-Dmad breaks a few tests
Message-Id: <64F8ECEA-D96B-11DA-AA80-000502F3279F@free.fr>

(part of, with tweaks)

p4raw-id: //depot/perl@28080
---

diff --git a/t/op/incfilter.t b/t/op/incfilter.t
index 0a5381e..0535b76 100644
--- 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 {