Commit | Line | Data |
ffed8b01 |
1 | ## |
2 | # DBM::Deep Test |
3 | ## |
4 | use strict; |
5 | use Test; |
6 | BEGIN { plan tests => 2 } |
7 | |
8 | use DBM::Deep; |
9 | |
10 | ## |
11 | # basic file open |
12 | ## |
13 | unlink "t/test.db"; |
14 | my $db = new DBM::Deep( |
15 | file => "t/test.db", |
16 | locking => 1 |
17 | ); |
18 | if ($db->error()) { |
19 | die "ERROR: " . $db->error(); |
20 | } |
21 | |
22 | ## |
23 | # basic put/get |
24 | ## |
25 | $db->{key1} = "value1"; |
26 | ok( $db->{key1} eq "value1" ); |
27 | |
28 | ## |
29 | # explicit lock |
30 | ## |
31 | $db->lock( DBM::Deep::LOCK_EX ); |
32 | $db->{key1} = "value2"; |
33 | $db->unlock(); |
34 | ok( $db->{key1} eq "value2" ); |
35 | |
36 | ## |
37 | # close, delete file, exit |
38 | ## |
39 | undef $db; |
40 | unlink "t/test.db"; |
41 | exit(0); |