Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2024-10-10 03:45:46 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Add summary at end so it's clear when there were no leaks. b=320192

Browse Source
This commit is contained in:
dbaron%dbaron.org 2006-01-12 09:00:51 +00:00
parent 6551e86348
commit 549ee7d70b
1 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
tools/footprint/leak-gauge.pl
View File

@ -36,7 +36,7 @@
#
# ***** END LICENSE BLOCK *****
# $Id: leak-gauge.pl,v 1.4 2006/01/12 08:50:56 dbaron%dbaron.org Exp $
# $Id: leak-gauge.pl,v 1.5 2006/01/12 09:00:51 dbaron%dbaron.org Exp $
# This script is designed to help testers isolate and simplify testcases
# for many classes of leaks (those that involve large graphs of core
# data structures) in Mozilla-based browsers. It is designed to print
@ -112,6 +112,11 @@ my $handlers = {
print " ... with URI \"$uri\".\n";
}
}
},
summary => sub($) {
my ($self) = @_;
my $windows = ${$self}{windows};
print 'Leaked DOM windows: ' . keys(%{$windows}) . "\n";
}
},
"DOCUMENT" => {
@ -142,6 +147,11 @@ my $handlers = {
print " ... with URI \"$uri\".\n";
}
}
},
summary => sub($) {
my ($self) = @_;
my $docs = ${$self}{docs};
print 'Leaked documents: ' . keys(%{$docs}) . "\n";
}
},
"DOCSHELL" => {
@ -172,6 +182,11 @@ my $handlers = {
print " ... which loaded URI \"$uri\".\n";
}
}
},
summary => sub($) {
my ($self) = @_;
my $shells = ${$self}{shells};
print 'Leaked docshells: ' . keys(%{$shells}) . "\n";
}
}
};
@ -190,3 +205,7 @@ while (<>) {
foreach my $key (keys(%{$handlers})) {
call("dump", ${$handlers}{$key});
}
print "Summary:\n";
foreach my $key (keys(%{$handlers})) {
call("summary", ${$handlers}{$key});
}