From 0dd0b4c496c69f47078de58a3c42939a885ddd6b Mon Sep 17 00:00:00 2001 From: "arseny.kapoulkine" Date: Sun, 29 Aug 2010 15:46:30 +0000 Subject: tests: Introduced fullcoverage mode git-svn-id: http://pugixml.googlecode.com/svn/trunk@688 99668b35-9821-0410-8761-19e4c4f06640 --- tests/gcov-filter.pl | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) (limited to 'tests') diff --git a/tests/gcov-filter.pl b/tests/gcov-filter.pl index c68aa1f..f0d2019 100644 --- a/tests/gcov-filter.pl +++ b/tests/gcov-filter.pl @@ -1,10 +1,33 @@ #!/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('', ); + +# 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) -- cgit v1.2.3