@@ -1470,6 +1470,7 @@ procedure TCoverageConfigurationTest.TestDProj;
1470
1470
LCoverageConfiguration : ICoverageConfiguration;
1471
1471
I : Integer;
1472
1472
ExpectedExeName : TFileName;
1473
+ ExpectedSourcePath : TFileName;
1473
1474
PlatformName : string;
1474
1475
begin
1475
1476
LExeName := RandomFileName();
@@ -1483,6 +1484,7 @@ procedure TCoverageConfigurationTest.TestDProj;
1483
1484
LDProj.Add(' </PropertyGroup>' );
1484
1485
LDProj.Add(' <PropertyGroup Condition="'' $(Base)'' !='''' ">' );
1485
1486
LDProj.Add(' <DCC_ExeOutput>..\build\$(PLATFORM)</DCC_ExeOutput>' );
1487
+ LDProj.Add(' <DCC_UnitSearchPath>..\src\;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>' );
1486
1488
LDProj.Add(' </PropertyGroup>' );
1487
1489
1488
1490
LTotalUnitList := TStringList.Create;
@@ -1516,6 +1518,8 @@ procedure TCoverageConfigurationTest.TestDProj;
1516
1518
ExpectedExeName := TPath.GetDirectoryName(GetCurrentDir()) + ' \build\' + PlatformName + ' \' + LExeName;
1517
1519
CheckEquals(ChangeFileExt(ExpectedExeName, ' .exe' ), LCoverageConfiguration.ExeFileName, ' Incorrect executable listed' );
1518
1520
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' );
1519
1523
1520
1524
for I := 0 to Pred(LTotalUnitList.Count) do
1521
1525
CheckNotEquals(-1 , LCoverageConfiguration.Units.IndexOf(LTotalUnitList[I]), ' Missing unit name' );
0 commit comments