Commit | Line | Data |
---|---|---|
415dcbb7 | 1 | use strict; |
2 | use Test::More tests => 3; | |
3 | use Test::Deep; | |
4 | use t::common qw( new_fh ); | |
5 | ||
6 | use_ok( 'DBM::Deep' ); | |
7 | ||
8 | my ($fh, $filename) = new_fh(); | |
9 | my $db1 = DBM::Deep->new( | |
10 | file => $filename, | |
11 | locking => 1, | |
12 | autoflush => 1, | |
13 | ); | |
14 | ||
15 | $db1->begin_work; | |
16 | ||
17 | my $x = { a => 'b' };; | |
18 | $db1->{x} = $x; | |
19 | ||
20 | $db1->commit; | |
21 | ||
22 | is( $db1->{x}{a}, 'b', "DB1 X-A is good" ); | |
23 | is( $x->{a}, 'b', "X's A is good" ); |