Merge branch 'nd/submodule-foreach-quiet'
[git] / t / t0210 / scrub_normal.perl
1 #!/usr/bin/perl
2 #
3 # Scrub the variable fields from the normal trace2 output to
4 # make testing easier.
5
6 use strict;
7 use warnings;
8
9 my $float = '[0-9]*\.[0-9]+([eE][-+]?[0-9]+)?';
10
11 # This code assumes that the trace2 data was written with bare
12 # turned on (which omits the "<clock> <file>:<line>" prefix.
13
14 while (<>) {
15     # Various messages include an elapsed time in the middle
16     # of the message.  Replace the time with a placeholder to
17     # simplify our HEREDOC in the test script.
18     s/elapsed:$float/elapsed:_TIME_/g;
19
20     my $line = $_;
21
22     # we expect:
23     #    start <argv0> [<argv1> [<argv2> [...]]]
24     #
25     # where argv0 might be a relative or absolute path, with
26     # or without quotes, and platform dependent.  Replace argv0
27     # with a token for HEREDOC matching in the test script.
28
29     if ($line =~ m/^start/) {
30         $line =~ /^start\s+(.*)/;
31         my $argv = $1;
32         $argv =~ m/(\'[^\']*\'|[^ ]+)\s+(.*)/;
33         my $argv_0 = $1;
34         my $argv_rest = $2;
35
36         print "start _EXE_ $argv_rest\n";
37     }
38     elsif ($line =~ m/^cmd_path/) {
39         # Likewise, the 'cmd_path' message breaks out argv[0].
40         #
41         # This line is only emitted when RUNTIME_PREFIX is defined,
42         # so just omit it for testing purposes.
43         # print "cmd_path _EXE_\n";
44     }
45     else {
46         print "$line";
47     }
48 }