diff options
Diffstat (limited to 'tests/gcov-filter.pl')
-rw-r--r-- | tests/gcov-filter.pl | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/tests/gcov-filter.pl b/tests/gcov-filter.pl deleted file mode 100644 index f0d2019..0000000 --- a/tests/gcov-filter.pl +++ /dev/null @@ -1,36 +0,0 @@ -#!/usr/bin/perl - -sub funcinfo -{ - my ($name, $info) = @_; - - return if ($info =~ /No executable lines/); - - my $lines = ($info =~ /Lines executed:([^%]+)%/) ? $1 : 100; - my $calls = ($info =~ /Calls executed:([^%]+)%/) ? $1 : 100; - my $branches = ($info =~ /Branches executed:([^%]+)%/) ? $1 : 100; - my $taken = ($info =~ /Taken at least once:([^%]+)%/) ? $1 : 100; - - return if ($lines == 100 && $calls == 100 && $branches == 100 && $taken == 100); - - return "Function $name: L $lines, C $calls, B $branches, BT $taken\n"; -} - -$prefix = join(' ', @ARGV); -$prefix .= ' ' if ($prefix ne ''); - -$lines = join('', <STDIN>); - -# merge file information -$lines =~ s/File (.+)\nLines (.+)\n(.+\n)*\n/$1 $2\n/g; - -# merge function information -$lines =~ s/Function (.+)\n((.+\n)*)\n/funcinfo($1, $2)/eg; - -# remove include information -$lines =~ s/.+include\/c\+\+.+\n//g; - -foreach $line (split /\n/, $lines) -{ - print "$prefix$line\n"; -} |