view release on metacpan or  search on metacpan

t/03-frozen.t  view on Meta::CPAN

    my $A = Data::Fenwick::Shared->new(undef, $n);   # same n
    $A->update(2, 1);
    $A->merge($Bro);   # must read Bro's tree without locking its PROT_READ map
    is $A->point(2), 6, 'merge target keeps + adds its own item (1+5)';
    is $A->point(9), 3, 'merged-in position present after merge from frozen other';
}

done_testing;

# minimal exception helper (avoid a Test::Fatal dependency)
sub exception {
    my $code = shift;
    my $err;
    { local $@; eval { $code->(); 1 } or $err = $@; }
    return $err;
}