This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
skip an op/range.t test under -Dusemallocwrap=no
authorDavid Mitchell <davem@iabyn.com>
Wed, 22 Mar 2017 08:35:33 +0000 (08:35 +0000)
committerDavid Mitchell <davem@iabyn.com>
Wed, 22 Mar 2017 08:35:33 +0000 (08:35 +0000)
RT #131033

A recently added test checked for a memory wrap condition, which won't
happen if memory wrap checking is disabled.

t/op/range.t

index 02a38e0..19ae126 100644 (file)
@@ -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
 
 # 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);
 my $max_iv = (~0 >> 1);
 eval {
     my @range = 1..($max_iv - 1);
@@ -446,4 +448,4 @@ else {
     print " unexpected sum: [$sum]; expected: [$exp]";
 }
 EOF
     print " unexpected sum: [$sum]; expected: [$exp]";
 }
 EOF
-
+}