December 2022 - Wine-commits

Alexandre Julliard : include: Use proper dllimports for version functions.
by Alexandre Julliard 07 Dec '22

07 Dec '22

Module: wine Branch: master Commit: a1f0d535e0b6c7b12f3262a195a798ff35a403ea URL: https://gitlab.winehq.org/wine/wine/-/commit/a1f0d535e0b6c7b12f3262a195a798… Author: Alexandre Julliard <julliard(a)winehq.org> Date: Wed Dec 7 11:07:43 2022 +0100 include: Use proper dllimports for version functions. --- include/winver.h | 49 +++++++++++++++++++++++++------------------------ 1 file changed, 25 insertions(+), 24 deletions(-) diff --git a/include/winver.h b/include/winver.h index b40a566ea4a..007877e8e4d 100644 --- a/include/winver.h +++ b/include/winver.h @@ -31,30 +31,31 @@ extern "C" { /* function prototypes */ -DWORD WINAPI VerFindFileA(DWORD,LPCSTR,LPCSTR,LPCSTR,LPSTR,PUINT,LPSTR,PUINT); -DWORD WINAPI VerFindFileW(DWORD,LPCWSTR,LPCWSTR,LPCWSTR,LPWSTR,PUINT,LPWSTR,PUINT); -#define VerFindFile WINELIB_NAME_AW(VerFindFile) -DWORD WINAPI VerInstallFileA(DWORD,LPCSTR,LPCSTR,LPCSTR,LPCSTR,LPCSTR,LPSTR,PUINT); -DWORD WINAPI VerInstallFileW(DWORD,LPCWSTR,LPCWSTR,LPCWSTR,LPCWSTR,LPCWSTR,LPWSTR,PUINT); -#define VerInstallFile WINELIB_NAME_AW(VerInstallFile) -DWORD WINAPI VerLanguageNameA(DWORD,LPSTR,DWORD); -DWORD WINAPI VerLanguageNameW(DWORD,LPWSTR,DWORD); -#define VerLanguageName WINELIB_NAME_AW(VerLanguageName) -BOOL WINAPI VerQueryValueA(LPCVOID,LPCSTR,LPVOID*,PUINT); -BOOL WINAPI VerQueryValueW(LPCVOID,LPCWSTR,LPVOID*,PUINT); -#define VerQueryValue WINELIB_NAME_AW(VerQueryValue) -DWORD WINAPI GetFileVersionInfoSizeA(LPCSTR,LPDWORD); -DWORD WINAPI GetFileVersionInfoSizeW(LPCWSTR,LPDWORD); -#define GetFileVersionInfoSize WINELIB_NAME_AW(GetFileVersionInfoSize) -BOOL WINAPI GetFileVersionInfoA(LPCSTR,DWORD,DWORD,LPVOID); -BOOL WINAPI GetFileVersionInfoW(LPCWSTR,DWORD,DWORD,LPVOID); -#define GetFileVersionInfo WINELIB_NAME_AW(GetFileVersionInfo) -DWORD WINAPI GetFileVersionInfoSizeExA(DWORD,LPCSTR,LPDWORD); -DWORD WINAPI GetFileVersionInfoSizeExW(DWORD,LPCWSTR,LPDWORD); -#define GetFileVersionInfoSizeEx WINELIB_NAME_AW(GetFileVersionInfoSizeEx) -BOOL WINAPI GetFileVersionInfoExA(DWORD,LPCSTR,DWORD,DWORD,LPVOID); -BOOL WINAPI GetFileVersionInfoExW(DWORD,LPCWSTR,DWORD,DWORD,LPVOID); -#define GetFileVersionInfoEx WINELIB_NAME_AW(GetFileVersionInfoEx) +DWORD WINAPI VerInstallFileA(DWORD,LPCSTR,LPCSTR,LPCSTR,LPCSTR,LPCSTR,LPSTR,PUINT); +DWORD WINAPI VerInstallFileW(DWORD,LPCWSTR,LPCWSTR,LPCWSTR,LPCWSTR,LPCWSTR,LPWSTR,PUINT); +#define VerInstallFile WINELIB_NAME_AW(VerInstallFile) + +WINBASEAPI DWORD WINAPI VerFindFileA(DWORD,LPCSTR,LPCSTR,LPCSTR,LPSTR,PUINT,LPSTR,PUINT); +WINBASEAPI DWORD WINAPI VerFindFileW(DWORD,LPCWSTR,LPCWSTR,LPCWSTR,LPWSTR,PUINT,LPWSTR,PUINT); +#define VerFindFile WINELIB_NAME_AW(VerFindFile) +WINBASEAPI DWORD WINAPI VerLanguageNameA(DWORD,LPSTR,DWORD); +WINBASEAPI DWORD WINAPI VerLanguageNameW(DWORD,LPWSTR,DWORD); +#define VerLanguageName WINELIB_NAME_AW(VerLanguageName) +WINBASEAPI BOOL WINAPI VerQueryValueA(LPCVOID,LPCSTR,LPVOID*,PUINT); +WINBASEAPI BOOL WINAPI VerQueryValueW(LPCVOID,LPCWSTR,LPVOID*,PUINT); +#define VerQueryValue WINELIB_NAME_AW(VerQueryValue) +WINBASEAPI DWORD WINAPI GetFileVersionInfoSizeA(LPCSTR,LPDWORD); +WINBASEAPI DWORD WINAPI GetFileVersionInfoSizeW(LPCWSTR,LPDWORD); +#define GetFileVersionInfoSize WINELIB_NAME_AW(GetFileVersionInfoSize) +WINBASEAPI BOOL WINAPI GetFileVersionInfoA(LPCSTR,DWORD,DWORD,LPVOID); +WINBASEAPI BOOL WINAPI GetFileVersionInfoW(LPCWSTR,DWORD,DWORD,LPVOID); +#define GetFileVersionInfo WINELIB_NAME_AW(GetFileVersionInfo) +WINBASEAPI DWORD WINAPI GetFileVersionInfoSizeExA(DWORD,LPCSTR,LPDWORD); +WINBASEAPI DWORD WINAPI GetFileVersionInfoSizeExW(DWORD,LPCWSTR,LPDWORD); +#define GetFileVersionInfoSizeEx WINELIB_NAME_AW(GetFileVersionInfoSizeEx) +WINBASEAPI BOOL WINAPI GetFileVersionInfoExA(DWORD,LPCSTR,DWORD,DWORD,LPVOID); +WINBASEAPI BOOL WINAPI GetFileVersionInfoExW(DWORD,LPCWSTR,DWORD,DWORD,LPVOID); +#define GetFileVersionInfoEx WINELIB_NAME_AW(GetFileVersionInfoEx) #endif /* RC_INVOKED */

