view release on metacpan or  search on metacpan

t/2multsize.t  view on Meta::CPAN

#########################

use Test::More;
BEGIN { plan tests => 4 };
use Algorithm::Bucketizer;

my @items = (30 .. 39);

my $b = Algorithm::Bucketizer->new(
    algorithm => 'retry',
    maxsize   => 100,
);

    # Three buckets with different sizes
for(qw(100 50 200)) {
    $b->add_bucket(maxsize => $_);
}

for my $item (@items) {
    $b->add_item($item, $item);
}

my @buckets = $b->buckets();

is(join('-', $buckets[0]->items()), "30-31-32",
   "first bucket");

is(join('-', $buckets[1]->items()), "33",
   "second bucket");

is(join('-', $buckets[2]->items()), "34-35-36-37-38",
   "third bucket");

is(join('-', $buckets[3]->items()), "39",
   "fourth bucket");