administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

performance improvements in TestRunner

Browse source
This commit is contained in:
Ivan Bondarev 2021-01-02 14:49:05 +01:00
parent 141ef13daa
commit 2ae6eadcb4
2 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
bin/TestRunner.exe
View file

Binary file not shown.

12
bin/TestRunner.pas
View file

@ -230,9 +230,9 @@ begin
p.StandardInput.WriteLine('GO');
//p.StandardInput.AutoFlush := true;
//var p := System.Diagnostics.Process.Start(psi);
while not p.HasExited do
Sleep(10);
p.WaitForExit();
//while not p.HasExited do
// Sleep(5);
if p.ExitCode <> 0 then
begin
System.Windows.Forms.MessageBox.Show('Running of ' + files[i] + ' failed. Exit code is not 0');
@ -349,12 +349,14 @@ begin
DeletePCUFiles;
ClearExeDir;
CompileAllRunTests(false);
writeln('Tests to run: '+Milliseconds()+'ms');
end;
if (ParamCount = 0) or (ParamStr(1) = '2') then
begin
CopyLibFiles;
CompileAllCompilationTests('CompilationSamples', false);
writeln('CompilationSamples: '+Milliseconds()+'ms');
end;
if (ParamCount = 0) or (ParamStr(1) = '3') then
begin
@ -362,12 +364,12 @@ begin
CopyPCUFiles;
CompileAllUsesUnits;
CompileErrorTests(false);
writeln('Tests compiled successfully');
writeln('Other tests '+Milliseconds()+'ms'+'. Tests compiled successfully ');
end;
if (ParamCount = 0) or (ParamStr(1) = '4') then
begin
RunAllTests(false);
writeln('Tests run successfully');
writeln('Tests run successfully: '+Milliseconds()+'ms');
ClearExeDir;
DeletePCUFiles;
end;