view release on metacpan or  search on metacpan

t/basics.t  view on Meta::CPAN

use v5.40;
use Test2::V0;
use lib 'lib', '../lib';
use Algorithm::RateLimiter::TokenBucket;
#
subtest Initialization => sub {
    my $limit = 1000;
    my $rl    = Algorithm::RateLimiter::TokenBucket->new( limit => $limit );
    is $rl->limit,     $limit, 'Limit correctly set';
    is $rl->available, $limit, 'Tokens start at limit';
};
subtest Consumption => sub {
    isa_ok my $rl = Algorithm::RateLimiter::TokenBucket->new( limit => 1000 ), ['Algorithm::RateLimiter::TokenBucket'];