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

MPGORunner and TestRunner modified

Browse source
This commit is contained in:
Бондарев Иван 2015-05-15 11:35:40 +02:00
parent f07f77512a
commit e11ebef2f8
7 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

0
Release/empty → OptimizedAssemblies/.gitignore vendored
View file

0
bin/Temp/.empty → Release/.gitignore vendored
View file

0
TestSuite/exe/.gitignore vendored Normal file
View file

BIN
bin/MPGORunner.exe
View file

Binary file not shown.

3
bin/MPGORunner.pas
View file

@ -6,7 +6,8 @@ begin
var files := Directory.GetFiles(Path.Combine(pabcpath, 'OptimizedAssemblies')); var files := Directory.GetFiles(Path.Combine(pabcpath, 'OptimizedAssemblies'));
foreach var s in files do foreach var s in files do
begin begin
&File.Delete(s); if Path.GetFileName(s) <> '.gitignore' then
&File.Delete(s);
end; end;
var mpgo := Path.Combine(pabcpath,'Utils\Performance Tools\mpgo.exe'); var mpgo := Path.Combine(pabcpath,'Utils\Performance Tools\mpgo.exe');
psi.FileName := mpgo; psi.FileName := mpgo;

BIN
bin/TestRunner.exe
View file

Binary file not shown.

3
bin/TestRunner.pas
View file

@ -219,7 +219,8 @@ begin
for var i := 0 to files.Length - 1 do for var i := 0 to files.Length - 1 do
begin begin
try try
&File.Delete(files[i]); if Path.GetFileName(files[i]) <> '.gitignore' then
&File.Delete(files[i]);
except except
end; end;
end; end;