t/bigmem/read.t

   1 #!perl
   2 BEGIN {
   3     chdir 't' if -d 't';
   4     @INC = "../lib";
   5 }
   6
   7 use strict;
   8 require './test.pl';
   9 use Config qw(%Config);
  10
  11 $ENV{PERL_TEST_MEMORY} >= 3
  12     or skip_all("Need ~3Gb for this test");
  13 $Config{ptrsize} >= 8
  14     or skip_all("Need 64-bit pointers for this test");
  15
  16 plan(1);
  17
  18 # RT #100514
  19 my $x = "";
  20 read(DATA, $x, 4, 0x80000000);
  21 is(length $x, 0x80000004, "check we read to the correct offset");
  22 __DATA__
  23 Food
  24