view release on metacpan or  search on metacpan

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

    ok  $E->contains(0),          'intersect kept a shared bitmap-side member';
    ok  $E->contains(3000),       'intersect kept the shared dense top';
    ok  $E->contains($B5 | 1),    'intersect kept a shared array member';
    ok !$E->contains(900000),     'intersect dropped a member absent from the frozen other';
    ok !$E->contains(4000),       'intersect dropped a member above the overlap';
    is $E->cardinality, 3002,     'intersect cardinality = |0..3000| + 1 shared array member';
}

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;
}