1 0

Alexandre Julliard : include: Use proper dllimports for gdi32 functions.
by Alexandre Julliard 07 Dec '22

07 Dec '22

Module: wine Branch: master Commit: 402d50d5f9991653c6c4cb9c12522b44da026b39 URL: https://gitlab.winehq.org/wine/wine/-/commit/402d50d5f9991653c6c4cb9c12522b… Author: Alexandre Julliard <julliard(a)winehq.org> Date: Wed Dec 7 11:21:07 2022 +0100 include: Use proper dllimports for gdi32 functions. --- dlls/win32u/Makefile.in | 1 + include/wingdi.h | 8 ++++++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/dlls/win32u/Makefile.in b/dlls/win32u/Makefile.in index 5494e9eb8ca..2cf822401d5 100644 --- a/dlls/win32u/Makefile.in +++ b/dlls/win32u/Makefile.in @@ -1,3 +1,4 @@ +EXTRADEFS = -DWINGDIAPI= MODULE = win32u.dll UNIXLIB = win32u.so IMPORTLIB = win32u diff --git a/include/wingdi.h b/include/wingdi.h index 6778c60db79..046009c0e98 100644 --- a/include/wingdi.h +++ b/include/wingdi.h @@ -24,16 +24,20 @@ extern "C" { #endif +#ifndef WINGDIAPI #if defined(_GDI32_) || defined(WINE_UNIX_LIB) #define WINGDIAPI #else -#define WINGDIAPI DECLSPEC_HIDDEN +#define WINGDIAPI DECLSPEC_IMPORT +#endif #endif +#ifndef WGLAPI #ifdef _OPENGL32_ #define WGLAPI #else -#define WGLAPI DECLSPEC_HIDDEN +#define WGLAPI DECLSPEC_IMPORT +#endif #endif typedef struct _ABCFLOAT {

1 0

Alexandre Julliard : include: Use proper dllimports for user32 functions.
by Alexandre Julliard 07 Dec '22

07 Dec '22

