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
64
65
66
67
68
69
70
71
72
73
74
|
#!/usr/bin/perl -w
=head1 NAME
test2tasks.pl - Convert QTest logs into Qt Creator task files.
=head1 SYNOPSIS
test2tasks.pl < logfile > taskfile
The script needs to be run in the working directory from which the test log was
obtained as it attempts to perform a mapping from the source file base names of
the test log to relative path names by searching the files.
=cut
use strict;
use File::Find;
# -- Build a hash from source file base name to relative paths.
my %fileHash;
sub handleFile
{
my $file = $_;
return unless index($file, '.cpp') != -1 && -f $file;
# './file' -> 'file'
$fileHash{$file} = substr($File::Find::name, 0, 1) eq '.' ? substr($File::Find::name, 2) : $File::Find::name;
}
find({ wanted => \& handleFile}, '.');
# --- Find file locations and format them with the cause of the error
# from the above lines as task entry.
my $lastLine = '';
my ($failCount, $fatalCount) = (0, 0);
while (my $line = <STDIN> ) {
chomp($line);
# --- Continuation line?
if (substr($line, 0, 1) eq ' ' && index($line, 'Loc: [') < 0) {
$lastLine .= $line;
next;
}
# --- extract file name based matching:
# Windows: '[..\].\tst_lancelot.cpp(258) : failure location'
# Unix: ' Loc: [file(1596)]'
if ($line =~ /^([^(]+)\((\d+)\) : failure location$/
|| $line =~ /^\s*Loc:\s*\[([^(]+)\((\d+)\).*$/) {
my $fullFileName = $1;
my $line = $2;
if (index($fullFileName, '/') != 0) { # Unix has absolute file names, Windows may not
my $slashPos = rindex($fullFileName, '/');
$slashPos = rindex($fullFileName, "\\") if $slashPos < 0;
my $fileName = $slashPos > 0 ? substr($1, $slashPos + 1) : $fullFileName;
$fullFileName = $fileHash{$fileName};
$fullFileName = $fileName unless defined $fullFileName;
}
my $type = index($lastLine, 'FAIL') == 0 ? 'err' : 'unknown';
print $fullFileName, "\t", $line, "\t", $type, "\t", $lastLine,"\n";
$failCount++;
} else {
if (index($line, 'QFATAL') == 0 || index($line, 'Received a fatal error.') >= 0) {
print STDERR $line,"\n";
$fatalCount++;
}
}
$lastLine = $line;
}
print STDERR 'Done, FAIL: ',$failCount, ', FATAL: ',$fatalCount, "\n";
|