git.oblomov.eu Git - git/blob - t/t0211/scrub_perf.perl

   1 #!/usr/bin/perl
   2 #
   3 # Scrub the variable fields from the perf trace2 output to
   4 # make testing easier.
   5
   6 use strict;
   7 use warnings;
   8
   9 my $qpath = '\'[^\']*\'|[^ ]*';
  10
  11 my $col_depth=0;
  12 my $col_thread=1;
  13 my $col_event=2;
  14 my $col_repo=3;
  15 my $col_t_abs=4;
  16 my $col_t_rel=5;
  17 my $col_category=6;
  18 my $col_rest=7;
  19
  20 # This code assumes that the trace2 data was written with bare
  21 # turned on (which omits the "<clock> <file>:<line> | <parents>"
  22 # prefix.
  23
  24 while (<>) {
  25     my @tokens = split /\|/;
  26
  27     foreach my $col (@tokens) { $col =~ s/^\s+|\s+$//g; }
  28
  29     if ($tokens[$col_event] =~ m/^start/) {
  30         # The 'start' message lists the contents of argv in $col_rest.
  31         # On some platforms (Windows), argv[0] is *sometimes* a canonical
  32         # absolute path to the EXE rather than the value passed in the
  33         # shell script.  Replace it with a placeholder to simplify our
  34         # HEREDOC in the test script.
  35         my $argv0;
  36         my $argvRest;
  37         $tokens[$col_rest] =~ s/^($qpath)\W*(.*)/_EXE_ $2/;
  38     }
  39     elsif ($tokens[$col_event] =~ m/cmd_path/) {
  40         # Likewise, the 'cmd_path' message breaks out argv[0].
  41         #
  42         # This line is only emitted when RUNTIME_PREFIX is defined,
  43         # so just omit it for testing purposes.
  44         # $tokens[$col_rest] = "_EXE_";
  45         goto SKIP_LINE;
  46     }
  47     elsif ($tokens[$col_event] =~ m/cmd_ancestry/) {
  48         # 'cmd_ancestry' is platform-specific and not implemented everywhere,
  49         # so skip it.
  50         goto SKIP_LINE;
  51     }
  52     elsif ($tokens[$col_event] =~ m/child_exit/) {
  53         $tokens[$col_rest] =~ s/ pid:\d* / pid:_PID_ /;
  54     }
  55     elsif ($tokens[$col_event] =~ m/data/) {
  56         if ($tokens[$col_category] =~ m/process/) {
  57             # 'data' and 'data_json' events containing 'process'
  58             # category data are assumed to be platform-specific
  59             # and highly variable.  Just omit them.
  60             goto SKIP_LINE;
  61         }
  62     }
  63
  64     # t_abs and t_rel are either blank or a float.  Replace the float
  65     # with a constant for matching the HEREDOC in the test script.
  66     if ($tokens[$col_t_abs] =~ m/\d/) {
  67         $tokens[$col_t_abs] = "_T_ABS_";
  68     }
  69     if ($tokens[$col_t_rel] =~ m/\d/) {
  70         $tokens[$col_t_rel] = "_T_REL_";
  71     }
  72
  73     my $out;
  74
  75     $out = join('|', @tokens);
  76     print "$out\n";
  77
  78   SKIP_LINE:
  79 }
  80
  81