paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 12:09:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* When no TestPath is given, use the default. The ExpandFileName avoided this

Browse Source 
git-svn-id: trunk@35768 -
This commit is contained in:
joost 2017-04-10 21:00:51 +00:00
parent d1d1c5a7bd
commit e5be5bd460
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fppkg/tests/fullfpcinstallationtests.pas
View File

@ -13,7 +13,8 @@ uses
CustApp, CustApp,
process, process,
fpmkunit, fpmkunit,
pkgFppkg, fprepos; pkgFppkg,
fprepos;
type type
@ -134,7 +135,7 @@ begin
if FFPCSourcePath<>'' then if FFPCSourcePath<>'' then
FFPCSourcePath := ExpandFileName(FFPCSourcePath); FFPCSourcePath := ExpandFileName(FFPCSourcePath);
FStartCompiler := CustomApplication.GetOptionValue('s','startcompiler'); FStartCompiler := CustomApplication.GetOptionValue('s','startcompiler');
FTestPath := ExpandFileName(CustomApplication.GetOptionValue('t','testpath')); FTestPath := CustomApplication.GetOptionValue('t','testpath');
if FTestPath='' then if FTestPath='' then
FTestPath := IncludeTrailingPathDelimiter(ConcatPaths([ExtractFilePath(ParamStr(0)),'testroot'])) FTestPath := IncludeTrailingPathDelimiter(ConcatPaths([ExtractFilePath(ParamStr(0)),'testroot']))
else else