5 use Test::More tests => 14;
6 use File::Temp qw( tempfile tempdir );
7 use Fcntl qw( :flock );
11 my $dir = tempdir( CLEANUP => 1 );
12 my ($fh, $filename) = tempfile( 'tmpXXXX', UNLINK => 1, DIR => $dir );
17 my $db = new DBM::Deep(
24 $db->_get_self->{engine}->set_digest( \&my_digest, 8 );
29 $db->{key1} = "value1";
30 ok( $db->{key1} eq "value1" );
32 $db->put("key2", "value2");
33 ok( $db->get("key2") eq "value2" );
38 ok( $db->exists("key1") );
39 ok( exists $db->{key2} );
44 ok( scalar keys %$db == 2 );
50 while ( my ($key, $value) = each %$db ) {
51 $temphash->{$key} = $value;
54 ok( ($temphash->{key1} eq "value1") && ($temphash->{key2} eq "value2") );
57 my $key = $db->first_key();
59 $temphash->{$key} = $db->get($key);
60 $key = $db->next_key($key);
63 ok( ($temphash->{key1} eq "value1") && ($temphash->{key2} eq "value2") );
68 ok( delete $db->{key1} );
69 ok( $db->delete("key2") );
71 ok( scalar keys %$db == 0 );
76 $db->put("another", "value");
79 ok( scalar keys %$db == 0 );
84 $db->put("key1", "value1");
85 $db->put("key1", "value2");
87 ok( $db->get("key1") eq "value2" );
89 $db->put("key1", "value222222222222222222222222");
91 ok( $db->get("key1") eq "value222222222222222222222222" );
95 # Warning: This digest function is for testing ONLY
96 # It is NOT intended for actual use
101 for (my $k=0; $k<length($key); $k++) {
102 $num += ord( substr($key, $k, 1) );
105 return sprintf("%00000008d", $num);