[perl5.git] / t / bigmem / read.t

#!perl
BEGIN {
    chdir 't' if -d 't';
    @INC = "../lib";
}

use strict;
require './test.pl';
use Config qw(%Config);

$ENV{PERL_TEST_MEMORY} >= 3
    or skip_all("Need ~3Gb for this test");
$Config{ptrsize} >= 8
    or skip_all("Need 64-bit pointers for this test");

plan(1);

# RT #100514
my $x = "";
read(DATA, $x, 4, 0x80000000);
is(length $x, 0x80000004, "check we read to the correct offset");
__DATA__
Food
Commit	Line	Data
9fda09b6 TC	1	#!perl
9fda09b6 TC	2	BEGIN {
a817e89d	3	chdir 't' if -d 't';
9224f6d1	4	@INC = "../lib";
9fda09b6 TC	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