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

runnables, run module tests, always display percentage

This commit is contained in:
Basile Burg 2017-06-19 16:55:44 +02:00
parent 1183822e3d
commit 80daf6ec2e
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/ce_main.pas
View File

@ -2805,6 +2805,8 @@ var
fname, covname: string; fname, covname: string;
lst: TStringList; lst: TStringList;
i: integer; i: integer;
const
ic : array[boolean] of TCEAppMessageKind = (amkWarn, amkInf);
begin begin
asyncprocTerminate(sender); asyncprocTerminate(sender);
if fCovModUt and assigned(fRunProc) and (fRunProc.ExitStatus = 0) then if fCovModUt and assigned(fRunProc) and (fRunProc.ExitStatus = 0) then
@ -2829,8 +2831,7 @@ begin
end; end;
sysutils.DeleteFile(covname); sysutils.DeleteFile(covname);
sysutils.DeleteFile('__main.lst'); sysutils.DeleteFile('__main.lst');
if fullcov then fMsgs.message(shortenPath(fDoc.fileName, 25) fMsgs.message(lst[lst.Count-1], fDoc, amcEdit, ic[fullcov]);
+ ' is 100% covered by the unittests', fDoc, amcEdit, amkInf);
finally finally
lst.free; lst.free;
end; end;