This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
-Dmad breaks a few tests
authorS├ębastien Aperghis-Tramoni <sebastien@aperghis.net>
Tue, 2 May 2006 01:37:03 +0000 (03:37 +0200)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 3 May 2006 16:09:48 +0000 (16:09 +0000)
Message-Id: <64F8ECEA-D96B-11DA-AA80-000502F3279F@free.fr>

(part of, with tweaks)

p4raw-id: //depot/perl@28080

t/op/incfilter.t

index 0a5381e..0535b76 100644 (file)
@@ -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 {