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

Оптимизировал TestRunner, разделив на отдельные вызовы

Browse source
This commit is contained in:
Бондарев Иван 2019-10-04 15:40:51 +02:00
parent c1558a6e8e
commit 01afc8b35b
5 changed files with 6481 additions and 5785 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12212
TestSuite/CompilationSamples/OpenGL.pas
View file

File diff suppressed because it is too large Load diff

6
_GenerateAllSetups.bat
View file

@ -40,7 +40,11 @@ ExecHide.exe gacutil.exe /i ..\bin\Lib\PABCRtl.dll
@IF %ERRORLEVEL% NEQ 0 GOTO ERROR
cd ..\bin
TestRunner.exe
TestRunner.exe 1
TestRunner.exe 2
TestRunner.exe 3
TestRunner.exe 4
TestRunner.exe 5
cd ..\ReleaseGenerators
call PascalABCNET_ALL.bat

6
_RebuildReleaseAndRunTests.bat
View file

@ -23,7 +23,11 @@ ExecHide.exe gacutil.exe /i ..\bin\Lib\PABCRtl.dll
cd ..\bin
REM MPGORunner.exe
TestRunner.exe
TestRunner.exe 1
TestRunner.exe 2
TestRunner.exe 3
TestRunner.exe 4
TestRunner.exe 5
cd ..
GOTO EXIT

BIN
bin/TestRunner.exe
View file

Binary file not shown.

42
bin/TestRunner.pas
View file

@ -64,7 +64,7 @@ begin
if comp.ErrorsList[0].GetType() = typeof(PascalABCCompiler.Errors.CompilerInternalError) then
System.Windows.Forms.MessageBox.Show('Compilation of ' + files[i] + ' failed' + System.Environment.NewLine + comp.ErrorsList[0].ToString());
end;
if i mod 20 = 0 then
if i mod 50 = 0 then
System.GC.Collect();
end;
@ -99,7 +99,7 @@ begin
System.Windows.Forms.MessageBox.Show('Compilation of ' + files[i] + ' failed' + System.Environment.NewLine + comp.ErrorsList[0].ToString());
Halt();
end;
if i mod 20 = 0 then
if i mod 50 = 0 then
begin
System.GC.Collect();
end;
@ -133,7 +133,7 @@ begin
System.Windows.Forms.MessageBox.Show('Compilation of ' + files[i] + ' failed' + System.Environment.NewLine + comp.ErrorsList[0].ToString());
Halt();
end;
if i mod 20 = 0 then
if i mod 50 = 0 then
System.GC.Collect();
end;
@ -367,16 +367,32 @@ begin
end;
if (ParamCount = 0) or (ParamStr(1) = '5') then
begin
CompileAllRunTests(true);
writeln('Tests with pabcrtl compiled successfully');
CompileAllCompilationTests('pabcrtl_tests', true);
RunAllTests(false);
writeln('Tests with pabcrtl run successfully');
ClearExeDir;
CompileAllRunTests(false, true);
writeln('Tests in 32bit mode compiled successfully');
RunAllTests(false);
writeln('Tests in 32bit run successfully');
if ParamStr(1) = '5' then
begin
CompileAllRunTests(false, true);
writeln('Tests in 32bit mode compiled successfully');
RunAllTests(false);
writeln('Tests in 32bit run successfully');
ClearExeDir;
CompileAllRunTests(true);
writeln('Tests with pabcrtl compiled successfully');
CompileAllCompilationTests('pabcrtl_tests', true);
RunAllTests(false);
writeln('Tests with pabcrtl run successfully');
end
else
begin
CompileAllRunTests(true);
writeln('Tests with pabcrtl compiled successfully');
CompileAllCompilationTests('pabcrtl_tests', true);
RunAllTests(false);
writeln('Tests with pabcrtl run successfully');
ClearExeDir;
CompileAllRunTests(false, true);
writeln('Tests in 32bit mode compiled successfully');
RunAllTests(false);
writeln('Tests in 32bit run successfully');
end;
System.Environment.CurrentDirectory := Path.GetDirectoryName(GetEXEFileName());
RunExpressionsExtractTests;
writeln('Intellisense expression tests run successfully');