6 BEGIN { plan tests => 2 }
14 my $db = new DBM::Deep(
19 die "ERROR: " . $db->error();
25 $db->{key1} = "value1";
26 ok( $db->{key1} eq "value1" );
31 $db->lock( DBM::Deep::LOCK_EX );
32 $db->{key1} = "value2";
34 ok( $db->{key1} eq "value2" );
37 # close, delete file, exit