1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
#!perl -w
use strict;
use Test::More tests => 8;
use Test::LeakTrace qw(:test);
{
package Foo;
sub new{
return bless {}, shift;
}
}
no_leaks_ok {
my %a;
my %b;
$a{b} = 1;
$b{a} = 2;
} 'not leaked';
no_leaks_ok{
my $o = Foo->new();
$o->{bar}++;
};
no_leaks_ok{
# empty
};
leaks_cmp_ok{
my $a;
$a++;
} '==', 0;
sub leaked{
my %a;
my %b;
$a{b} = \%b;
$b{a} = \%a;
}
leaks_cmp_ok \&leaked, '<', 10;
leaks_cmp_ok \&leaked, '<=', 10;
leaks_cmp_ok \&leaked, '>', 0;
leaks_cmp_ok \&leaked, '>=', 1;
|
