5 use Test::More tests => 14;
10 my $db = DBM::Deep->new(
14 die "ERROR: " . $db->error();
17 $db->{key1} = "value1";
20 # clone db handle, make sure both are usable
22 my $clone = $db->clone();
24 is($clone->{key1}, "value1");
26 $clone->{key2} = "value2";
27 $db->{key3} = "value3";
29 is($db->{key1}, "value1");
30 is($db->{key2}, "value2");
31 is($db->{key3}, "value3");
33 is($clone->{key1}, "value1");
34 is($clone->{key2}, "value2");
35 is($clone->{key3}, "value3");
39 is($clone->{key1}, "value1");
40 is($clone->{key2}, "value2");
41 is($clone->{key3}, "value3");
49 is($db->{key1}, "value1");
50 is($db->{key2}, "value2");
51 is($db->{key3}, "value3");