Test::LeakTrace::JA - メモリリークを追跡する

NAME VERSION SYNOPSIS DESCRIPTION INTERFACE Exported functions Script interface EXAMPLES Testing modules GUTS DEPENDENCIES CAVEATS BUGS SEE ALSO AUTHOR LICENSE AND COPYRIGHT

NAME

Test::LeakTrace::JA − ã¡ã¢ãªãªã¼ã¯ãè¿½è·¡ãã

VERSION

This document describes Test::LeakTrace version 0.17.

use Test::LeakTrace;
# simple report
leaktrace{
# ...
};
# verbose output
leaktrace{
# ...
} −verbose;
# with callback
leaktrace{
# ...
} sub {
my($ref, $file, $line) = @_;
warn "leaked $ref from $file line\n";
};
my @refs = leaked_refs{
# ...
};
my @info = leaked_info{
# ...
};
my $count = leaked_count{
# ...
};
# standard test interface
use Test::LeakTrace;
no_leaks_ok{
# ...
} "description";
leaks_cmp_ok{
# ...
} '<', 10;

DESCRIPTION

INTERFACE

Exported functions

"leaked_info { BLOCK }"

"leaked_refs { BLOCK }"

"map{ $_−>[0] } leaked_info{ BLOCK }"ã¨åãã§ããï¼ããé«éã§ãã

"leaked_count { BLOCK }"

leaked_info()ã¨leaked_refs()ãã¹ã«ã©ã³ã³ããã¹ãã§ã¯åæ°ãè¿ãã¾ããï¼ leaked_count()ã¯ã³ã³ããã¹ãã«ä¾åãã¾ããã

"leaktrace { BLOCK } ?($mode | \&callback)"

−sv_dump

−simpleã«å ãã¦ï¼sv_dump()ã§SVã®ä¸èº«ããã³ããã¾ãã ããã¯ï¼Devel::Peek::Dump()ã®åºåã¨ã»ã¼åãã§ãã

−lines

−verbose

−simpleã¨−sv_dumpã¨−linesã®å¨ã¦ãåºåãã¾ãã

"no_leaks_ok { BLOCK } ?$description"

"leaks_cmp_ok { BLOCK } $cmp_op, $count, ?$description"

Script interface

"Devel::LeakTrace"ã¨åæ§ã«ï¼ã¹ã¯ãªããã®ãªã¼ã¯è¿½è·¡ã®ããã«"Test::LeakTrace::Script"ãæä¾ããã¾ãã"use Test::LeakTrace::Script"å®£è¨ã®å¼æ°ã¯leaktrace()ã¨åãã§ãã

$ TEST_LEAKTRACE=−sv_dump perl −MTest::LeakTrace::Script script.pl
$ perl −MTest::LeakTrace::Script=−verbose script.pl
#!perl
# ...
use Test::LeakTrace::Script sub{
my($ref, $file, $line) = @_;
# ...
};
# ...

EXAMPLES

Testing modules

#!perl −w
use strict;
use constant HAS_LEAKTRACE => eval{ require Test::LeakTrace };
use Test::More HAS_LEAKTRACE ? (tests => 1) : (skip_all => 'require Test::LeakTrace');
use Test::LeakTrace;
use Some::Module;
leaks_cmp_ok{
my $o = Some::Module−>new();
$o−>something();
$o−>something_else();
} '<', 1;

GUTS

my %used_sv;
foreach my $sv(@ARENA){
$used_sv{$sv}++;
}
$block−>();
my @leaked
foreach my $sv(@ARENA){
if(not exists $used_sv{$sv}){
push @leaked, $sv;
}
}
say 'leaked count: ', scalar @leaked;

ãªã¼ã¯ããSVãå¾ããããªããã®æ¹æ³ã§ååã§ããå®éï¼leaked_refs()ã¨leaked_count()ã¯ãã®ãããªæ¹æ³ã§ãªã¼ã¯ããSVããã®åæ°ãèª¿ã¹ã¦ãã¾ãã

ã¾ãï¼no_leaks_ok()ã®ãããªãã¹ãé¢æ°ã¯ã¾ãleaked_count()ã§ãªã¼ã¯ããSVã®åæ°ãå¾ã¦ããï¼å¿è¦ã«å¿ãã¦ãªã¼ã¯ããä½ç½®ãç¹å®ããããã«leaktrace()ãå®è¡ããããï¼ãã¹ããæåããéãã¯æéã®æããè¿½è·¡å¦çã¯ãã¾ããã