diff options
Diffstat (limited to 't/bigmem')
-rw-r--r-- | t/bigmem/read.t | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/t/bigmem/read.t b/t/bigmem/read.t new file mode 100644 index 0000000000..b29c097a6a --- /dev/null +++ b/t/bigmem/read.t @@ -0,0 +1,24 @@ +#!perl +BEGIN { + chdir 't'; + unshift @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 + |