t/50_deletes.t

   1
   2 use strict;
   3 use Test;
   4 use DBM::Deep;
   5 use t::common qw( new_fh );
   6
   7 my ($fh, $filename) = new_fh();
   8 my $db = DBM::Deep->new( file => $filename, fh => $fh, );
   9
  10 my $max = 10;
  11
  12 plan tests => $max;
  13
  14 my $x = 0;
  15 while( $x < $max ) {
  16     eval {
  17         delete $db->{borked}{test};
  18         $db->{borked}{test} = 1;
  19     };
  20
  21     ok($@, '');
  22     $x++;
  23 }