Module: wine Branch: master Commit: d92b59717dc8c3ce1511bcef7c56f887554c2809 URL: https://gitlab.winehq.org/wine/wine/-/commit/d92b59717dc8c3ce1511bcef7c56f8… Author: Alexandre Julliard <julliard(a)winehq.org> Date: Wed Dec 7 11:33:13 2022 +0100 include: Use proper dllimports for user32 functions. --- dlls/kernelbase/Makefile.in | 2 +- dlls/win32u/Makefile.in | 2 +- include/dde.h | 4 +++- include/ddeml.h | 4 +++- include/winuser.h | 4 +++- 5 files changed, 11 insertions(+), 5 deletions(-) diff --git a/dlls/kernelbase/Makefile.in b/dlls/kernelbase/Makefile.in index 2ea1890c7eb..784fd0e74f7 100644 --- a/dlls/kernelbase/Makefile.in +++ b/dlls/kernelbase/Makefile.in @@ -1,4 +1,4 @@ -EXTRADEFS = -DWINBASEAPI= -DWINADVAPI= +EXTRADEFS = -DWINBASEAPI= -DWINADVAPI= -DWINUSERAPI= MODULE = kernelbase.dll IMPORTLIB = kernelbase IMPORTS = uuid ntdll winecrt0 diff --git a/dlls/win32u/Makefile.in b/dlls/win32u/Makefile.in index 2cf822401d5..7274f132fa5 100644 --- a/dlls/win32u/Makefile.in +++ b/dlls/win32u/Makefile.in @@ -1,4 +1,4 @@ -EXTRADEFS = -DWINGDIAPI= +EXTRADEFS = -DWINGDIAPI= -DWINUSERAPI= MODULE = win32u.dll UNIXLIB = win32u.so IMPORTLIB = win32u diff --git a/include/dde.h b/include/dde.h index 4e0d1176727..fda798b06f4 100644 --- a/include/dde.h +++ b/include/dde.h @@ -28,10 +28,12 @@ extern "C" { #endif +#ifndef WINUSERAPI #if defined(_USER32_) || defined(WINE_UNIX_LIB) #define WINUSERAPI #else -#define WINUSERAPI DECLSPEC_HIDDEN +#define WINUSERAPI DECLSPEC_IMPORT +#endif #endif #include <dde.rh> diff --git a/include/ddeml.h b/include/ddeml.h index dcac04bfb19..41c43e6b321 100644 --- a/include/ddeml.h +++ b/include/ddeml.h @@ -26,10 +26,12 @@ extern "C" { #endif /* defined(__cplusplus) */ +#ifndef WINUSERAPI #if defined(_USER32_) || defined(WINE_UNIX_LIB) #define WINUSERAPI #else -#define WINUSERAPI DECLSPEC_HIDDEN +#define WINUSERAPI DECLSPEC_IMPORT +#endif #endif /* Codepage Constants diff --git a/include/winuser.h b/include/winuser.h index a82a6ec26c5..d1e03461d07 100644 --- a/include/winuser.h +++ b/include/winuser.h @@ -19,11 +19,13 @@ #ifndef _WINUSER_ #define _WINUSER_ +#ifndef WINUSERAPI #if !defined(_USER32_) && !defined(WINE_UNIX_LIB) -#define WINUSERAPI DECLSPEC_HIDDEN +#define WINUSERAPI DECLSPEC_IMPORT #else #define WINUSERAPI #endif +#endif #ifndef RC_INVOKED #include <stdarg.h>

1 0

Francois Gouget : testbot/TestWTBS: Allow checking the new task counters.
by Alexandre Julliard 07 Dec '22

07 Dec '22

