Francois Gouget : winetest/dissect: Link the report pages to the test index pages.

[Alexandre Julliard]

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

Author: Francois Gouget 
Date:   Tue Apr 27 12:44:56 2021 +0200

winetest/dissect: Link the report pages to the test index pages.

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

---

winetest/dissect | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/winetest/dissect b/winetest/dissect
index 0ae7251..3e91a8d 100755
--- a/winetest/dissect
+++ b/winetest/dissect
@@ -562,7 +562,9 @@ sub create_test_unit_box()
     {
         $dllinfo{$dll}->{first} = "$dll:$unit";
     }
-    return create_box("$dll:$unit", "testfile", get_source_link(undef, undef));
+    my $box = create_box("$dll:$unit", "testfile", get_source_link(undef, undef));
+    $box->{testname} = "$dll:$unit";
+    return $box;
 }

sub close_test_unit($)
@@ -961,6 +963,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]->{testname})
+    {
+        printf REPORT "<a href='/data/tests/%s.html'>all results</a> | ", $boxes[$i]->{testname};
+    }
     printf REPORT "<a href="#%s">&uarr;</a>", $boxes[$i]->{prev} if defined $boxes[$i]->{prev};
     printf REPORT "<a href="#%s">&darr;</a>", $boxes[$i]->{next} if defined $boxes[$i]->{next};
     print REPORT "</div></div>\n";
@@ -987,7 +993,12 @@ 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</div>\n", $boxes[$i]->{title};
+    printf FILE "<div class="updownbar">%s", $boxes[$i]->{title};
+    if ($boxes[$i]->{testname})
+    {
+        printf FILE "<div class='ralign'><a href='/data/tests/%s.html'>all results</a></div>", $boxes[$i]->{testname};
+    }
+    print FILE "</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': $!";