diff options
Diffstat (limited to 'common/coverage/coverage-report.pl')
m--------- | common | 0 | ||||
-rw-r--r-- | common/coverage/coverage-report.pl | 125 |
2 files changed, 0 insertions, 125 deletions
diff --git a/common b/common new file mode 160000 +Subproject e7d9928e8e6bc01e9a93e07879d28ca68ed1632 diff --git a/common/coverage/coverage-report.pl b/common/coverage/coverage-report.pl deleted file mode 100644 index 046bc370..00000000 --- a/common/coverage/coverage-report.pl +++ /dev/null @@ -1,125 +0,0 @@ -#!/usr/bin/perl -# -# Copyright (C) 2006 Daniel Berrange -# -# This program is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 2 of the License, or -# (at your option) any later version. -# -# This program is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA - -use warnings; -use strict; - -my %coverage = ( functions => {}, files => {} ); - -my %filemap; - -my $type; -my $name; - -my @functions; - -while (<>) { - if (/^Function '(.*)'\s*$/) { - $type = "function"; - $name = $1; - $coverage{$type}->{$name} = {}; - push @functions, $name; - } elsif (/^File '(.*?)'\s*$/) { - $type = "file"; - $name = $1; - $coverage{$type}->{$name} = {}; - - foreach my $func (@functions) { - $coverage{"function"}->{$func}->{file} = $name; - } - @functions = (); - } elsif (/^Lines executed:(.*)%\s*of\s*(\d+)\s*$/) { - $coverage{$type}->{$name}->{lines} = $2; - $coverage{$type}->{$name}->{linesCoverage} = $1; - } elsif (/^Branches executed:(.*)%\s*of\s*(\d+)\s*$/) { - $coverage{$type}->{$name}->{branches} = $2; - $coverage{$type}->{$name}->{branchesCoverage} = $1; - } elsif (/^Taken at least once:(.*)%\s*of\s*(\d+)\s*$/) { - $coverage{$type}->{$name}->{conds} = $2; - $coverage{$type}->{$name}->{condsCoverage} = $1; - } elsif (/^Calls executed:(.*)%\s*of\s*(\d+)\s*$/) { - $coverage{$type}->{$name}->{calls} = $2; - $coverage{$type}->{$name}->{callsCoverage} = $1; - } elsif (/^No branches$/) { - $coverage{$type}->{$name}->{branches} = 0; - $coverage{$type}->{$name}->{branchesCoverage} = "100.00"; - $coverage{$type}->{$name}->{conds} = 0; - $coverage{$type}->{$name}->{condsCoverage} = "100.00"; - } elsif (/^No calls$/) { - $coverage{$type}->{$name}->{calls} = 0; - $coverage{$type}->{$name}->{callsCoverage} = "100.00"; - } elsif (/^\s*(.*):creating '(.*)'\s*$/) { - $filemap{$1} = $2; - } elsif (/^\s*$/) { - # nada - } else { - warn "Shit [$_]\n"; - } -} - -my %summary; -foreach my $type ("function", "file") { - $summary{$type} = {}; - foreach my $m ("lines", "branches", "conds", "calls") { - my $totalGot = 0; - my $totalMiss = 0; - my $count = 0; - foreach my $func (keys %{$coverage{function}}) { - $count++; - my $got = $coverage{function}->{$func}->{$m}; - $totalGot += $got; - my $miss = $got * $coverage{function}->{$func}->{$m ."Coverage"} / 100; - $totalMiss += $miss; - } - $summary{$type}->{$m} = sprintf("%d", $totalGot); - $summary{$type}->{$m . "Coverage"} = sprintf("%.2f", $totalMiss / $totalGot * 100); - } -} - - - -print "<coverage>\n"; - -foreach my $type ("function", "file") { - printf "<%ss>\n", $type; - foreach my $name (sort { $a cmp $b } keys %{$coverage{$type}}) { - my $rec = $coverage{$type}->{$name}; - printf " <entry name=\"%s\" details=\"%s\">\n", $name, ($type eq "file" ? $filemap{$name} : $filemap{$rec->{file}}); - printf " <lines count=\"%s\" coverage=\"%s\"/>\n", $rec->{lines}, $rec->{linesCoverage}; - if (exists $rec->{branches}) { - printf " <branches count=\"%s\" coverage=\"%s\"/>\n", $rec->{branches}, $rec->{branchesCoverage}; - } - if (exists $rec->{conds}) { - printf " <conditions count=\"%s\" coverage=\"%s\"/>\n", $rec->{conds}, $rec->{condsCoverage}; - } - if (exists $rec->{calls}) { - printf " <calls count=\"%s\" coverage=\"%s\"/>\n", $rec->{calls}, $rec->{callsCoverage}; - } - print " </entry>\n"; - } - - printf " <summary>\n"; - printf " <lines count=\"%s\" coverage=\"%s\"/>\n", $summary{$type}->{lines}, $summary{$type}->{linesCoverage}; - printf " <branches count=\"%s\" coverage=\"%s\"/>\n", $summary{$type}->{branches}, $summary{$type}->{branchesCoverage}; - printf " <conditions count=\"%s\" coverage=\"%s\"/>\n", $summary{$type}->{conds}, $summary{$type}->{condsCoverage}; - printf " <calls count=\"%s\" coverage=\"%s\"/>\n", $summary{$type}->{calls}, $summary{$type}->{callsCoverage}; - printf " </summary>\n"; - printf "</%ss>\n", $type; -} - -print "</coverage>\n"; |