[rt #100514] regression test for read() with a 2Gib offset
[perl.git] / t / bigmem / read.t
1 #!perl
2 BEGIN {
3     chdir 't';
4     unshift @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