projects
/
dbsrgits/DBM-Deep.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
r11685@rob-kinyons-powerbook58: rob | 2006-04-29 10:50:27 -0400
[dbsrgits/DBM-Deep.git]
/
t
/
36_transaction_deep.t
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" );