1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
#!perl
BEGIN {
chdir 't';
unshift @INC, "../lib";
}
use strict;
require './test.pl';
use Config qw(%Config);
$ENV{PERL_TEST_MEMORY} >= 1
or skip_all("Need ~1Gb for this test");
$Config{ptrsize} >= 8
or skip_all("Need 64-bit pointers for this test");
plan(7);
# RT #111730: Negative offset to vec in lvalue context
my $v = "";
ok(scalar eval { vec($v, 0x80000000, 1) = 1 }, "set a bit at a large offset");
ok(vec($v, 0x80000000, 1), "check a bit at a large offset");
ok(scalar eval { vec($v, 0x100000000, 1) = 1 },
"set a bit at a larger offset");
ok(vec($v, 0x100000000, 1), "check a bit at a larger offset");
# real out of range values
ok(!eval { vec($v, -0x80000000, 1) = 1 },
"shouldn't be able to set at a large negative offset");
ok(!eval { vec($v, -0x100000000, 1) = 1 },
"shouldn't be able to set at a larger negative offset");
ok(!vec($v, 0, 1), "make sure we didn't wrap");
|
