[dbsrgits/DBM-Deep.git] / t / 28_transactions.t

use strict;
use Test::More tests => 4;
use Test::Exception;
use t::common qw( new_fh );

use_ok( 'DBM::Deep' );

my ($fh, $filename) = new_fh();
my $db = DBM::Deep->new(
    file => $filename,
);

$db->{x} = 'y';
is( $db->{x}, 'y' );
$db->begin_work;
$db->{x} = 'z';
is( $db->{x}, 'z' );
$db->rollback;
is( $db->{x}, 'y' );

# Add a commit test using fork
Commit	Line	Data
fee0243f	1	use strict;
	2	use Test::More tests => 4;
	3	use Test::Exception;
	4	use t::common qw( new_fh );
	5
	6	use_ok( 'DBM::Deep' );
	7
	8	my ($fh, $filename) = new_fh();
	9	my $db = DBM::Deep->new(
	10	file => $filename,
	11	);
	12
	13	$db->{x} = 'y';
	14	is( $db->{x}, 'y' );
	15	$db->begin_work;
	16	$db->{x} = 'z';
	17	is( $db->{x}, 'z' );
	18	$db->rollback;
	19	is( $db->{x}, 'y' );
	20
	21	# Add a commit test using fork