t/50_deletes.t

   1 use strict;
   2 use warnings FATAL => 'all';
   3
   4 use Test::More;
   5
   6 use t::common qw( new_dbm );
   7
   8 my $max = 10;
   9
  10 use_ok( 'DBM::Deep' );
  11
  12 my $dbm_factory = new_dbm();
  13 while ( my $dbm_maker = $dbm_factory->() ) {
  14     my $db = $dbm_maker->();
  15
  16     my $x = 1;
  17     while( $x <= $max ) {
  18         eval {
  19             delete $db->{borked}{test};
  20             $db->{borked}{test} = 1;
  21         };
  22
  23         ok(!$@, "No eval failure after ${x}th iteration");
  24         $x++;
  25     }
  26 }
  27
  28 done_testing;