51 lines
1.7 KiB
Perl
51 lines
1.7 KiB
Perl
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Test::More;
|
|
use Test::Deep;
|
|
use DDG::Test::Goodie;
|
|
|
|
zci answer_type => "bitsum";
|
|
zci is_cached => 1;
|
|
|
|
sub build_structured_answer {
|
|
my ($input_number, $result) = @_;
|
|
return $result,
|
|
structured_answer => {
|
|
data => {
|
|
title => $result,
|
|
subtitle => "Hamming Weight Calculation: $input_number"
|
|
},
|
|
templates => {
|
|
group => 'text'
|
|
}
|
|
};
|
|
}
|
|
|
|
sub build_test { test_zci(build_structured_answer(@_)) }
|
|
|
|
ddg_goodie_test(
|
|
[qw( DDG::Goodie::Bitsum )],
|
|
'bitsum 127' => build_test('127 (Base 10, Decimal)', '7'),
|
|
'bitsum of 127' => build_test('127 (Base 10, Decimal)', '7'),
|
|
'bitsum 0b1111111' => build_test('0b1111111 (Base 2, Binary)', '7'),
|
|
'bitsum for 0x1234' => build_test('0x1234 (Base 16, Hexadecimal)', '5'),
|
|
'hammingweight 1024' => build_test('1024 (Base 10, Decimal)', '1'),
|
|
'hammingweight 0b10101' => build_test('0b10101 (Base 2, Binary)', '3'),
|
|
'hw 0xff' => build_test('0xff (Base 16, Hexadecimal)', '8'),
|
|
'hw for 0xaa' => build_test('0xaa (Base 16, Hexadecimal)', '4'),
|
|
'hw for 0b11' => build_test('0b11 (Base 2, Binary)', '2'),
|
|
# Long number tests
|
|
'hw 123456789123456789123456789' => build_test('123456789123456789123456789 (Base 10, Decimal)', '50'),
|
|
'bitsum 0x123456789ABCDEF123456789ABCDEF' => build_test('0x123456789ABCDEF123456789ABCDEF (Base 16, Hexadecimal)', '64'),
|
|
# Tests which should fail
|
|
'bitsum 213f3a', undef,
|
|
'hw 0d23238', undef,
|
|
'bitsum 0x' => undef,
|
|
'bitsum test' => undef,
|
|
'bitsum 0b' => undef,
|
|
);
|
|
|
|
done_testing;
|