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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
#! /usr/bin/perl
#*************************************************************************
#
# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
#
# Copyright 2000, 2010 Oracle and/or its affiliates.
#
# OpenOffice.org - a multi-platform office productivity suite
#
# This file is part of OpenOffice.org.
#
# OpenOffice.org is free software: you can redistribute it and/or modify
# it under the terms of the GNU Lesser General Public License version 3
# only, as published by the Free Software Foundation.
#
# OpenOffice.org is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU Lesser General Public License version 3 for more details
# (a copy is included in the LICENSE file that accompanied this code).
#
# You should have received a copy of the GNU Lesser General Public License
# version 3 along with OpenOffice.org. If not, see
# <http://www.openoffice.org/license.html>
# for a copy of the LGPLv3 License.
#
#*************************************************************************
#
# short description :
# This Perl sciprt summarizes the number of errors and warnings in
# the set of *.res files of qatesttool.
#*************************************************************************
use File::Basename;
sub usage {
print << "EOT";
$0 - summarizes the number of errors and warnings of qatesttool
Synopsis:
$0 file...
Description:
This Perl sciprt summarizes the number of errors and warnings
reported in a set of the *.res files produced by qatesttool.
Examples:
perl make_summary.pl *.res
ls -tr *.res | xargs perl make_summary.pl
EOT
}
format STDOUT_TOP =
Filename Errors Warnings Warnings_during_initialization
============================ ====== ======== ==============================
.
format STDOUT =
@<<<<<<<<<<<<<<<<<<<<<<<<<<< @>>>>> @>>>>>> @>>>>>
$filename, $error, $warning, $warning_init
.
$num_of_files = 0;
$errors = 0;
$warnings = 0;
$wanrnings_init = 0;
sub footer {
print "==============================================================================\n";
printf("Total %2d files %2d %2d %2d\n",
$num_of_files, $errors, $warnings, $wanrnings_init);
}
sub work {
my $file = shift;
my ($line, $lineno);
open FH, "$file" or die "$!: $file, stopped";
while (<FH>) {
if (m/\%ResId=([0-9]+)\%(?:\%Arg1=(.+?)\%)?/) {
$id = $1;
$arg1 = $2;
# http://qa.openoffice.org/qatesttool/resultfile.html
# String 20014 Text[ en-US ] = "** ($Arg1) errors occurred";
# String 20015 Text[ en-US ] = "** No errors have occurred";
# String 20016 Text[ en-US ] = "** ($Arg1) warnings occurred";
# String 20017 Text[ en-US ] = "** No warnings have occurred";
# String 20023 Text[ en-US ] = "** ($Arg1) warnings occurred during initialization";
# String 20024 Text[ en-US ] = "** No warnings occurred during initialization";
$error = $arg1 + 0 if ($id eq 20014);
$error = 0 if ($id eq 20015);
$warning = $arg1 + 0 if ($id eq 20016);
$warning = 0 if ($id eq 20017);
$warning_init = $arg1 + 0 if ($id eq 20023);
$warning_init = 0 if ($id eq 20024);
}
}
close FH;
# Get only the filename, excluding the path
$filename = basename($file);
write;
$num_of_files ++;
$errors += $error;
$warnings += $warning;
$wanrnings_init += $warning_init;
}
sub main {
if (scalar(@ARGV) > 0) {
foreach $file (@ARGV) {
work($file);
}
footer();
}
else {
usage();
}
}
main();
__END__
|
