view release on metacpan or  search on metacpan

t/basics.t  view on Meta::CPAN

use v5.40;
use Test2::V0;
use lib '../lib';
use Acme::Bitfield;
#
subtest Basics => sub {
    subtest Operations => sub {
        my $bf = Acme::Bitfield->new( size => 10 );
        is $bf->size,  10, 'Correct size';
        is $bf->count, 0,  'Initially empty';
        $bf->set(0);
        $bf->set(9);
        ok $bf->get(0),  'Bit 0 set';