2 # This was discussed here:
3 # http://groups.google.com/group/DBM-Deep/browse_thread/thread/a6b8224ffec21bab
4 # brought up by Alex Gallichotte
7 use warnings FATAL => 'all';
9 use Test::More tests => 4;
10 use t::common qw( new_fh );
12 use_ok( 'DBM::Deep' );
14 my ($fh, $filename) = new_fh();
15 my $db = DBM::Deep->new( file => $filename, fh => $fh );
17 eval { $db->{randkey()} = randkey() for 1 .. 10; }; ok(!$@, "No eval failures");
21 $db->{randkey()} = randkey() for 1 .. 10;
24 ok(!$@, "No eval failures from the transaction");
26 eval { $db->{randkey()} = randkey() for 1 .. 10; }; ok(!$@, "No eval failures");
30 my @k = map { int rand 100 } 1 .. 10;