Module: tools Branch: master Commit: 41f41b29546d13b4c325d273338b880f3b4a141f URL: https://gitlab.winehq.org/winehq/tools/-/commit/41f41b29546d13b4c325d273338… Author: Francois Gouget <fgouget(a)codeweavers.com> Date: Thu Nov 3 03:15:51 2022 +0100 testbot/TestWTBS: Allow checking the new task counters. --- testbot/tests/TestWTBS | 103 ++++++++++++++++++++++++++++++++++++------------- 1 file changed, 77 insertions(+), 26 deletions(-) diff --git a/testbot/tests/TestWTBS b/testbot/tests/TestWTBS index 33074a82..59909287 100755 --- a/testbot/tests/TestWTBS +++ b/testbot/tests/TestWTBS @@ -368,7 +368,7 @@ sub LoadTestInfo($) { # Ignore these } - elsif ($Entry !~ /^(?:CurGroup|eCount|eNew|MsgGroups|MsgGroupNames|LineNo|LogName|LogPath)$/) + elsif ($Entry !~ /^(?:CurGroup|eCount|eNew|kCount|kNew|MsgGroups|MsgGroupNames|LineNo|LogName|LogPath)$/) { fail("$FileName: $Entry is not a valid property name"); } @@ -400,6 +400,22 @@ sub LoadTestInfo($) SetDefault($TestInfo, "tasks", "Status", "completed"); SetDefault($TestInfo, "tasks", "HasTask", 1); } + foreach my $TaskType ("tasks", "tests", "build", "win", "win32", "win64", "wine", "wine:build", "wine:test", "wine:module") + { + my $TaskInfo = $TestInfo->{$TaskType}; + if (defined $TaskInfo->{TestFailures}) + { + SetDefault($TestInfo, $TaskType, "NewTestFailures", $TaskInfo->{TestFailures}); + if (CheckValue($TaskInfo->{TestFailures})) + { + SetDefault($TestInfo, $TaskType, "FailedTestUnits", $TaskInfo->{TestFailures} ? 1 : 0); + } + } + if (defined $TaskInfo->{Warnings}) + { + SetDefault($TestInfo, $TaskType, "NewWarnings", $TaskInfo->{Warnings}); + } + } foreach my $BuildType ("build", "wine:build") { next if (!defined $TestInfo->{$BuildType}->{TestUnits}); @@ -913,10 +929,22 @@ still queued or running or have been canceled are automatically skipped to avoid false positives. By default the Status field should be 'completed'. +=item <tasks.NewWarnings> +=item <tasks.Warnings> +=item <tasks.NewTestFailures> =item <tasks.TestFailures> -Checks the value of the task's TestFailures field. -By default the TestFailures field is not checked. +Checks the value of the corresponding task's field. +By default none of these fields are checked. +If Warnings is set and not NewWarnings, then it is assumed it should have the +same value. The same applies to TestFailures and NewTestFailures. + +=item <tasks.FailedTestUnits> + +Checks the value of the corresponding task's field. More precisely: +* FailedTestUnits == undef && TestFailures == undef -> not checked +* FailedTestUnits == undef && TestFailures == 0 -> expect 0 +* FailedTestUnits == undef && TestFailures != 0 -> expect 1 =item <tasks.HasTimeout> @@ -1000,7 +1028,7 @@ sub CheckTask($$$$) my $CheckTimeouts = ($Task->Status eq "completed" and CheckValue($TaskInfo->{HasTimeout})); - my ($ReportFailures, $IgnoreFailures); + my (%Ignore, %Counts); my ($ReportCount, $TimeoutCount, $NewFailures) = (0, 0, 0); foreach my $LogName (@{GetLogFileNames($Task->GetDir())}) { @@ -1028,16 +1056,36 @@ sub CheckTask($$$$) map { $TestUnits->{$MissionType}->{$_} = 1 } (keys %$ReportTestUnits); } - if (CheckValue($MissionInfo->{TestFailures})) + foreach my $Counter ("NewWarnings", "Warnings", "NewTestFailures", "TestFailures") + { + if (CheckValue($MissionInfo->{$Counter})) + { + my $LogCount = $Counter eq "NewWarnings" ? ($LogInfo->{wNew} || 0) - ($LogInfo->{wKnownNew} || 0) : + $Counter eq "Warnings" ? $LogInfo->{wCount} : + $Counter eq "NewFailures" ? ($LogInfo->{eNew} || 0) - ($LogInfo->{eKnownNew} || 0) : + $Counter eq "Failures" ? $LogInfo->{eCount} : + -1; + ok($LogCount <= $MissionInfo->{$Counter}, + "Check $Counter of $LogName in task ". TaskKeyStr($Task)) + or diag("report $Counter count = $LogCount, expected at most $MissionInfo->{$Counter}"); + $Counts{$Counter} += $MissionInfo->{$Counter}; + } + else + { + $Ignore{$Counter} = 1; + } + } + if (CheckValue($MissionInfo->{FailedTestUnits})) { - ok(($LogInfo->{eCount} || 0) <= $MissionInfo->{TestFailures}, - "Check Failures of $LogName in task ". TaskKeyStr($Task)) - or diag("report error count = ", ($LogInfo->{eCount} || 0), ", expected at most $MissionInfo->{TestFailures}"); - $ReportFailures += $MissionInfo->{TestFailures}; + my $LogCount = @{$LogInfo->{FailedTestUnits} || []}; + ok($LogCount == $MissionInfo->{FailedTestUnits}, + "Check FailedTestUnits of $LogName in task ". TaskKeyStr($Task)) + or diag("report FailedTestUnits count = $LogCount expected $MissionInfo->{FailedTestUnits}"); + $Counts{FailedTestUnits} ||= $MissionInfo->{FailedTestUnits}; } else { - $IgnoreFailures = 1; + $Ignore{FailedTestUnits} = 1; } } elsif ($LogName =~ /^testbot\./) @@ -1062,24 +1110,27 @@ sub CheckTask($$$$) } if ($Task->Status eq "completed") { - if ($IsTestTask and ($ReportCount or CheckValue($TaskInfo->{TestUnits}))) + if ($ReportCount) { - if ($IgnoreFailures) - { - # For some mission types (typically test=module) the failure count - # is unpredictable and cannot be checked. - ; # Nothing to do - } - elsif ($ReportCount) - { - # The task's failure count must be compared to the sum of the failure - # counts of each test report. - is($Task->TestFailures, $ReportFailures, "Check Failures of task ". TaskKeyStr($Task)); - } - elsif (CheckValue($TaskInfo->{TestFailures})) + foreach my $Counter ("NewWarnings", "Warnings", "NewTestFailures", "TestFailures", "FailedTestUnits") { - # There is no report if the VM crashed / rebooted - is($Task->TestFailures, $TaskInfo->{TestFailures}, "Check Failures of task ". TaskKeyStr($Task)); + if ($Ignore{$Counter}) + { + # For some mission types (typically test=module) the counter values + # are unpredictable and cannot be checked. + ; # Nothing to do + } + elsif ($ReportCount) + { + # The task's (warning / failure) count must be compared to the sum + # of the counts for each report. + is($Task->$Counter || 0, $Counts{$Counter}, "Check $Counter of task ". TaskKeyStr($Task)); + } + elsif (CheckValue($TaskInfo->{$Counter})) + { + # There is no report if the VM crashed / rebooted + is($Task->$Counter, $TaskInfo->{$Counter}, "Check $Counter of task ". TaskKeyStr($Task)); + } } } elsif (!$IsTestTask and $ReportCount)

1 0

Francois Gouget : testbot/LogUtils: Remove explicit highlighting of a couple of task messages.
by Alexandre Julliard 07 Dec '22

07 Dec '22

