t/50_deletes.t

   1
   2 use strict;
   3 use Test::More;
   4
   5 use t::common qw( new_fh );
   6
   7 my $max = 10;
   8
   9 plan skip_all => "Need to work on this one later.";
  10
  11 plan tests => $max + 1;
  12
  13 use_ok( 'DBM::Deep' );
  14
  15 my ($fh, $filename) = new_fh();
  16 my $db = DBM::Deep->new( file => $filename, fh => $fh, );
  17
  18 my $x = 0;
  19 while( $x < $max ) {
  20     eval {
  21         delete $db->{borked}{test};
  22         $db->{borked}{test} = 1;
  23     };
  24
  25     ok(!$@, 'No eval failures');
  26     $x++;
  27 }