4 use warnings FATAL => 'all';
8 use t::common qw( new_fh );
12 plan tests => $max + 1;
14 use_ok( 'DBM::Deep' );
16 my ($fh, $filename) = new_fh();
17 my $db = DBM::Deep->new( file => $filename, fh => $fh, );
22 delete $db->{borked}{test};
23 $db->{borked}{test} = 1;
26 ok(!$@, "No eval failure after ${x}th iteration");