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 );
19 my $db = DBM::Deep->new(
23 $db->{key1} = "value1";
26 # clone db handle, make sure both are usable
28 $clone = $db->clone();
30 is($clone->{key1}, "value1");
32 $clone->{key2} = "value2";
33 $db->{key3} = "value3";
35 is($db->{key1}, "value1");
36 is($db->{key2}, "value2");
37 is($db->{key3}, "value3");
39 is($clone->{key1}, "value1");
40 is($clone->{key2}, "value2");
41 is($clone->{key3}, "value3");
44 is($clone->{key1}, "value1");
45 is($clone->{key2}, "value2");
46 is($clone->{key3}, "value3");
50 my $db = DBM::Deep->new(
54 is($db->{key1}, "value1");
55 is($db->{key2}, "value2");
56 is($db->{key3}, "value3");