[dbsrgits/DBM-Deep.git] / t / 36_transaction_deep.t

use strict;
use Test::More tests => 3;
use Test::Deep;
use t::common qw( new_fh );

use_ok( 'DBM::Deep' );

my ($fh, $filename) = new_fh();
my $db1 = DBM::Deep->new(
    file => $filename,
    locking => 1,
    autoflush => 1,
);

$db1->begin_work;

    my $x = { a => 'b' };;
    $db1->{x} = $x;

$db1->commit;

is( $db1->{x}{a}, 'b', "DB1 X-A is good" );
is( $x->{a}, 'b', "X's A is good" );
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" );