This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[rt #111730] don't use I32 for offsets in vec()
[perl5.git] / t / bigmem / read.t
CommitLineData
9fda09b6
TC
1#!perl
2BEGIN {
3 chdir 't';
4 unshift @INC, "../lib";
5}
6
7use strict;
8require './test.pl';
9use 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
16plan(1);
17
18# RT #100514
19my $x = "";
20read(DATA, $x, 4, 0x80000000);
21is(length $x, 0x80000004, "check we read to the correct offset");
22__DATA__
23Food
24