diff options
author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-05-06 00:45:20 +0000 |
---|---|---|
committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-05-06 00:45:20 +0000 |
commit | 9a08cbfcc1ef900a04580f35afe2a4592d7d6030 (patch) | |
tree | 004cc7027bca2f2c0bcb5806527c8e0c48df2d6e /doc/lcov-inject.pl | |
parent | Initial commit. (diff) | |
download | dpkg-upstream.tar.xz dpkg-upstream.zip |
Adding upstream version 1.19.8.upstream/1.19.8upstream
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'doc/lcov-inject.pl')
-rwxr-xr-x | doc/lcov-inject.pl | 99 |
1 files changed, 99 insertions, 0 deletions
diff --git a/doc/lcov-inject.pl b/doc/lcov-inject.pl new file mode 100755 index 0000000..12b78bd --- /dev/null +++ b/doc/lcov-inject.pl @@ -0,0 +1,99 @@ +#!/usr/bin/perl +# +# lcov-inject.pl +# +# Copyright © 2014 Guillem Jover <guillem@debian.org> +# +# 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, see <https://www.gnu.org/licenses/>. +# + +use strict; +use warnings; + +use Cwd; +use Devel::Cover::DB; + +my $dir = 'scripts'; +my $cwd = getcwd(); + +chdir $dir or die "cannot switch to $dir\n"; + +my $db = Devel::Cover::DB->new(db => 'cover_db'); +$db = $db->merge_runs(); +$db->calculate_summary(map { $_ => 1 } $db->collected()); + +chdir $cwd or die "cannot switch to $cwd\n"; + +my $s = $db->{summary}{Total}; + +my $tmpl = sprintf ' + <td class="coverFile"><a href="%s">%s</a></td> + <td class="coverBar" align="center"> + <table border=0 cellspacing=0 cellpadding=1> + <tr><td class="coverBarOutline">%s</td></tr> + </table> + </td> + %s + %s + %s + </tr> + <tr> +', "$dir/coverage.html", $dir, bar_html($s->{total}{percentage}), + box_html($s->{total}), box_html($s->{subroutine}), box_html($s->{branch}); + +while (<>) { + s/^(.*<td .*href="src\/index\.html">.*)$/$tmpl$1/; + print; +} + +sub bar_image { + my ($num) = @_; + + return 'emerald.png' if $num >= 90; + return 'ruby.png' if $num < 75; + return 'amber.png'; +} + +sub bar_html { + my ($num) = @_; + + my $html = sprintf '<img src="%s" width=%.0f height=10 alt="%.1f">', + bar_image($num), $num, $num; + + if ($num < 100) { + $html .= sprintf '<img src="snow.png" width=%.0f height=10 alt="%.1f">', + 100 - $num, $num; + } + + return $html; +} + +sub box_rating { + my ($num) = @_; + + return 'Hi' if $num >= 90; + return 'Lo' if $num < 75; + return 'Med'; +} + +sub box_html { + my ($stats) = @_; + + return sprintf '<td class="coverPer%s">%.1f %%</td>' . "\n" . + '<td class="coverNum%s">%d / %d</td>', + box_rating($stats->{percentage}), $stats->{percentage}, + box_rating($stats->{percentage}), $stats->{covered}, $stats->{total}; +} + +1; |