projects
/
dbsrgits/DBM-Deep.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
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
}