1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu:
#
#===============================================================================
# FILE: CountSetBit.t
# DESCRIPTION: Unit test for CountSetBit
#===============================================================================
use strict;
use warnings;
use v5.30;
use Test2::V0;
use CountSetBit;
my $csb = CountSetBit->new(4);
isa_ok( $csb, [ qw(CountSetBit) ], "Constructor" );
is( CountSetBit->new( 1)->run(), 1, "1");
is( CountSetBit->new( 2)->run(), 2, "2");
is( CountSetBit->new( 3)->run(), 4, "3");
is( CountSetBit->new( 4)->run(), 5, "4");
is( CountSetBit->new( 5)->run(), 7, "5");
is( CountSetBit->new( 6)->run(), 9, "6");
is( CountSetBit->new( 7)->run(), 12, "7");
is( CountSetBit->new( 8)->run(), 13, "8");
is( CountSetBit->new( 9)->run(), 15, "8");
is( CountSetBit->new(10)->run(), 17, "8");
is( CountSetBit->new(11)->run(), 20, "8");
is( CountSetBit->new(12)->run(), 22, "8");
is( CountSetBit->new(13)->run(), 25, "8");
is( CountSetBit->new(14)->run(), 28, "8");
is( CountSetBit->new(15)->run(), 32, "8");
is( CountSetBit->new(16)->run(), 33, "8");
done_testing();
|
