5 use Test::More tests => 14;
6 use t::common qw( new_fh );
10 my ($fh, $filename) = new_fh();
14 my $db = new DBM::Deep(
16 digest => \&my_digest,
23 $db->{key1} = "value1";
24 ok( $db->{key1} eq "value1" );
26 $db->put("key2", "value2");
27 ok( $db->get("key2") eq "value2" );
32 ok( $db->exists("key1") );
33 ok( exists $db->{key2} );
38 ok( scalar keys %$db == 2 );
44 while ( my ($key, $value) = each %$db ) {
45 $temphash->{$key} = $value;
48 ok( ($temphash->{key1} eq "value1") && ($temphash->{key2} eq "value2") );
51 my $key = $db->first_key();
53 $temphash->{$key} = $db->get($key);
54 $key = $db->next_key($key);
57 ok( ($temphash->{key1} eq "value1") && ($temphash->{key2} eq "value2") );
62 ok( delete $db->{key1} );
63 ok( $db->delete("key2") );
65 ok( scalar keys %$db == 0 );
70 $db->put("another", "value");
73 ok( scalar keys %$db == 0 );
78 $db->put("key1", "value1");
79 $db->put("key1", "value2");
81 ok( $db->get("key1") eq "value2" );
83 $db->put("key1", "value222222222222222222222222");
85 ok( $db->get("key1") eq "value222222222222222222222222" );
89 # Warning: This digest function is for testing ONLY
90 # It is NOT intended for actual use
95 for (my $k=0; $k<length($key); $k++) {
96 $num += ord( substr($key, $k, 1) );
99 return sprintf("%00000008d", $num);