paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 02:49:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: test project: run when unit output directory is set

Browse Source 
git-svn-id: trunk@22007 -
This commit is contained in:
mattias 2009-10-03 22:23:08 +00:00
parent 7b0e3b8bf6
commit 7b6df74c2f
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/buildmanager.pas
View File

@ -421,6 +421,8 @@ begin
end; end;
function TBuildManager.GetTestProjectFilename(aProject: TProject): string; function TBuildManager.GetTestProjectFilename(aProject: TProject): string;
var
TestDir: String;
begin begin
Result:=''; Result:='';
if aProject=nil then exit; if aProject=nil then exit;
@ -428,6 +430,12 @@ begin
Result:=GetTestUnitFilename(aProject.MainUnitInfo); Result:=GetTestUnitFilename(aProject.MainUnitInfo);
if Result='' then exit; if Result='' then exit;
Result:=aProject.CompilerOptions.CreateTargetFilename(Result); Result:=aProject.CompilerOptions.CreateTargetFilename(Result);
if Result='' then exit;
if (not FilenameIsAbsolute(Result)) then begin
TestDir:=GetTestBuildDirectory;
if TestDir='' then exit;
Result:=TestDir+Result;
end;
end; end;
function TBuildManager.GetTestUnitFilename(AnUnitInfo: TUnitInfo): string; function TBuildManager.GetTestUnitFilename(AnUnitInfo: TUnitInfo): string;

1
ide/main.pp
View File

@ -9851,6 +9851,7 @@ begin
// Check project build // Check project build
ProgramFilename := MainBuildBoss.GetProjectTargetFilename(Project1); ProgramFilename := MainBuildBoss.GetProjectTargetFilename(Project1);
DebugLn(['TMainIDE.DoInitProjectRun ProgramFilename=',ProgramFilename]);
if not FileExistsUTF8(ProgramFilename) if not FileExistsUTF8(ProgramFilename)
then begin then begin
MessageDlg(lisFileNotFound, MessageDlg(lisFileNotFound,