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