tests/gcov-filter.pl


1
2
3
4
5
6
7

#!/usr/bin/perl

$lines = join('', <>);
$lines =~ s/File (.+)\nLines (.+)\n(.+\n)*\n/$1 $2\n/g;
$lines =~ s/.+include\/c\+\+.+\n//g;

print $lines;