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

use Config qw(%Config);

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

my $x = "A";
my $y = "B";

study($r);
my $r = ($x x 0x8000_0001) . ($y x 10) . ($x x 5);

my $c = "C";

$r =~ s/B/ $c++ /ge;

is(substr($r, -10), "HIJKLAAAAA", "rxres_restore I32");

done_testing();