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 <fgouget(a)codeweavers.com>
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 <fgouget(a)codeweavers.com>
Signed-off-by: Alexandre Julliard <julliard(a)winehq.org>

---

 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\">↑</a>", $boxes[$i]->{prev} if defined $boxes[$i]->{prev};
     printf REPORT "<a href=\"#%s\">↓</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': $!";