Skip to content

Commit db73812

Browse files
committed
+ Add test
1 parent 6ab235f commit db73812

File tree

1 file changed

+4
-0
lines changed

1 file changed

+4
-0
lines changed

Test/CoverageConfigurationTest.pas

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1470,6 +1470,7 @@ procedure TCoverageConfigurationTest.TestDProj;
14701470
LCoverageConfiguration : ICoverageConfiguration;
14711471
I : Integer;
14721472
ExpectedExeName : TFileName;
1473+
ExpectedSourcePath : TFileName;
14731474
PlatformName : string;
14741475
begin
14751476
LExeName := RandomFileName();
@@ -1483,6 +1484,7 @@ procedure TCoverageConfigurationTest.TestDProj;
14831484
LDProj.Add('</PropertyGroup>');
14841485
LDProj.Add('<PropertyGroup Condition="''$(Base)''!=''''">');
14851486
LDProj.Add('<DCC_ExeOutput>..\build\$(PLATFORM)</DCC_ExeOutput>');
1487+
LDProj.Add('<DCC_UnitSearchPath>..\src\;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>');
14861488
LDProj.Add('</PropertyGroup>');
14871489

14881490
LTotalUnitList := TStringList.Create;
@@ -1516,6 +1518,8 @@ procedure TCoverageConfigurationTest.TestDProj;
15161518
ExpectedExeName := TPath.GetDirectoryName(GetCurrentDir()) + '\build\' + PlatformName + '\' + LExeName;
15171519
CheckEquals(ChangeFileExt(ExpectedExeName, '.exe'), LCoverageConfiguration.ExeFileName, 'Incorrect executable listed');
15181520
CheckEquals(ChangeFileExt(ExpectedExeName, '.map'), LCoverageConfiguration.MapFileName, 'Incorrect map file name');
1521+
ExpectedSourcePath := TPath.GetFullPath(TPath.Combine(TPath.GetDirectoryName(LDProjName), '..\src\'));
1522+
CheckTrue(LCoverageConfiguration.SourcePaths.IndexOf(ExpectedExeName) <> -1, 'Incorrect SourcePaths');
15191523

15201524
for I := 0 to Pred(LTotalUnitList.Count) do
15211525
CheckNotEquals(-1, LCoverageConfiguration.Units.IndexOf(LTotalUnitList[I]), 'Missing unit name');

0 commit comments

Comments
 (0)