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

add application option to skip unittests in action verify with Dscanner

This commit is contained in:
Basile Burg 2016-05-13 04:21:21 +02:00
parent 5d95330d50
commit b27b2dd8ff
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/ce_main.pas
View File

@ -217,6 +217,7 @@ type
fRunnableDestination: string;
fSymStringExpander: ICESymStringExpander;
fCovModUt: boolean;
fDscanUnittests: boolean;
fAlwaysUseDest: boolean;
fDoc: TCESynMemo;
fFirstTimeCoedit: boolean;
@ -403,6 +404,7 @@ type
fDcdPort: word;
fRunnableDest: TCEPathname;
fAlwaysUseDest: boolean;
fDscanUnittests: boolean;
function getAdditionalPATH: string;
procedure setAdditionalPATH(const value: string);
function getDubCompiler: TCECompiler;
@ -421,6 +423,7 @@ type
property nativeProjecCompiler: TCECompiler read getNativeProjecCompiler write setNativeProjecCompiler;
property runnableDestination: TCEPathname read fRunnableDest write setRunnableDestination;
property runnableDestinationAlways: boolean read fAlwaysUseDest write fAlwaysUseDest;
property dscanUnittests: boolean read fDscanUnittests write fDscanUnittests default true;
// published for ICEEditableOptions but stored by DCD wrapper since it reloads before CEMainForm
property dcdPort: word read fDcdPort write fDcdPort stored false;
@ -457,6 +460,7 @@ begin
inherited;
fBackup := TCEApplicationOptionsBase.Create(self);
EntitiesConnector.addObserver(self);
fDscanUnittests := true;
end;
function TCEApplicationOptionsBase.getDubCompiler: TCECompiler;
@ -528,6 +532,7 @@ begin
fCovModUt:= CEMainForm.fCovModUt;
fRunnableDest := CEMainForm.fRunnableDestination;
fAlwaysUseDest := CEMainForm.fAlwaysUseDest;
fDscanUnittests := CEMainForm.fDscanUnittests;
end else if src = fBackup then
begin
fCovModUt:=fBackup.fCovModUt;
@ -538,6 +543,7 @@ begin
fFloatingWidgetOnTop := fBackup.fFloatingWidgetOnTop;
CEMainForm.fRunnableDestination := fBackup.fRunnableDest;
CEmainForm.fAlwaysUseDest := fBackup.fAlwaysUseDest;
CEMainForm.fDscanUnittests := fDscanUnittests;
end
else inherited;
end;
@ -552,6 +558,7 @@ begin
CEMainForm.updateFloatingWidgetOnTop(fFloatingWidgetOnTop);
CEMainForm.fRunnableDestination := fRunnableDest;
CEMainForm.fAlwaysUseDest := fAlwaysUseDest;
CEMainForm.fDscanUnittests := fDscanUnittests;
DcdWrapper.port:=fDcdPort;
end else if dst = fBackup then
begin
@ -563,6 +570,7 @@ begin
fBackup.fCovModUt:=fCovModUt;
fBackup.fRunnableDest:= fRunnableDest;
fBackup.fAlwaysUseDest := fAlwaysUseDest;
fBackup.fDscanUnittests:= fDscanUnittests;
end
else inherited;
end;
@ -2236,6 +2244,8 @@ begin
prc.ShowWindow:= swoHIDE;
prc.Parameters.Add(fDoc.fileName);
prc.Parameters.Add('-S');
if not fDscanUnittests then
prc.Parameters.Add('--skipTests');
prc.Execute;
processOutputToStrings(prc, lst);
for msg in lst do