ACIL FM

Nama	Ukuran	Aksi
lib	-	Open
00_compile.t	146 B	View DL Edit
01_info.t	938 B	View DL Edit
02_refs.t	517 B	View DL Edit
03_count.t	457 B	View DL Edit
04_test_funcs.t	525 B	View DL Edit
05_script.t	207 B	View DL Edit
06_threads.t	586 B	View DL Edit
07_eval.t	613 B	View DL Edit
08_leaktrace.t	550 B	View DL Edit
09_info_more.t	786 B	View DL Edit
10_bad_use.t	590 B	View DL Edit
11_logfp.t	1.03 MB	View DL Edit
12_padstale.t	207 B	View DL Edit
13_do.t	204 B	View DL Edit

Edit file: /home/.cpan/build/Test-LeakTrace-0.17-0/t/11_logfp.t

#!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 \Q$file\E line 15\./, -simple;
unlike $content, qr/15:\t\tpush \@array/, -lines;
unlike $content, qr/REFCNT/, -sv_dump;

t(-lines);
like $content, qr/from \Q$file\E line 15\./, -simple;
like $content, qr/15:\t\tpush \@array/, -lines;
unlike $content, qr/REFCNT/, -sv_dump;

t(-sv_dump);
like $content, qr/from \Q$file\E line 15\./, -simple;
unlike $content, qr/15:\t\tpush \@array/, -lines;
like $content, qr/REFCNT/, -sv_dump;

t(-verbose);
like $content, qr/from \Q$file\E 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';

Batal