Signed-off-by: Francois Gouget fgouget@codeweavers.com --- testbot/lib/WineTestBot/LogUtils.pm | 47 +++++++++++++++-------------- 1 file changed, 24 insertions(+), 23 deletions(-)
diff --git a/testbot/lib/WineTestBot/LogUtils.pm b/testbot/lib/WineTestBot/LogUtils.pm index ed5dd74d4..e93eac01b 100644 --- a/testbot/lib/WineTestBot/LogUtils.pm +++ b/testbot/lib/WineTestBot/LogUtils.pm @@ -314,14 +314,14 @@ sub GetReportLineCategory($) { my ($Line) = @_;
- if ($Line =~ /: Test marked todo: /) + if ($Line =~ /:[0-9]* Test marked todo: /) { return "todo"; } - if ($Line =~ /: Tests skipped: / or + if ($Line =~ /:[0-9.]* Tests skipped: / or $Line =~ /^[_.a-z0-9-]+:[_a-z0-9]* skipped / or - $Line =~ /^[_.a-z0-9-]+:\d+: Line has been silenced after \d+ occurrences$/ or - $Line =~ /^[0-9a-f]+:[_a-z0-9]+: Silenced \d+ todos, \d+ skips and \d+ traces.$/) + $Line =~ /^[_.a-z0-9-]+:\d+:[0-9.]* Line has been silenced after \d+ occurrences$/ or + $Line =~ /^[0-9a-f]+:[_a-z0-9]+:[0-9.]* Silenced \d+ todos, \d+ skips and \d+ traces.$/) { return "skip"; } @@ -558,8 +558,8 @@ sub ParseWineTestReport($$$) $Cur->{Group} = undef; } elsif (($Cur->{Unit} ne "" and - $Line =~ /($Cur->{UnitsRE}).c:\d+: Subtest ([_a-z0-9]+)/) or - $Line =~ /^([_a-z0-9]+).c:\d+: Subtest ([_a-z0-9]+)/) + $Line =~ /($Cur->{UnitsRE}).c:\d+:[0-9.]* Subtest ([_a-z0-9]+)/) or + $Line =~ /^([_a-z0-9]+).c:\d+:[0-9.]* Subtest ([_a-z0-9]+)/) { my ($Unit, $SubUnit) = ($1, $2); _CheckUnit($LogInfo, $Cur, $Unit, "$SubUnit subtest"); @@ -567,23 +567,23 @@ sub ParseWineTestReport($$$) $Cur->{UnitsRE} = join("|", keys %{$Cur->{Units}}); } elsif (($Cur->{Unit} ne "" and - $Line =~ /($Cur->{UnitsRE}).c:\d+: Test (?:failed|succeeded inside todo block): /) or - $Line =~ /^([_a-z0-9]+).c:\d+: Test (?:failed|succeeded inside todo block): /) + $Line =~ /($Cur->{UnitsRE}).c:\d+:[0-9.]* Test (?:failed|succeeded inside todo block): /) or + $Line =~ /^([_a-z0-9]+).c:\d+:[0-9.]* Test (?:failed|succeeded inside todo block): /) { _CheckUnit($LogInfo, $Cur, $1, "failure"); _AddReportError($LogInfo, $Cur, $LineNo, $Line); $Cur->{LineFailures}++; } elsif (($Cur->{Unit} ne "" and - $Line =~ /($Cur->{UnitsRE}).c:\d+: Test marked todo: /) or - $Line =~ /^([_a-z0-9]+).c:\d+: Test marked todo: /) + $Line =~ /($Cur->{UnitsRE}).c:\d+:[0-9.]* Test marked todo: /) or + $Line =~ /^([_a-z0-9]+).c:\d+:[0-9.]* Test marked todo: /) { _CheckUnit($LogInfo, $Cur, $1, "todo"); $Cur->{LineTodos}++; } elsif (($Cur->{Unit} ne "" and - $Line =~ /($Cur->{UnitsRE}).c:\d+: Tests skipped: /) or - $Line =~ /^([_a-z0-9]+).c:\d+: Tests skipped: /) + $Line =~ /($Cur->{UnitsRE}).c:\d+:[0-9.]* Tests skipped: /) or + $Line =~ /^([_a-z0-9]+).c:\d+:[0-9.]* Tests skipped: /) { my $Unit = $1; # Don't complain and don't count misplaced skips. Only complain if they @@ -604,16 +604,16 @@ sub ParseWineTestReport($$$) $Cur->{LineFailures}++; } elsif (($Cur->{Unit} ne "" and - $Line =~ /($Cur->{UnitsRE}).c:\d+: IgnoreExceptions=([01])/) or - $Line =~ /^([_.a-z0-9]+).c:\d+: IgnoreExceptions=([01])/) + $Line =~ /($Cur->{UnitsRE}).c:\d+:[0-9.]* IgnoreExceptions=([01])/) or + $Line =~ /^([_.a-z0-9]+).c:\d+:[0-9.]* IgnoreExceptions=([01])/) { my ($Unit, $Ignore) = ($1, $2); _CheckUnit($LogInfo, $Cur, $Unit, "ignore exceptions"); $Cur->{IgnoreExceptions} = $Ignore; } elsif (($Cur->{Unit} ne "" and - $Line =~ /([0-9a-f]+):($Cur->{UnitsRE}): unhandled exception [0-9a-fA-F]{8} at /) or - $Line =~ /^([0-9a-f]+):([_.a-z0-9]+): unhandled exception [0-9a-fA-F]{8} at /) + $Line =~ /([0-9a-f]+):($Cur->{UnitsRE}):[0-9.]* unhandled exception [0-9a-fA-F]{8} at /) or + $Line =~ /^([0-9a-f]+):([_.a-z0-9]+):[0-9.]* unhandled exception [0-9a-fA-F]{8} at /) { my ($Pid, $Unit) = ($1, $2); _CheckUnit($LogInfo, $Cur, $Unit, "unhandled exception"); @@ -641,8 +641,8 @@ sub ParseWineTestReport($$$) } } elsif (($Cur->{Unit} ne "" and - $Line =~ /($Cur->{UnitsRE}).c:\d+: unhandled exception [0-9a-fA-F]{8} in child process ([0-9a-f]+)/) or - $Line =~ /^([_.a-z0-9]+).c:\d+: unhandled exception [0-9a-fA-F]{8} in child process ([0-9a-f]+)/) + $Line =~ /($Cur->{UnitsRE}).c:\d+:[0-9.]* unhandled exception [0-9a-fA-F]{8} in child process ([0-9a-f]+)/) or + $Line =~ /^([_.a-z0-9]+).c:\d+:[0-9.]* unhandled exception [0-9a-fA-F]{8} in child process ([0-9a-f]+)/) { my ($Unit, $Pid) = ($1, $2); _CheckUnit($LogInfo, $Cur, $Unit, "child exception"); @@ -659,8 +659,8 @@ sub ParseWineTestReport($$$) } } elsif (($Cur->{Unit} ne "" and - $Line =~ /([0-9a-f]+):($Cur->{Unit}): \d+ tests? executed ((\d+) marked as todo, (\d+) failures?), (\d+) skipped./) or - $Line =~ /^([0-9a-f]+):([_a-z0-9]+): \d+ tests? executed ((\d+) marked as todo, (\d+) failures?), (\d+) skipped./) + $Line =~ /([0-9a-f]+):($Cur->{Unit}):[0-9.]* \d+ tests? executed ((\d+) marked as todo, (\d+) failures?), (\d+) skipped./) or + $Line =~ /^([0-9a-f]+):([_a-z0-9]+):[0-9.]* \d+ tests? executed ((\d+) marked as todo, (\d+) failures?), (\d+) skipped./) { my ($Pid, $Unit, $Todos, $Failures, $Skips) = ($1, $2, $3, $4, $5);
@@ -1143,15 +1143,16 @@ sub _GetLineKey($) $Line =~ s/ +$//;
# Remove the line number - $Line =~ s/^([_a-z0-9]+.c:)\d+:( Test (?:failed|succeeded inside todo block):)/$1$2/ + $Line =~ s/^([_a-z0-9]+.c:)\d+:[0-9.]*( Test (?:failed|succeeded inside todo block):)/$1$2/ or $Line =~ s/^([._a-zA-Z0-9-]+:)\d+(: recipe for target )/$1$2/
# Remove the crash code address: it changes whenever the test is recompiled or $Line =~ s/^(Unhandled exception: .* code) (0x[0-9a-fA-F]{8,16}).$/$1/ # or the process id in Wine's exc_filter() lines - or $Line =~ s/^[0-9a-f]+:([_a-z0-9]+: unhandled exception [0-9a-fA-F]{8} at )[0-9a-fA-F]{8,16}$/$1/ + or $Line =~ s/^[0-9a-f]+:([_a-z0-9]+:)[0-9.]*( unhandled exception [0-9a-fA-F]{8} at )[0-9a-fA-F]{8,16}$/$1$2/ # or child process id - or $Line =~ s/^([_a-z0-9]+.c:)\d+:( unhandled exception [0-9a-fA-F]{8} in child process )[0-9a-fA-F]{4}$/$1$2/ + or $Line =~ s/^([_a-z0-9]+.c:)\d+:[0-9.]*( unhandled exception [0-9a-fA-F]{8} in child process )[0-9a-fA-F]{4}$/$1$2/ +
# The exact amount of data printed does not change the error or $Line =~ s/^([_.a-z0-9-]+:[_a-z0-9]* prints too much data )(\d+ bytes)$/$1/;
This allows getting timing information on the tests.
Signed-off-by: Francois Gouget fgouget@codeweavers.com --- Note that this patch requires updating the database by applying testbot/update44.sql. This also requires restarting the TestBot Engine and web server. --- testbot/bin/WineRunTask.pl | 4 ++++ testbot/bin/WineRunWineTest.pl | 4 ++++ testbot/ddl/update44.sql | 10 ++++++++++ testbot/ddl/winetestbot.sql | 1 + testbot/lib/WineTestBot/Steps.pm | 2 ++ testbot/web/Submit.pl | 8 +++++++- 6 files changed, 28 insertions(+), 1 deletion(-) create mode 100644 testbot/ddl/update44.sql
diff --git a/testbot/bin/WineRunTask.pl b/testbot/bin/WineRunTask.pl index 6056806f3..36b3e68f0 100755 --- a/testbot/bin/WineRunTask.pl +++ b/testbot/bin/WineRunTask.pl @@ -425,6 +425,10 @@ my $Keepalive; my $Timeout = $Task->Timeout; my $Script = "set WINETEST_DEBUG=" . $Step->DebugLevel . "\r\n"; +if ($Step->LogTime) +{ + $Script .= "set WINETEST_TIME=1\r\n"; +} if ($Step->ReportSuccessfulTests) { $Script .= "set WINETEST_REPORT_SUCCESS=1\r\n"; diff --git a/testbot/bin/WineRunWineTest.pl b/testbot/bin/WineRunWineTest.pl index 7892bca74..94757bf62 100755 --- a/testbot/bin/WineRunWineTest.pl +++ b/testbot/bin/WineRunWineTest.pl @@ -422,6 +422,10 @@ if (defined $FileName) my $Script = "#!/bin/sh\n". "( set -x\n". " export WINETEST_DEBUG=". $Step->DebugLevel ."\n"; +if ($Step->LogTime) +{ + $Script .= " export WINETEST_TIME=1\n"; +} if ($Step->ReportSuccessfulTests) { $Script .= " export WINETEST_REPORT_SUCCESS=1\n"; diff --git a/testbot/ddl/update44.sql b/testbot/ddl/update44.sql new file mode 100644 index 000000000..1bcbdc422 --- /dev/null +++ b/testbot/ddl/update44.sql @@ -0,0 +1,10 @@ +USE winetestbot; + +ALTER TABLE Steps + ADD Foo ENUM('Y', 'N') NULL + AFTER DebugLevel; + +UPDATE Steps SET Foo = 'N'; + +ALTER TABLE Steps + MODIFY Foo ENUM('Y', 'N') NOT NULL; diff --git a/testbot/ddl/winetestbot.sql b/testbot/ddl/winetestbot.sql index 533941dd6..1794b2508 100644 --- a/testbot/ddl/winetestbot.sql +++ b/testbot/ddl/winetestbot.sql @@ -138,6 +138,7 @@ CREATE TABLE Steps FileName VARCHAR(100) NULL, FileType ENUM('none', 'exe32', 'exe64', 'patch') NOT NULL, DebugLevel INT(2) NOT NULL, + LogTime ENUM('Y', 'N') NOT NULL, ReportSuccessfulTests ENUM('Y', 'N') NOT NULL, PRIMARY KEY (JobId, No), FOREIGN KEY (JobId) REFERENCES Jobs(Id), diff --git a/testbot/lib/WineTestBot/Steps.pm b/testbot/lib/WineTestBot/Steps.pm index 094337569..921077b48 100644 --- a/testbot/lib/WineTestBot/Steps.pm +++ b/testbot/lib/WineTestBot/Steps.pm @@ -91,6 +91,7 @@ sub InitializeNew($$) $self->Type("single"); $self->FileType("none"); $self->DebugLevel(1); + $self->LogTime(!1); $self->ReportSuccessfulTests(!1);
$self->SUPER::InitializeNew($Collection); @@ -240,6 +241,7 @@ my @PropertyDescriptors = ( CreateBasicPropertyDescriptor("FileName", "File", !1, !1, "A", 100), CreateEnumPropertyDescriptor("FileType", "File type", !1, 1, ['none', 'exe32', 'exe64', 'patch']), CreateBasicPropertyDescriptor("DebugLevel", "Debug level (WINETEST_DEBUG)", !1, 1, "N", 2), + CreateBasicPropertyDescriptor("LogTime", "Timestamp traces (WINETEST_TIME)", !1, 1, "B", 1), CreateBasicPropertyDescriptor("ReportSuccessfulTests", "Report successful tests (WINETEST_REPORT_SUCCESS)", !1, 1, "B", 1), CreateDetailrefPropertyDescriptor("Tasks", "Tasks", !1, !1, &CreateTasks), ); diff --git a/testbot/web/Submit.pl b/testbot/web/Submit.pl index 5e9a61e7c..68978f089 100644 --- a/testbot/web/Submit.pl +++ b/testbot/web/Submit.pl @@ -519,7 +519,8 @@ sub _initialize($$$)
# Load the Page 3 parameters $self->_GetParams("TestExecutable", "CmdLineArg", "NoCmdLineArgWarn", - "Run32", "Run64", "DebugLevel", "ReportSuccessfulTests"); + "Run32", "Run64", "DebugLevel", "LogTime", + "ReportSuccessfulTests"); $self->{DebugLevel} = 1 if (!defined $self->{DebugLevel});
# Load the Page 4 parameters @@ -585,6 +586,7 @@ sub _GenerateStateFields($) $self->_GenerateStateField("Run32"); $self->_GenerateStateField("Run64"); $self->_GenerateStateField("DebugLevel"); + $self->_GenerateStateField("LogTime"); $self->_GenerateStateField("ReportSuccessfulTests"); } } @@ -698,6 +700,7 @@ sub GetPropertyDescriptors($) CreateBasicPropertyDescriptor("Run32", "Run the 32 bit tests on Windows", !1, 1, "B", 1), CreateBasicPropertyDescriptor("Run64", "Run the 64 bit tests on Windows", !1, 1, "B", 1), CreateBasicPropertyDescriptor("DebugLevel", "Debug level (WINETEST_DEBUG)", !1, 1, "N", 2), + CreateBasicPropertyDescriptor("LogTime", "Timestamp traces (WINETEST_TIME)", !1, 1, "B", 1), CreateBasicPropertyDescriptor("ReportSuccessfulTests", "Report successful tests (WINETEST_REPORT_SUCCESS)", !1, 1, "B", 1); }
@@ -1068,6 +1071,7 @@ sub OnPage3Prev($) # Set to 0 instead of undef to record the user preference $self->{Run32} ||= 0; $self->{Run64} ||= 0; + $self->{LogTime} ||= 0; $self->{ReportSuccessfulTests} ||= 0;
$self->_SetPage(2); @@ -1195,6 +1199,7 @@ sub _SubmitJob($$) $TestStep->FileType("exe$Bits"); $TestStep->Type("single"); $TestStep->DebugLevel($self->{DebugLevel}); + $TestStep->LogTime(defined $self->{LogTime}); $TestStep->ReportSuccessfulTests(defined $self->{ReportSuccessfulTests}); my $Tasks = $TestStep->Tasks;
@@ -1218,6 +1223,7 @@ sub _SubmitJob($$) $WineStep->FileType($self->{FileType}); $WineStep->Type("single"); $WineStep->DebugLevel($self->{DebugLevel}); + $WineStep->LogTime(defined $self->{LogTime}); $WineStep->ReportSuccessfulTests(defined $self->{ReportSuccessfulTests}); my $Tasks = $WineStep->Tasks;
This allows getting timing information on the tests.
Signed-off-by: Francois Gouget fgouget@codeweavers.com --- Use this patch instead of the previous one!
Before submitting the patch I realized that adding the LogTime column as NOT NULL may fail given that no default is specified. But I did not want to delete the LogTime column in my database to test this so I modified the script to insert a different column. But then I forgot to rename the column back to LogTime.
For the record, initially I just had "ADD LogTime ENUM('Y', 'N') NOT NULL". That does not fail but uses 'Y' as the column's default value which is incorrect (even if it does not matter much).
I bet changing the ENUM to ENUM('N', 'Y') would get me the correct default value but that feels like an implementation detail one should not rely on.
In the past this issue was dealt with by adding the column as NULL, setting a default value, and then switching to NOT NULL.
Another option is to add "DEFAULT 'N'" but that sets a default value permanently which may have unwanted interactions with the TestBot DBI code.
So in the end I settled on setting a DEFAULT and then dropping it. This should be as efficient as the NOT NULL / NULL bait and switch (the columns are set only once), but it's just two commands instead of three (and probably does not require mysql to recheck all columns to verify they conform to the new constraint).
The important part is this patch adds a LogTime column, not the Foo one! --- testbot/bin/WineRunTask.pl | 4 ++++ testbot/bin/WineRunWineTest.pl | 4 ++++ testbot/ddl/update44.sql | 8 ++++++++ testbot/ddl/winetestbot.sql | 1 + testbot/lib/WineTestBot/Steps.pm | 2 ++ testbot/web/Submit.pl | 8 +++++++- 6 files changed, 26 insertions(+), 1 deletion(-) create mode 100644 testbot/ddl/update44.sql
diff --git a/testbot/bin/WineRunTask.pl b/testbot/bin/WineRunTask.pl index 6056806f3..36b3e68f0 100755 --- a/testbot/bin/WineRunTask.pl +++ b/testbot/bin/WineRunTask.pl @@ -425,6 +425,10 @@ my $Keepalive; my $Timeout = $Task->Timeout; my $Script = "set WINETEST_DEBUG=" . $Step->DebugLevel . "\r\n"; +if ($Step->LogTime) +{ + $Script .= "set WINETEST_TIME=1\r\n"; +} if ($Step->ReportSuccessfulTests) { $Script .= "set WINETEST_REPORT_SUCCESS=1\r\n"; diff --git a/testbot/bin/WineRunWineTest.pl b/testbot/bin/WineRunWineTest.pl index 7892bca74..94757bf62 100755 --- a/testbot/bin/WineRunWineTest.pl +++ b/testbot/bin/WineRunWineTest.pl @@ -422,6 +422,10 @@ if (defined $FileName) my $Script = "#!/bin/sh\n". "( set -x\n". " export WINETEST_DEBUG=". $Step->DebugLevel ."\n"; +if ($Step->LogTime) +{ + $Script .= " export WINETEST_TIME=1\n"; +} if ($Step->ReportSuccessfulTests) { $Script .= " export WINETEST_REPORT_SUCCESS=1\n"; diff --git a/testbot/ddl/update44.sql b/testbot/ddl/update44.sql new file mode 100644 index 000000000..670d3bc30 --- /dev/null +++ b/testbot/ddl/update44.sql @@ -0,0 +1,8 @@ +USE winetestbot; + +ALTER TABLE Steps + ADD LogTime ENUM('Y', 'N') NULL DEFAULT 'N' + AFTER DebugLevel; + +ALTER TABLE Steps + ALTER LogTime DROP DEFAULT; diff --git a/testbot/ddl/winetestbot.sql b/testbot/ddl/winetestbot.sql index 533941dd6..1794b2508 100644 --- a/testbot/ddl/winetestbot.sql +++ b/testbot/ddl/winetestbot.sql @@ -138,6 +138,7 @@ CREATE TABLE Steps FileName VARCHAR(100) NULL, FileType ENUM('none', 'exe32', 'exe64', 'patch') NOT NULL, DebugLevel INT(2) NOT NULL, + LogTime ENUM('Y', 'N') NOT NULL, ReportSuccessfulTests ENUM('Y', 'N') NOT NULL, PRIMARY KEY (JobId, No), FOREIGN KEY (JobId) REFERENCES Jobs(Id), diff --git a/testbot/lib/WineTestBot/Steps.pm b/testbot/lib/WineTestBot/Steps.pm index 094337569..921077b48 100644 --- a/testbot/lib/WineTestBot/Steps.pm +++ b/testbot/lib/WineTestBot/Steps.pm @@ -91,6 +91,7 @@ sub InitializeNew($$) $self->Type("single"); $self->FileType("none"); $self->DebugLevel(1); + $self->LogTime(!1); $self->ReportSuccessfulTests(!1);
$self->SUPER::InitializeNew($Collection); @@ -240,6 +241,7 @@ my @PropertyDescriptors = ( CreateBasicPropertyDescriptor("FileName", "File", !1, !1, "A", 100), CreateEnumPropertyDescriptor("FileType", "File type", !1, 1, ['none', 'exe32', 'exe64', 'patch']), CreateBasicPropertyDescriptor("DebugLevel", "Debug level (WINETEST_DEBUG)", !1, 1, "N", 2), + CreateBasicPropertyDescriptor("LogTime", "Timestamp traces (WINETEST_TIME)", !1, 1, "B", 1), CreateBasicPropertyDescriptor("ReportSuccessfulTests", "Report successful tests (WINETEST_REPORT_SUCCESS)", !1, 1, "B", 1), CreateDetailrefPropertyDescriptor("Tasks", "Tasks", !1, !1, &CreateTasks), ); diff --git a/testbot/web/Submit.pl b/testbot/web/Submit.pl index 5e9a61e7c..68978f089 100644 --- a/testbot/web/Submit.pl +++ b/testbot/web/Submit.pl @@ -519,7 +519,8 @@ sub _initialize($$$)
# Load the Page 3 parameters $self->_GetParams("TestExecutable", "CmdLineArg", "NoCmdLineArgWarn", - "Run32", "Run64", "DebugLevel", "ReportSuccessfulTests"); + "Run32", "Run64", "DebugLevel", "LogTime", + "ReportSuccessfulTests"); $self->{DebugLevel} = 1 if (!defined $self->{DebugLevel});
# Load the Page 4 parameters @@ -585,6 +586,7 @@ sub _GenerateStateFields($) $self->_GenerateStateField("Run32"); $self->_GenerateStateField("Run64"); $self->_GenerateStateField("DebugLevel"); + $self->_GenerateStateField("LogTime"); $self->_GenerateStateField("ReportSuccessfulTests"); } } @@ -698,6 +700,7 @@ sub GetPropertyDescriptors($) CreateBasicPropertyDescriptor("Run32", "Run the 32 bit tests on Windows", !1, 1, "B", 1), CreateBasicPropertyDescriptor("Run64", "Run the 64 bit tests on Windows", !1, 1, "B", 1), CreateBasicPropertyDescriptor("DebugLevel", "Debug level (WINETEST_DEBUG)", !1, 1, "N", 2), + CreateBasicPropertyDescriptor("LogTime", "Timestamp traces (WINETEST_TIME)", !1, 1, "B", 1), CreateBasicPropertyDescriptor("ReportSuccessfulTests", "Report successful tests (WINETEST_REPORT_SUCCESS)", !1, 1, "B", 1); }
@@ -1068,6 +1071,7 @@ sub OnPage3Prev($) # Set to 0 instead of undef to record the user preference $self->{Run32} ||= 0; $self->{Run64} ||= 0; + $self->{LogTime} ||= 0; $self->{ReportSuccessfulTests} ||= 0;
$self->_SetPage(2); @@ -1195,6 +1199,7 @@ sub _SubmitJob($$) $TestStep->FileType("exe$Bits"); $TestStep->Type("single"); $TestStep->DebugLevel($self->{DebugLevel}); + $TestStep->LogTime(defined $self->{LogTime}); $TestStep->ReportSuccessfulTests(defined $self->{ReportSuccessfulTests}); my $Tasks = $TestStep->Tasks;
@@ -1218,6 +1223,7 @@ sub _SubmitJob($$) $WineStep->FileType($self->{FileType}); $WineStep->Type("single"); $WineStep->DebugLevel($self->{DebugLevel}); + $WineStep->LogTime(defined $self->{LogTime}); $WineStep->ReportSuccessfulTests(defined $self->{ReportSuccessfulTests}); my $Tasks = $WineStep->Tasks;
-
Francois Gouget