view release on metacpan or  search on metacpan

t/06_merge.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use Test::Fatal qw(exception lives_ok);
use Algorithm::HyperLogLog;
use Algorithm::HyperLogLog::PP;

SKIP: {
    skip "No XS" unless Algorithm::HyperLogLog->XS;
    my $hlla = Algorithm::HyperLogLog->new(16);
    my $hllb = Algorithm::HyperLogLog->new(16);

    $hlla->add($_) for 1 .. 100_000;
    $hllb->add($_) for 100_000 .. 200_000;

    $hlla->merge($hllb);

    ok( abs( $hlla->estimate - 200_000 ) / 200_000 < 0.01 );
}

my $hllppa = Algorithm::HyperLogLog::PP->new(16);
my $hllppb = Algorithm::HyperLogLog::PP->new(16);

$hllppa->add($_) for 1 .. 100_000;
$hllppb->add($_) for 100_000 .. 200_000;

$hllppa->merge($hllppb);

ok( abs( $hllppa->estimate - 200_000 ) / 200_000 < 0.01 );

done_testing();

__END__