view release on metacpan or  search on metacpan

t/basics.t  view on Meta::CPAN

use v5.42;
use Test2::V0;
use lib 'lib', '../lib';
use Acme::Selection::RarestFirst;
use Acme::Bitfield;
#
subtest 'Rarest First Picking' => sub {
    isa_ok my $sel = Acme::Selection::RarestFirst->new( size => 5 ), ['Acme::Selection::RarestFirst'];
    my $my_bf = Acme::Bitfield->new( size => 5 );

    # We leave 3 and 4 at 0 copies (absolute rarest)
    # 0 -> 3 copies
    # 1 -> 1 copy