Francois Gouget : winetest/dissect: Link test units to the matching failure pattern.

[Alexandre Julliard]

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

Author: Francois Gouget 
Date:   Tue Apr 27 12:45:10 2021 +0200

winetest/dissect: Link test units to the matching failure pattern.

If a test unit had a failure it will appear in the global failure
patterns page. So add a link.

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

---

winetest/dissect | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/winetest/dissect b/winetest/dissect
index 3e91a8d..ea76cb8 100755
--- a/winetest/dissect
+++ b/winetest/dissect
@@ -625,6 +625,7 @@ sub close_test_unit($)
     $failures += $extra_failures;
     $summary = "$s_total $todo $failures $skipped" if (!defined $summary);
     print SUM "- $dll $unit $summary $source\n";
+    $testbox->{pattern} = "$dll:$unit" if ($failures);
     if ($failures && ++$failed_units > $maxfailedtests) {
         mydie "too many failed test units (>$maxfailedtests at $dll:$unit)";
     }
@@ -963,6 +964,10 @@ for (my $i = 0; $i <= $#boxes; $i++)
 {
     printf REPORT "<div id="%s" class="%s">\n", $boxes[$i]->{id}, $boxes[$i]->{class};
     printf REPORT "<div class="updownbar">%s<div class='ralign'>", $boxes[$i]->{title};
+    if ($boxes[$i]->{pattern})
+    {
+        printf REPORT "<a href="/data/patterns.html#%s">pattern</a> | ", $boxes[$i]->{pattern};
+    }
     if ($boxes[$i]->{testname})
     {
         printf REPORT "<a href='/data/tests/%s.html'>all results</a> | ", $boxes[$i]->{testname};
@@ -993,12 +998,16 @@ for (my $i = 0; $i <= $#boxes; $i++)
     print FILE "<a href="..">summary</a> | <a href="../..">index</a></div>\n";

printf FILE "<div id="%s" class="%s">\n", $boxes[$i]->{id}, $boxes[$i]->{class};
-    printf FILE "<div class="updownbar">%s", $boxes[$i]->{title};
+    printf FILE "<div class="updownbar">%s<div class='ralign'>", $boxes[$i]->{title};
+    if ($boxes[$i]->{pattern})
+    {
+        printf FILE "<a href="/data/patterns.html#%s">pattern</a> | ", $boxes[$i]->{pattern};
+    }
     if ($boxes[$i]->{testname})
     {
-        printf FILE "<div class='ralign'><a href='/data/tests/%s.html'>all results</a></div>", $boxes[$i]->{testname};
+        printf FILE "<a href='/data/tests/%s.html'>all results</a>", $boxes[$i]->{testname};
     }
-    print FILE "</div>\n";
+    print FILE "</div></div>\n";
     print FILE $boxes[$i]->{data}, "</div>\n";
     print FILE end_html();
     close FILE or mydie "error writing to '$tmpdir/$boxes[$i]->{id}.html': $!";