Commit | Line | Data |
---|---|---|
ffed8b01 | 1 | ## |
2 | # DBM::Deep Test | |
3 | ## | |
4 | use strict; | |
25369e06 | 5 | use Test::More tests => 4; |
09b5cb31 | 6 | $|=1; |
ffed8b01 | 7 | |
bd773913 | 8 | use_ok( 'DBM::Deep' ); |
ffed8b01 | 9 | |
10 | ## | |
11 | # basic file open | |
12 | ## | |
13 | unlink "t/test.db"; | |
bd773913 | 14 | my $db = DBM::Deep->new( |
ffed8b01 | 15 | file => "t/test.db", |
2ccea4dc | 16 | locking => 1, |
ffed8b01 | 17 | ); |
ffed8b01 | 18 | |
19 | ## | |
20 | # basic put/get | |
21 | ## | |
22 | $db->{key1} = "value1"; | |
bd773913 | 23 | is( $db->{key1}, "value1", "key1 is set" ); |
ffed8b01 | 24 | |
25369e06 | 25 | $db->{key2} = [ 1 .. 3 ]; |
26 | is( $db->{key2}[1], 2 ); | |
27 | ||
ffed8b01 | 28 | ## |
29 | # explicit lock | |
30 | ## | |
bd773913 | 31 | $db->lock( DBM::Deep->LOCK_EX ); |
ffed8b01 | 32 | $db->{key1} = "value2"; |
33 | $db->unlock(); | |
bd773913 | 34 | is( $db->{key1}, "value2", "key1 is overridden" ); |