1#!/usr/bin/perl -w
2
3use Test::More;
4
5use Bloom::Filter;
6
7my $bf = Bloom::Filter->new();
8
9# default capacity should be 100;
10
11my @salts = $bf->salts();
12is( scalar @salts, 10, "Correct default number of salts" );
13
14my @keys = qw/Hansel Gretel/;
15
16is( $bf->key_count(), 0, "No keys" );
17ok( $bf->add( $keys[0] ), "Added key" );
18is( $bf->key_count(), 1, "Key count incremented" );
19ok( $bf->add( $keys[0] ), "Added key" );
20is( $bf->key_count(), 2, "Key count incremented" );
21
22for (1..98) { $bf->add( $_ ) };
23
24ok( !$bf->add( "last key" ), "Capacity exceeded" );
25
26$bf = Bloom::Filter->new();
27ok( $bf->add( @keys ), "Added multiple keys" );
28is( $bf->key_count(), 2, "Correct key count" );
29
30done_testing();
31