Module: tools Branch: master Commit: 154bf0482bb327260501cbf8ef21bead9bebda28 URL: https://gitlab.winehq.org/winehq/tools/-/commit/154bf0482bb327260501cbf8ef2… Author: Francois Gouget <fgouget(a)codeweavers.com> Date: Thu Dec 1 15:57:40 2022 +0100 testbot/LogUtils: Remove explicit highlighting of a couple of task messages. They are now prefixed by the script name and message category (error, warning, etc). --- testbot/lib/WineTestBot/LogUtils.pm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/testbot/lib/WineTestBot/LogUtils.pm b/testbot/lib/WineTestBot/LogUtils.pm index fc840f97..3aa59391 100644 --- a/testbot/lib/WineTestBot/LogUtils.pm +++ b/testbot/lib/WineTestBot/LogUtils.pm @@ -91,9 +91,7 @@ sub GetLogLineCategory($) $Line =~ /^Running (?:the tests|WineTest) / or $Line =~ /^Task: (?:ok|tests|Updated)/ or # testbot.log information messages - $Line =~ /^----- Run / or - $Line =~ /^The test VM has crashed/ or # Context for an error message - $Line =~ /^The previous \d+ run$s$ terminated abnormally/) + $Line =~ /^----- Run /) { return "info"; }

1 0

Francois Gouget : testbot/WineRun*: Downgrade an error to an information message.
by Alexandre Julliard 07 Dec '22

07 Dec '22

Module: tools Branch: master Commit: 0de021aa9a4c1144d66345443330391553d97953 URL: https://gitlab.winehq.org/winehq/tools/-/commit/0de021aa9a4c1144d6634544333… Author: Francois Gouget <fgouget(a)codeweavers.com> Date: Fri Nov 25 02:41:54 2022 +0100 testbot/WineRun*: Downgrade an error to an information message. When a task fails to run (e.g. because of a network error) the message indicating it had to be restarted should not be marked as an error as that would imply the patch is responsible for it when it is most likely not. Similarly it should not be a warning ascribed to the patch. So marking this as an information message makes the most sense. Also note that the fact the task had to be restarted will be visible on the job details page by the presence of the 'old testbot logs' link. --- testbot/bin/WineRunBuild.pl | 8 +++++++- testbot/bin/WineRunReconfig.pl | 8 +++++++- testbot/bin/WineRunTask.pl | 8 +++++++- testbot/bin/WineRunWineTest.pl | 8 +++++++- testbot/lib/WineTestBot/LogUtils.pm | 3 ++- 5 files changed, 30 insertions(+), 5 deletions(-) diff --git a/testbot/bin/WineRunBuild.pl b/testbot/bin/WineRunBuild.pl index eb4b2c7d..64fe45ec 100755 --- a/testbot/bin/WineRunBuild.pl +++ b/testbot/bin/WineRunBuild.pl @@ -175,6 +175,12 @@ LogMsg "Task $JobId/$StepNo/$TaskNo started on ", $VM->Name, "\n"; # Error handling helpers # +sub LogTaskInfo($) +{ + my ($ErrMessage) = @_; + print STDERR "$Name0:info: ", $ErrMessage; +} + sub LogTaskError($) { my ($ErrMessage) = @_; @@ -208,7 +214,7 @@ sub WrapUpAndExit($;$$$$$$$) } elsif ($Tries >= 1) { - LogTaskError("The previous $Tries run(s) terminated abnormally\n"); + LogTaskInfo("The previous $Tries run(s) terminated abnormally\n"); } # Record result details that may be lost or overwritten by a later run diff --git a/testbot/bin/WineRunReconfig.pl b/testbot/bin/WineRunReconfig.pl index dc9f759b..5d58411b 100755 --- a/testbot/bin/WineRunReconfig.pl +++ b/testbot/bin/WineRunReconfig.pl @@ -176,6 +176,12 @@ LogMsg "Task $JobId/$StepNo/$TaskNo started\n"; # Error handling helpers # +sub LogTaskInfo($) +{ + my ($ErrMessage) = @_; + print STDERR "$Name0:info: ", $ErrMessage; +} + sub LogTaskError($) { my ($ErrMessage) = @_; @@ -210,7 +216,7 @@ sub WrapUpAndExit($;$$$$$$$) } elsif ($Tries >= 1) { - LogTaskError("The previous $Tries run(s) terminated abnormally\n"); + LogTaskInfo("The previous $Tries run(s) terminated abnormally\n"); } # Record result details that may be lost or overwritten by a later run diff --git a/testbot/bin/WineRunTask.pl b/testbot/bin/WineRunTask.pl index bce67cf2..3b514fb1 100755 --- a/testbot/bin/WineRunTask.pl +++ b/testbot/bin/WineRunTask.pl @@ -204,6 +204,12 @@ LogMsg "Task $JobId/$StepNo/$TaskNo started on ", $VM->Name, "\n"; # Error handling helpers # +sub LogTaskInfo($) +{ + my ($ErrMessage) = @_; + print STDERR "$Name0:info: ", $ErrMessage; +} + sub LogTaskError($) { my ($ErrMessage) = @_; @@ -242,7 +248,7 @@ sub WrapUpAndExit($;$$$$$$$$) } elsif ($Tries >= 1) { - LogTaskError("The previous $Tries run(s) terminated abnormally\n"); + LogTaskInfo("The previous $Tries run(s) terminated abnormally\n"); } # Record result details that may be lost or overwritten by a later run diff --git a/testbot/bin/WineRunWineTest.pl b/testbot/bin/WineRunWineTest.pl index dd578e47..ad869a96 100755 --- a/testbot/bin/WineRunWineTest.pl +++ b/testbot/bin/WineRunWineTest.pl @@ -201,6 +201,12 @@ LogMsg "Task $JobId/$StepNo/$TaskNo started on ", $VM->Name, "\n"; # Error handling helpers # +sub LogTaskInfo($) +{ + my ($ErrMessage) = @_; + print STDERR "$Name0:info: ", $ErrMessage; +} + sub LogTaskError($) { my ($ErrMessage) = @_; @@ -239,7 +245,7 @@ sub WrapUpAndExit($;$$$$$$$$) } elsif ($Tries >= 1) { - LogTaskError("The previous $Tries run(s) terminated abnormally\n"); + LogTaskInfo("The previous $Tries run(s) terminated abnormally\n"); } # Record result details that may be lost or overwritten by a later run diff --git a/testbot/lib/WineTestBot/LogUtils.pm b/testbot/lib/WineTestBot/LogUtils.pm index 3aa59391..07b4dcf5 100644 --- a/testbot/lib/WineTestBot/LogUtils.pm +++ b/testbot/lib/WineTestBot/LogUtils.pm @@ -91,7 +91,8 @@ sub GetLogLineCategory($) $Line =~ /^Running (?:the tests|WineTest) / or $Line =~ /^Task: (?:ok|tests|Updated)/ or # testbot.log information messages - $Line =~ /^----- Run /) + $Line =~ /^----- Run / or + $Line =~ /:info:/) { return "info"; }

