Francois Gouget : testbot: Add support for Wine's PARENTSRC.

[Alexandre Julliard]

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

Author: Francois Gouget 
Date:   Tue Nov 13 16:43:47 2018 +0100

testbot: Add support for Wine's PARENTSRC.

This lets the TestBot take into account that modifying the source in a
'PARENTSRC' module affects the code of other modules. This impacts the
time it takes to rebuild Wine and the tests to be rerun with the
test=module option.

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

---

testbot/lib/WineTestBot/PatchUtils.pm | 29 ++++++++++++++++++++++++-----
 1 file changed, 24 insertions(+), 5 deletions(-)

diff --git a/testbot/lib/WineTestBot/PatchUtils.pm b/testbot/lib/WineTestBot/PatchUtils.pm
index 6009264..f72cef5 100644
--- a/testbot/lib/WineTestBot/PatchUtils.pm
+++ b/testbot/lib/WineTestBot/PatchUtils.pm
@@ -60,13 +60,14 @@ sub UpdateWineData($)

mkdir "$DataDir/latest" if (!-d "$DataDir/latest");

-  my $ErrMessage = `cd '$WineDir' && git ls-tree -r --name-only HEAD 2>&1 >'$DataDir/latest/winefiles.txt'`;
-  return $ErrMessage if ($? != 0);
+  my $ErrMessage = `cd '$WineDir' && git ls-tree -r --name-only HEAD 2>&1 >'$DataDir/latest/winefiles.txt' && egrep '^PARENTSRC *=' dlls/*/Makefile.in programs/*/Makefile.in >'$DataDir/latest/wine-parentsrc.txt'`;
+  return $? != 0 ? $ErrMessage : undef;
 }

my $_TimeStamp;
 my $_WineFiles;
 my $_TestList;
+my $_WineParentDirs;

=pod
 =over 12
@@ -111,6 +112,21 @@ sub _LoadWineFiles()
     }
     close($fh);
   }
+
+  $_WineParentDirs = {};
+  $FileName = "$DataDir/latest/wine-parentsrc.txt";
+  if (open(my $fh, "<", $FileName))
+  {
+    while (my $Line = <$fh>)
+    {
+      if ($Line =~ m~^\w+/([^/]+)/Makefile.in:PARENTSRC *= *../([^/\s]+)~)
+      {
+        my ($Child, $Parent) = ($1, $2);
+        $_WineParentDirs->{$Parent}->{$Child} = 1;
+      }
+    }
+    close($fh);
+  }
 }

@@ -212,11 +228,14 @@ sub _HandleFile($$$)
   }
   elsif ($FilePath =~ m~^(dlls|programs)/([^/]+)/([^/\s]+)$~)
   {
-    my ($Root, $Dir, $File) = ($1, $2, $3);
+    my ($Root, $PatchedDir, $File) = ($1, $2, $3);

-    my $Module = _CreateTestInfo($Impacts, $Root, $Dir);
+    foreach my $Dir ($PatchedDir, keys %{$_WineParentDirs->{$PatchedDir} || {}})
+    {
+      my $Module = _CreateTestInfo($Impacts, $Root, $Dir);
+      $Impacts->{Tests}->{$Module}->{PatchedModule} = 1;
+    }
     $Impacts->{PatchedModules} = 1;
-    $Impacts->{Tests}->{$Module}->{PatchedModule} = 1;

if ($File eq "Makefile.in" and $Change ne "modify")
     {