paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 20:39:43 +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,
process,
fpmkunit,
pkgFppkg, fprepos;
pkgFppkg,
fprepos;
type
@ -134,7 +135,7 @@ begin
if FFPCSourcePath<>'' then
FFPCSourcePath := ExpandFileName(FFPCSourcePath);
FStartCompiler := CustomApplication.GetOptionValue('s','startcompiler');
FTestPath := ExpandFileName(CustomApplication.GetOptionValue('t','testpath'));
FTestPath := CustomApplication.GetOptionValue('t','testpath');
if FTestPath='' then
FTestPath := IncludeTrailingPathDelimiter(ConcatPaths([ExtractFilePath(ParamStr(0)),'testroot']))
else