Francois Gouget : winetest/build-patterns: Show the list a test pattern is in.

[Alexandre Julliard]

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

Author: Francois Gouget <fgouget at codeweavers.com>
Date:   Thu Jul  1 19:25:41 2021 +0200

winetest/build-patterns: Show the list a test pattern is in.

Signed-off-by: Francois Gouget <fgouget at codeweavers.com>
Signed-off-by: Alexandre Julliard <julliard at winehq.org>

---

 winetest/build-patterns | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/winetest/build-patterns b/winetest/build-patterns
index e3174b2..da7272e 100755
--- a/winetest/build-patterns
+++ b/winetest/build-patterns
@@ -382,7 +382,6 @@ foreach my $build (@sortedbuilds)
             $tests{$testname} = $test = {
                 id => $testname,
                 name => $testname,
-                title => "<a href='tests/$testname.html'>$testname</a>",
                 source => $source,
             };
             $testsources{$source} = 1;
@@ -1236,7 +1235,13 @@ sub write_patterns_list($$$$)
         my $test = $tests{$testname};
 
         print $html "<div class='testfile' id='$test->{id}'>\n";
-        print $html "<div class='updownbar'>$test->{title}";
+        my $title = $test->{title};
+        if (!$test->{title})
+        {
+            my $tooltip = $list->{title} ? " title='$list->{title}'" : "";
+            $title = "<a href='tests/$testname.html'$tooltip>$testname</a>";
+        }
+        print $html "<div class='updownbar'>$title";
         print $html "<div class='ralign'>";
         if ($mainpage)
         {