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

* Test for r35770

Browse Source 
git-svn-id: trunk@35771 -
This commit is contained in:
joost 2017-04-11 09:39:35 +00:00
parent 977a82b866
commit 31bff45d19
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -28,6 +28,7 @@ type
procedure TestListPackages;
procedure IntTestListPackages;
procedure TestPackageA;
procedure TestLooseFPMFile;
end;
{ TFullFPCInstallationSetup }
@ -339,6 +340,19 @@ begin
CheckFalse(FileExists(ConcatPaths([TFullFPCInstallationSetup.GetCurrentTestPath,'user','lib','fpc', TFullFPCInstallationSetup.GetCompilerVersion, 'fpmkinst',TFullFPCInstallationSetup.GetTargetString,'PackageA.fpm'])), 'PackageAUnitA.fpm found after uninstall');
end;
procedure TFullFPCInstallationTests.TestLooseFPMFile;
var
F: Text;
s: string;
begin
System.Assign(F, ConcatPaths([TFullFPCInstallationSetup.GetCurrentTestPath, 'lib', 'fpc', TFullFPCInstallationSetup.GetCompilerVersion, 'fpmkinst', TFullFPCInstallationSetup.GetTargetString,'empty.fpm']));
System.Rewrite(F);
System.Close(F);
s := RunFppkgIndir(TFullFPCInstallationSetup.GetCurrentTestPath, ['list'], 'list packages');
Check(pos('Failed to load package "empty"', s) > 0, 'Missing warning that the invalid package is skipped')
end;
Initialization
RegisterTestDecorator(TFullFPCInstallationSetup, TFullFPCInstallationTests);
end.