[dbsrgits/DBM-Deep.git] / t / 53_misc_transactions.t

# This was discussed here:
# http://groups.google.com/group/DBM-Deep/browse_thread/thread/a6b8224ffec21bab
# brought up by Alex Gallichotte

use strict;
use warnings FATAL => 'all';

use Test::More;
use t::common qw( new_dbm );

use_ok( 'DBM::Deep' );

my $dbm_factory = new_dbm();
while ( my $dbm_maker = $dbm_factory->() ) {
    my $db = $dbm_maker->();
    eval { $db->{randkey()} = randkey() for 1 .. 10; }; ok(!$@, "No eval failures");

    eval {
        #$db->begin_work;
        $db->{randkey()} = randkey() for 1 .. 10;
        #$db->commit;
    };
    ok(!$@, "No eval failures from the transaction");

    eval { $db->{randkey()} = randkey() for 1 .. 10; };
    ok(!$@, "No eval failures");
}

done_testing;

sub randkey {
    our $i++;
    my @k = map { int rand 100 } 1 .. 10;
    local $" = "-";

    return "$i-@k";
}
Commit	Line	Data
403f8ed3	1	# This was discussed here:
	2	# http://groups.google.com/group/DBM-Deep/browse_thread/thread/a6b8224ffec21bab
	3	# brought up by Alex Gallichotte
	4
	5	use strict;
f0276afb	6	use warnings FATAL => 'all';
09dd8113	7
0e3e3555	8	use Test::More;
0e3e3555	9	use t::common qw( new_dbm );
403f8ed3	10
09dd8113	11	use_ok( 'DBM::Deep' );
09dd8113	12
0e3e3555	13	my $dbm_factory = new_dbm();
	14	while ( my $dbm_maker = $dbm_factory->() ) {
	15	my $db = $dbm_maker->();
	16	eval { $db->{randkey()} = randkey() for 1 .. 10; }; ok(!$@, "No eval failures");
403f8ed3	17
0e3e3555	18	eval {
	19	#$db->begin_work;
	20	$db->{randkey()} = randkey() for 1 .. 10;
	21	#$db->commit;
	22	};
	23	ok(!$@, "No eval failures from the transaction");
403f8ed3	24
0e3e3555	25	eval { $db->{randkey()} = randkey() for 1 .. 10; };
	26	ok(!$@, "No eval failures");
	27	}
403f8ed3	28
0e3e3555	29	done_testing;
403f8ed3	30
403f8ed3	31	sub randkey {
0e3e3555	32	our $i++;
403f8ed3	33	my @k = map { int rand 100 } 1 .. 10;
	34	local $" = "-";
	35
	36	return "$i-@k";
	37	}