Francois Gouget : winetest/build-patterns: Store an 'is wine' flag in the report structure.

[Alexandre Julliard]

Module: tools
Branch: master
Commit: c3e23ab6e1c1a2fac56d0795dc51fac21f6f4499
URL:    https://source.winehq.org/git/tools.git/?a=commit;h=c3e23ab6e1c1a2fac56d0795...

Author: Francois Gouget 
Date:   Thu May  6 14:21:56 2021 +0200

winetest/build-patterns: Store an 'is wine' flag in the report structure.

This groups all the tag parsing aspects in one place and is useful to
check if a pattern contains Wine reports.

Signed-off-by: Francois Gouget 
Signed-off-by: Alexandre Julliard

---

winetest/build-patterns | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/winetest/build-patterns b/winetest/build-patterns
index a5f98f5..d16050d 100755
--- a/winetest/build-patterns
+++ b/winetest/build-patterns
@@ -322,12 +322,14 @@ foreach my $build (@sortedbuilds)
         if (!$report)
         {
             my ($platform, $tag, $num) = split /_/, $reportdir;
+            my $is_wine = ($platform =~ /^(?:linux|mac|bsd|solaris|wine)$/);
             $report = {
                 dir => $reportdir,
                 platform => $platform,
                 tag => $tag,
                 num => $num,
                 is_rerun => ($num ? 1 : 0),
+                is_wine => $is_wine,
             };
             $reports{$reportdir} = $report;
         }
@@ -1028,7 +1030,7 @@ foreach my $report (values %reports)
     }
     # Windows and Wine have different failure modes so put them on separate
     # pages.
-    my $page = ($report->{platform} =~ /^(?:linux|mac|bsd|solaris|wine)$/) ? "wine" : "win";
+    my $page = $report->{is_wine} ? "wine" : "win";
     $tbreports{$page}->{$report->{dir}} = 1;
 }