In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/2d5eff8a327fe1223ece6572afd1b7e15d4629a7?hp=c490dda1915fb0badb89835e8cf64527e06d25e2>
- Log ----------------------------------------------------------------- commit 2d5eff8a327fe1223ece6572afd1b7e15d4629a7 Author: David Mitchell <[email protected]> Date: Wed Mar 22 08:35:33 2017 +0000 skip an op/range.t test under -Dusemallocwrap=no RT #131033 A recently added test checked for a memory wrap condition, which won't happen if memory wrap checking is disabled. ----------------------------------------------------------------------- Summary of changes: t/op/range.t | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/t/op/range.t b/t/op/range.t index 02a38e0497..19ae1269ca 100644 --- a/t/op/range.t +++ b/t/op/range.t @@ -421,7 +421,9 @@ is( $s, 'bcde bcde','modifiable alpha counting loop counter' ); # generating an extreme range triggered a croak, which if caught, # left the temps stack small but with a very large PL_tmps_max -fresh_perl_like(<<'EOF', qr/\Aok 1 ok 2\Z/, {}, "RT #130841"); +SKIP: { + skip 'mem wrap check disabled' unless $Config{usemallocwrap}; + fresh_perl_like(<<'EOF', qr/\Aok 1 ok 2\Z/, {}, "RT #130841"); my $max_iv = (~0 >> 1); eval { my @range = 1..($max_iv - 1); @@ -446,4 +448,4 @@ else { print " unexpected sum: [$sum]; expected: [$exp]"; } EOF - +} -- Perl5 Master Repository