1 0

Francois Gouget : testbot/LogUtils: Don't try to match deleted known failures.
by Alexandre Julliard 07 Dec '22

07 Dec '22

Module: tools Branch: master Commit: 9201d1b1a63397c14e009993b05a0f8012198ba1 URL: https://gitlab.winehq.org/winehq/tools/-/commit/9201d1b1a63397c14e009993b05… Author: Francois Gouget <fgouget(a)codeweavers.com> Date: Wed Nov 30 16:19:47 2022 +0100 testbot/LogUtils: Don't try to match deleted known failures. Entries marked deleted will actually be deleted once nothing references them anymore. But that may not happen if the TestBot keeps trying to match them and potentially adding new references. --- testbot/lib/WineTestBot/LogUtils.pm | 1 + 1 file changed, 1 insertion(+) diff --git a/testbot/lib/WineTestBot/LogUtils.pm b/testbot/lib/WineTestBot/LogUtils.pm index 241eda46..c381906d 100644 --- a/testbot/lib/WineTestBot/LogUtils.pm +++ b/testbot/lib/WineTestBot/LogUtils.pm @@ -1469,6 +1469,7 @@ sub MatchLogFailures($$) my $ConfigName = $Task->VMName .":$LogInfo->{LogName}"; $LogFailures->{Collection} = CreateFailures(); + $LogFailures->{Collection}->AddFilter("BugStatus", ["deleted"], "<>"); foreach my $Failure (@{$LogFailures->{Collection}->GetItems()}) { # Ignore failures that don't apply to this configuration

1 0

Francois Gouget : testbot/orm: Fix a minor formatting issues.
by Alexandre Julliard 07 Dec '22

07 Dec '22

Module: tools Branch: master Commit: 1e840275b5d08e4b0fb15541e5dfa8f80489fc4b URL: https://gitlab.winehq.org/winehq/tools/-/commit/1e840275b5d08e4b0fb15541e5d… Author: Francois Gouget <fgouget(a)codeweavers.com> Date: Wed Nov 30 16:21:30 2022 +0100 testbot/orm: Fix a minor formatting issues. --- testbot/lib/ObjectModel/Collection.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/testbot/lib/ObjectModel/Collection.pm b/testbot/lib/ObjectModel/Collection.pm index 9dcaf33d..222c26a1 100644 --- a/testbot/lib/ObjectModel/Collection.pm +++ b/testbot/lib/ObjectModel/Collection.pm @@ -894,7 +894,7 @@ sub PrepareFilter($$) sub AddFilter($$;$$) { my $self = shift; - my $Filter =@_ == 1 ? $_[0] : FilterValue($_[0], $_[2] || "=", $_[1]); + my $Filter = @_ == 1 ? $_[0] : FilterValue($_[0], $_[2] || "=", $_[1]); $self->PrepareFilter($Filter); if (!$self->{Filter})

1 0

Francois Gouget : testbot: Add Task fields to track warnings, failures and bad test units.
by Alexandre Julliard 07 Dec '22

07 Dec '22

