here's a test that shows the memory leak
[dbsrgits/DBM-Deep.git] / 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 }