diff options
Diffstat (limited to 'third_party/git/t/t0211/scrub_perf.perl')
-rw-r--r-- | third_party/git/t/t0211/scrub_perf.perl | 76 |
1 files changed, 0 insertions, 76 deletions
diff --git a/third_party/git/t/t0211/scrub_perf.perl b/third_party/git/t/t0211/scrub_perf.perl deleted file mode 100644 index 351af7844ed9..000000000000 --- a/third_party/git/t/t0211/scrub_perf.perl +++ /dev/null @@ -1,76 +0,0 @@ -#!/usr/bin/perl -# -# Scrub the variable fields from the perf trace2 output to -# make testing easier. - -use strict; -use warnings; - -my $qpath = '\'[^\']*\'|[^ ]*'; - -my $col_depth=0; -my $col_thread=1; -my $col_event=2; -my $col_repo=3; -my $col_t_abs=4; -my $col_t_rel=5; -my $col_category=6; -my $col_rest=7; - -# This code assumes that the trace2 data was written with bare -# turned on (which omits the "<clock> <file>:<line> | <parents>" -# prefix. - -while (<>) { - my @tokens = split /\|/; - - foreach my $col (@tokens) { $col =~ s/^\s+|\s+$//g; } - - if ($tokens[$col_event] =~ m/^start/) { - # The 'start' message lists the contents of argv in $col_rest. - # On some platforms (Windows), argv[0] is *sometimes* a canonical - # absolute path to the EXE rather than the value passed in the - # shell script. Replace it with a placeholder to simplify our - # HEREDOC in the test script. - my $argv0; - my $argvRest; - $tokens[$col_rest] =~ s/^($qpath)\W*(.*)/_EXE_ $2/; - } - elsif ($tokens[$col_event] =~ m/cmd_path/) { - # Likewise, the 'cmd_path' message breaks out argv[0]. - # - # This line is only emitted when RUNTIME_PREFIX is defined, - # so just omit it for testing purposes. - # $tokens[$col_rest] = "_EXE_"; - goto SKIP_LINE; - } - elsif ($tokens[$col_event] =~ m/child_exit/) { - $tokens[$col_rest] =~ s/ pid:\d* / pid:_PID_ /; - } - elsif ($tokens[$col_event] =~ m/data/) { - if ($tokens[$col_category] =~ m/process/) { - # 'data' and 'data_json' events containing 'process' - # category data are assumed to be platform-specific - # and highly variable. Just omit them. - goto SKIP_LINE; - } - } - - # t_abs and t_rel are either blank or a float. Replace the float - # with a constant for matching the HEREDOC in the test script. - if ($tokens[$col_t_abs] =~ m/\d/) { - $tokens[$col_t_abs] = "_T_ABS_"; - } - if ($tokens[$col_t_rel] =~ m/\d/) { - $tokens[$col_t_rel] = "_T_REL_"; - } - - my $out; - - $out = join('|', @tokens); - print "$out\n"; - - SKIP_LINE: -} - - |