5 use Test::More tests => 14;
6 use File::Temp qw( tempfile tempdir );
10 my $dir = tempdir( CLEANUP => 1 );
11 my ($fh, $filename) = tempfile( 'tmpXXXX', UNLINK => 1, DIR => $dir );
17 my $db = DBM::Deep->new(
21 $db->{key1} = "value1";
24 # clone db handle, make sure both are usable
26 $clone = $db->clone();
28 is($clone->{key1}, "value1");
30 $clone->{key2} = "value2";
31 $db->{key3} = "value3";
33 is($db->{key1}, "value1");
34 is($db->{key2}, "value2");
35 is($db->{key3}, "value3");
37 is($clone->{key1}, "value1");
38 is($clone->{key2}, "value2");
39 is($clone->{key3}, "value3");
42 is($clone->{key1}, "value1");
43 is($clone->{key2}, "value2");
44 is($clone->{key3}, "value3");
48 my $db = DBM::Deep->new(
52 is($db->{key1}, "value1");
53 is($db->{key2}, "value2");
54 is($db->{key3}, "value3");