Module: tools Branch: master Commit: cc2b971a9c02838154cf94171e539a846133faf7 URL: https://gitlab.winehq.org/winehq/tools/-/commit/cc2b971a9c02838154cf94171e5… Author: Francois Gouget <fgouget(a)codeweavers.com> Date: Fri Oct 28 02:56:25 2022 +0200 testbot: Add Task fields to track warnings, failures and bad test units. So far the tasks have a TestFailures field which tracks the number of failures for that task, but not whether any of them is new. This adds a field to keep track of the number of new failures and another pair to do the same for warnings. This further adds a field to track the numbder of failed test units. These fields can then be used in the web pages to indicate whether there are new failures / warnings, and how many test units have failed. But until there is support for setting these fields, they are hidden. --- testbot/bin/Engine.pl | 4 ++++ testbot/ddl/update48.sql | 11 +++++++++++ testbot/ddl/winetestbot.sql | 4 ++++ testbot/lib/WineTestBot/Jobs.pm | 4 ++++ testbot/lib/WineTestBot/StepsTasks.pm | 8 ++++++++ testbot/lib/WineTestBot/Tasks.pm | 4 ++++ testbot/web/JobDetails.pl | 2 +- 7 files changed, 36 insertions(+), 1 deletion(-) diff --git a/testbot/bin/Engine.pl b/testbot/bin/Engine.pl index 39577d14..d51adcb4 100755 --- a/testbot/bin/Engine.pl +++ b/testbot/bin/Engine.pl @@ -147,7 +147,11 @@ sub Cleanup($;$$) $Task->Status("queued"); $Task->Started(undef); $Task->Ended(undef); + $Task->NewWarnings(undef); + $Task->Warnings(undef); + $Task->NewTestFailures(undef); $Task->TestFailures(undef); + $Task->FailedTestUnits(undef); $Task->Save(); $CallUpdateStatus = 1; } diff --git a/testbot/ddl/update48.sql b/testbot/ddl/update48.sql new file mode 100644 index 00000000..79b14d06 --- /dev/null +++ b/testbot/ddl/update48.sql @@ -0,0 +1,11 @@ +USE winetestbot; + +ALTER TABLE Tasks + ADD NewWarnings INT(6) NULL + AFTER Ended, + ADD Warnings INT(6) NULL + AFTER NewWarnings, + ADD NewTestFailures INT(6) NULL + AFTER Warnings, + ADD FailedTestUnits INT(6) NULL + AFTER TestFailures; diff --git a/testbot/ddl/winetestbot.sql b/testbot/ddl/winetestbot.sql index 0cf70484..3c4f32a0 100644 --- a/testbot/ddl/winetestbot.sql +++ b/testbot/ddl/winetestbot.sql @@ -158,7 +158,11 @@ CREATE TABLE Tasks CmdLineArg VARCHAR(256) NULL, Started DATETIME NULL, Ended DATETIME NULL, + NewWarnings INT(6) NULL, + Warnings INT(6) NULL, + NewTestFailures INT(6) NULL, TestFailures INT(6) NULL, + FailedTestUnits INT(6) NULL, PRIMARY KEY (JobId, StepNo, No), FOREIGN KEY(VMName) REFERENCES VMs(Name) ) diff --git a/testbot/lib/WineTestBot/Jobs.pm b/testbot/lib/WineTestBot/Jobs.pm index b54f864d..c5becbef 100644 --- a/testbot/lib/WineTestBot/Jobs.pm +++ b/testbot/lib/WineTestBot/Jobs.pm @@ -412,7 +412,11 @@ sub Restart($) $Task->Status("queued"); $Task->Started(undef); $Task->Ended(undef); + $Task->NewWarnings(undef); + $Task->Warnings(undef); + $Task->NewTestFailures(undef); $Task->TestFailures(undef); + $Task->FailedTestUnits(undef); } $Step->Status("queued"); $Step->RmTree(); diff --git a/testbot/lib/WineTestBot/StepsTasks.pm b/testbot/lib/WineTestBot/StepsTasks.pm index 87146b27..928d33a4 100644 --- a/testbot/lib/WineTestBot/StepsTasks.pm +++ b/testbot/lib/WineTestBot/StepsTasks.pm @@ -157,7 +157,11 @@ sub _initialize($$) $StepTask->CmdLineArg($Task->CmdLineArg); $StepTask->Started($Task->Started); $StepTask->Ended($Task->Ended); + $StepTask->NewWarnings($Task->NewWarnings); + $StepTask->Warnings($Task->Warnings); + $StepTask->NewTestFailures($Task->NewTestFailures); $StepTask->TestFailures($Task->TestFailures); + $StepTask->FailedTestUnits($Task->FailedTestUnits); $self->{Items}{$StepTask->GetKey()} = $StepTask; } @@ -190,7 +194,11 @@ my @PropertyDescriptors = ( CreateBasicPropertyDescriptor("CmdLineArg", "Command line args", !1, !1, "A", 256), CreateBasicPropertyDescriptor("Started", "Started", !1, !1, "DT", 19), CreateBasicPropertyDescriptor("Ended", "Ended", !1, !1, "DT", 19), + CreateBasicPropertyDescriptor("NewWarnings", "New Warnings", !1, !1, "N", 6), + CreateBasicPropertyDescriptor("Warnings", "Warnings", !1, !1, "N", 6), + CreateBasicPropertyDescriptor("NewTestFailures", "New Failures", !1, !1, "N", 6), CreateBasicPropertyDescriptor("TestFailures", "Failures", !1, !1, "N", 6), + CreateBasicPropertyDescriptor("FailedTestUnits", "Bad Test Units", !1, !1, "N", 6), ); SetupItemrefColumns(\@PropertyDescriptors); diff --git a/testbot/lib/WineTestBot/Tasks.pm b/testbot/lib/WineTestBot/Tasks.pm index 5b87c782..b6332d2d 100644 --- a/testbot/lib/WineTestBot/Tasks.pm +++ b/testbot/lib/WineTestBot/Tasks.pm @@ -363,7 +363,11 @@ my @PropertyDescriptors = ( CreateBasicPropertyDescriptor("CmdLineArg", "Command line args", !1, !1, "A", 256), CreateBasicPropertyDescriptor("Started", "Started", !1, !1, "DT", 19), CreateBasicPropertyDescriptor("Ended", "Ended", !1, !1, "DT", 19), + CreateBasicPropertyDescriptor("NewWarnings", "New Warnings", !1, !1, "N", 6), + CreateBasicPropertyDescriptor("Warnings", "Warnings", !1, !1, "N", 6), + CreateBasicPropertyDescriptor("NewTestFailures", "New Failures", !1, !1, "N", 6), CreateBasicPropertyDescriptor("TestFailures", "Failures", !1, !1, "N", 6), + CreateBasicPropertyDescriptor("FailedTestUnits", "Bad Test Units", !1, !1, "N", 6), CreateDetailrefPropertyDescriptor("Failures", "Known failures", \&CreateTaskFailures), ); SetupItemrefColumns(\@PropertyDescriptors); diff --git a/testbot/web/JobDetails.pl b/testbot/web/JobDetails.pl index 0b42aea5..035cba8c 100644 --- a/testbot/web/JobDetails.pl +++ b/testbot/web/JobDetails.pl @@ -50,7 +50,7 @@ sub DisplayProperty($$) my ($self, $PropertyDescriptor) = @_; my $PropertyName = $PropertyDescriptor->GetName(); - return $PropertyName =~ /^(?:Id|PreviousNo|Type|VM|FileType|Missions)$/ ? "" : + return $PropertyName =~ /^(?:Id|PreviousNo|Type|VM|FileType|Missions|NewWarnings|Warnings|NewTestFailures|FailedTestUnits)$/ ? "" : $PropertyName eq "Started" ? ("ro", "timetipdate") : $self->SUPER::DisplayProperty($PropertyDescriptor); }

