forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

runnables, disable coverage ana if UT exited with errors

This commit is contained in:
Basile Burg 2016-10-26 06:42:21 +02:00
parent 26ed0e0385
commit 72b1833f96
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
2 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/ce_dastworx.pas
View File

@ -34,7 +34,6 @@ end;
procedure getModuleImports(source, imports: TStrings); procedure getModuleImports(source, imports: TStrings);
var var
err: TStringList;
str: string; str: string;
prc: TProcess; prc: TProcess;
begin begin

2
src/ce_main.pas
View File

@ -2703,7 +2703,7 @@ var
i: integer; i: integer;
begin begin
asyncprocTerminate(sender); asyncprocTerminate(sender);
if fCovModUt then if fCovModUt and assigned(fRunProc) and (fRunProc.ExitStatus = 0) then
begin begin
fname := stripFileExt(fDoc.fileName); fname := stripFileExt(fDoc.fileName);
fullcov := true; fullcov := true;