Ignore /usr/include in coverage reports

diff --git a/ChangeLog b/ChangeLog
index 909b6c9dc8ff4527cb16a316a793f9c57f02cda4..1c589bfeb34cdaae3645225fc512a0d986deb933 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,4 +1,9 @@
-Tue Jul 25 19:13:43 EST 2007 Daniel P. berrange <berrange@redhat.com>
+Wed Jul 25 19:16:43 EST 2007 Daniel P. berrange <berrange@redhat.com>
+
+       * scripts/coverage-report.pl: Ignore data from inlined macros
+       in /usr/include files
+
+Wed Jul 25 19:13:43 EST 2007 Daniel P. berrange <berrange@redhat.com>
 
        * src/nodeinfo.h, src/nodeinfo.c: Generic impl of virNodeGetInfo
        * src/qemu_driver.c, src/openvz_driver: Switch to generic impl

diff --git a/scripts/coverage-report.pl b/scripts/coverage-report.pl
index e67ecf9e74fee9a10d875a7a50b6548b936df3b8..1001aa4ad5cc70ea4682a312989947eefc1feecd 100644 (file)
--- a/scripts/coverage-report.pl
+++ b/scripts/coverage-report.pl
@@ -27,7 +27,18 @@
 use warnings;
 use strict;
 
-my %coverage = ( functions => {}, files => {} );
+my %coverage = ( function => {}, file => {} );
+
+my @functionBlackList = (
+                        "__memcpy",
+                        "__memmove",
+                        "__memset",
+                        "__strcat",
+                        "__strcpy",
+                        "__strncpy",
+                        "__strsep",
+                        "__strtok"
+                     );
 
 my %filemap;
 
@@ -88,6 +99,12 @@ foreach my $type ("function", "file") {
        my $totalMiss = 0;
        my $count = 0;
        foreach my $func (keys %{$coverage{function}}) {
+           my $blacklisted = 0;
+           foreach my $blackName (@functionBlackList) {
+               $blacklisted = 1 if $func =~ /^$blackName/;
+           }
+           next if $blacklisted;
+
            $count++;
            my $got = $coverage{function}->{$func}->{$m};
            $totalGot += $got;
@@ -110,6 +127,16 @@ print "<coverage>\n";
 foreach my $type ("function", "file") {
     printf "<%ss>\n", $type;
     foreach my $name (sort { $a cmp $b } keys %{$coverage{$type}}) {
+       if ($type eq "file") {
+           next if $name =~ m,^/usr,;
+       } else {
+           my $blacklisted = 0;
+           foreach my $blackName (@functionBlackList) {
+               $blacklisted = 1 if $name =~ /^$blackName/;
+           }
+           next if $blacklisted;
+       }
+
        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};