1 0

Francois Gouget : testbot/LogUtils: Track the known new failures and warnings.
by Alexandre Julliard 07 Dec '22

07 Dec '22

Module: tools Branch: master Commit: d7f66da4f6092ecb26ff40a3111a9208406f1f73 URL: https://gitlab.winehq.org/winehq/tools/-/commit/d7f66da4f6092ecb26ff40a3111… Author: Francois Gouget <fgouget(a)codeweavers.com> Date: Thu Nov 3 03:10:54 2022 +0100 testbot/LogUtils: Track the known new failures and warnings. This adds a per-message-type KnownNew counter to the $LogInfo structure which allows callers to quickly discount the new but known failures and warnings. --- testbot/lib/WineTestBot/LogUtils.pm | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) diff --git a/testbot/lib/WineTestBot/LogUtils.pm b/testbot/lib/WineTestBot/LogUtils.pm index c381906d..e4145628 100644 --- a/testbot/lib/WineTestBot/LogUtils.pm +++ b/testbot/lib/WineTestBot/LogUtils.pm @@ -1047,7 +1047,15 @@ sub LoadLogErrorsFromFh($$) } elsif ($Type eq "f") { - $LogInfo->{CurGroup}->{Failures}->{$Property} = [ split / /, $Value ]; + my $MsgIndex = $Property; + my $CurGroup = $LogInfo->{CurGroup}; + $CurGroup->{Failures}->{$Property} = [ split / /, $Value ]; + if ($CurGroup->{IsNew}->[$MsgIndex]) + { + my $Type = $CurGroup->{Types}->[$MsgIndex]; + $CurGroup->{"${Type}KnownNew"}++; + $LogInfo->{"${Type}KnownNew"}++; + } } else { @@ -1514,6 +1522,12 @@ sub MatchLogFailures($$) my $LineFailures = $Group->{Failures}->{$MsgIndex} ||= []; push @$LineFailures, $UnitFailure->Id; + if ($Group->{IsNew}->[$MsgIndex]) + { + my $Type = $Group->{Types}->[$MsgIndex]; + $Group->{"${Type}KnownNew"}++; + $LogInfo->{"${Type}KnownNew"}++; + } my $LogFailure = $LogFailures->{Failures}->{$UnitFailure->Id}; if (!$LogFailure)

1 0