t/50_deletes.t

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