zeroclickinfo-goodies/t/Bitsum.t

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;