2 use warnings FATAL => 'all';
6 use t::common qw( new_dbm );
10 my $dbm_factory = new_dbm(
14 while ( my $dbm_maker = $dbm_factory->() ) {
15 my $db = $dbm_maker->();
19 is( $db->{$_}, $_, "Addition of $_ is still $_" );
23 is( $db->{$_}, $_, "Verification of $_ is still $_" );
27 cmp_ok( scalar(@keys), '==', 17, "Right number of keys returned" );
29 ok( !exists $db->{does_not_exist}, "EXISTS works on large hashes for non-existent keys" );
30 is( $db->{does_not_exist}, undef, "autovivification works on large hashes" );
31 ok( exists $db->{does_not_exist}, "EXISTS works on large hashes for newly-existent keys" );
32 cmp_ok( scalar(keys %$db), '==', 18, "Number of keys after autovivify is correct" );