This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
make some tests TODO under -DPERL_NO_COW
authorDavid Mitchell <davem@iabyn.com>
Wed, 5 Jun 2013 10:24:20 +0000 (11:24 +0100)
committerDavid Mitchell <davem@iabyn.com>
Wed, 5 Jun 2013 10:24:20 +0000 (11:24 +0100)
Since it's Copy-on-Write that fixed those tests, we expect them to fail
without COW.

t/re/pat_rt_report.t

index 9f057e6..9b53bae 100644 (file)
@@ -1147,6 +1147,8 @@ EOP
 
     {
         # [perl #4289] First mention $& after a match
+       local $::TODO = "these tests fail without Copy-on-Write enabled"
+           if $Config{ccflags} =~ /PERL_NO_COW/;
         fresh_perl_is(
             '$_ = "abc"; /b/g; $_ = "hello"; print eval q|$&|, "\n"',
             "b\n", {}, '$& first mentioned after match');