Francois Gouget : testbot/PatchUtils: Add support for .com program tests.

[Alexandre Julliard]

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

Author: Francois Gouget <fgouget at codeweavers.com>
Date:   Fri Jan  8 02:57:04 2021 +0100

testbot/PatchUtils: Add support for .com program tests.

Wine-Bug: https://bugs.winehq.org/show_bug.cgi?id=48090
Signed-off-by: Francois Gouget <fgouget at codeweavers.com>
Signed-off-by: Alexandre Julliard <julliard at winehq.org>

---

 testbot/lib/WineTestBot/PatchUtils.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/testbot/lib/WineTestBot/PatchUtils.pm b/testbot/lib/WineTestBot/PatchUtils.pm
index df31a09..dbd14f2 100644
--- a/testbot/lib/WineTestBot/PatchUtils.pm
+++ b/testbot/lib/WineTestBot/PatchUtils.pm
@@ -177,7 +177,8 @@ sub _CreateTestInfo($$$)
 {
   my ($Impacts, $Root, $Dir) = @_;
 
-  my $Module = ($Root eq "programs") ? "$Dir.exe" : $Dir;
+  # Don't add an extension to programs that have one already
+  my $Module = ($Root eq "programs" and $Dir !~ /\./) ? "$Dir.exe" : $Dir;
   $Impacts->{BuildModules}->{$Module} = 1;
   $Impacts->{IsWinePatch} = 1;