summaryrefslogtreecommitdiff
path: root/mysql-test/lib/process-purecov-annotations.pl
blob: d533bd02fd60cae75a04e2eb2887956657a45ce6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
#!/usr/bin/perl
# -*- cperl -*-

# This script processes a .gcov coverage report to honor purecov 
# annotations: lines marked as inspected or as deadcode are changed
# from looking like lines with code that was never executed to look
# like lines that have no executable code.

use strict;
use warnings;

foreach my $in_file_name ( @ARGV )
{
  my $out_file_name=$in_file_name . ".tmp";
  my $skipping=0;

  open(IN, "<", $in_file_name) || next;
  open(OUT, ">", $out_file_name);
  while(<IN>)
  {
    my $line= $_;
    my $check= $line;
    
    # process purecov: start/end multi-blocks
    my $started=0;
    my $ended= 0;
    while (($started=($check =~ s/purecov: *begin *(deadcode|inspected)//)) ||
           ($ended=($check =~ s/purecov: *end//)))
    {
      $skipping= $skipping + $started - $ended;
    }
    if ($skipping < 0)
    {
       print OUT "WARNING: #####: incorrect order of purecov begin/end annotations\n";
       $skipping= 0;
    }
    
    # Besides purecov annotations, also remove uncovered code mark from cases
    # like the following:
    # 
    #     -:  211:*/
    #     -:  212:class Field_value : public Value_dep
    # #####:  213:{
    #     -:  214:public:
    #
    # I have no idea why would gcov think there is uncovered code there
    #
    my @arr= split(/:/, $line);
    if ($skipping || $line =~ /purecov: *(inspected|deadcode)/ || 
        $arr[2] =~ m/^{ *$/)
    {
      # Change '####' to '-'.
      $arr[0] =~ s/#####/    -/g;
      $line= join(":", @arr);
    }
    print OUT $line;
  }
  close(IN);
  close(OUT);
  system("mv", "-f", $out_file_name, $in_file_name);
}