2 use Test::More tests => 40;
4 use t::common qw( new_fh );
8 my ($fh, $filename) = new_fh();
9 my $db = DBM::Deep->new(
17 is( $db->{$_}, $_, "Addition of $_ is still $_" );
21 is( $db->{$_}, $_, "Verification of $_ is still $_" );
25 cmp_ok( scalar(@keys), '==', 17, "Right number of keys returned" );
27 ok( !exists $db->{does_not_exist}, "EXISTS works on large hashes for non-existent keys" );
28 is( $db->{does_not_exist}, undef, "autovivification works on large hashes" );
29 ok( exists $db->{does_not_exist}, "EXISTS works on large hashes for newly-existent keys" );
30 cmp_ok( scalar(keys %$db), '==', 18, "Number of keys after autovivify is correct" );