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
50
51
52
|
#!perl -w
use strict;
use Test::More tests => 16;
use Test::LeakTrace qw(:util);
my $content = '';
sub t{
open local(*STDERR), '>', \$content;
leaktrace{
my @array;
push @array, 42, \@array;
} shift;
}
$\ = 'rs';
$_ = 'defsv';
my $file = __FILE__;
t(-simple);
like $content, qr/from $file line 15\./, -simple;
unlike $content, qr/15:\t\tpush \@array/, -lines;
unlike $content, qr/REFCNT/, -sv_dump;
t(-lines);
like $content, qr/from $file line 15\./, -simple;
like $content, qr/15:\t\tpush \@array/, -lines;
unlike $content, qr/REFCNT/, -sv_dump;
t(-sv_dump);
like $content, qr/from $file line 15\./, -simple;
unlike $content, qr/15:\t\tpush \@array/, -lines;
like $content, qr/REFCNT/, -sv_dump;
t(-verbose);
like $content, qr/from $file line 15\./, -simple;
like $content, qr/15:\t\tpush \@array/, -lines;
like $content, qr/REFCNT/, -sv_dump;
t(-silent);
is $content, '', -silent;
eval{
t(sub{ die });
};
is $content, '', 'died in callback';
is $\, 'rs', '$\ is not affected';
is $_, 'defsv', '$_ is not affected';
|
