[Tools 5/7] winetest: What dissect and gather support depends on their code. So it makes no sense to put $fileversion in a configuration file. Also modify dissect to distinguish the supported report version from the version of the produced summary file.

Francois Gouget fgouget at free.fr
Fri Mar 14 13:58:15 CDT 2008


---
 winetest/dissect       |   11 ++++++++---
 winetest/gather        |    7 +++++--
 winetest/winetest.conf |    3 ---
 3 files changed, 13 insertions(+), 8 deletions(-)

diff --git a/winetest/dissect b/winetest/dissect
index 46b8970..b3e9a56 100755
--- a/winetest/dissect
+++ b/winetest/dissect
@@ -29,12 +29,17 @@
 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
 use strict;
-use vars qw/$builds $queuedir $datadir $maxmult $fileversion $maxfilesize/;
+use vars qw/$builds $queuedir $datadir $maxmult $maxfilesize/;
 require "winetest.conf";
 
 my $name0=$0;
 $name0 =~ s+^.*/++;
 
+# We support reports version 4 and up
+my $minimum_report_version=4;
+# And we generate summary files version 4
+my $summary_version=4;
+
 
 use File::Temp qw/tempdir/;
 use Errno qw/ENOTEMPTY/;
@@ -65,8 +70,8 @@ my $filesize = -s "$report";
 
 $_ = <IN>;
 /^Version (\d+)\r?$/ or mydie "no version header: $_";
-$1 eq $fileversion or mydie "illegal version: $1\n";
-print SUM "Version $fileversion\n";
+mydie "illegal version: $1\n" if ($1 lt $minimum_report_version);
+print SUM "Version $summary_version\n";
 
 $_ = <IN>;
 /^Tests from build ([-.0-9a-zA-Z]+)\r?$/ or mydie "no build header: $_";
diff --git a/winetest/gather b/winetest/gather
index 8a5588f..a84e5be 100755
--- a/winetest/gather
+++ b/winetest/gather
@@ -27,12 +27,15 @@
 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
 use strict;
-use vars qw/$datadir $fileversion/;
+use vars qw/$datadir/;
 require "winetest.conf";
 
 my $name0=$0;
 $name0 =~ s+^.*/++;
 
+# We support summary files version 4 and up
+my $summary_version=4;
+
 
 # Group result containers:
 #  name        Group name
@@ -116,7 +119,7 @@ foreach my $file (glob "$datadir/$build/*/summary.txt") {
         print STDERR "$name0:error: unable to open '$file' for reading: $!\n";
         next;
     }
-    if (($_ = <TEST>) ne "Version $fileversion\n") {
+    if (($_ = <TEST>) ne "Version $summary_version\n") {
         print STDERR "$name0:error: wrong header in '$file': $_";
         close TEST;
         next;
diff --git a/winetest/winetest.conf b/winetest/winetest.conf
index d7ffb69..a7ddf3f 100644
--- a/winetest/winetest.conf
+++ b/winetest/winetest.conf
@@ -9,9 +9,6 @@ $datadir  = "$root/data";
 # Maximum number of reports for one version and tag
 $maxmult = 10;
 
-# File version number
-$fileversion = 4;
-
 # Maximum size of the report file
 # This should be in line with programs\winetest\send.c
 $maxfilesize = 1.5 * 1024 * 1024;
-- 
1.5.4.1




More information about the wine-patches mailing list