1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#!/usr/bin/perl -w
use Test::More;
use Bloom::Filter;
my $bf = Bloom::Filter->new();
# default capacity should be 100;
my @salts = $bf->salts();
is( scalar @salts, 10, "Correct default number of salts" );
my @keys = qw/Hansel Gretel/;
ok( $bf->add( @keys ), "Added key" );
ok( $bf->check( "Hansel" ), "Found key 'Hansel' in filter" );
ok( !$bf->check( "Herman" ), "Did not find key 'Herman'" );
ok( $bf->check( "Gretel" ), "Found key 'Gretel' in filter" );
done_testing();
|
