paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-15 06:02:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: started test for nested alias class

Browse Source
This commit is contained in:
mattias 2021-12-04 08:43:25 +01:00
parent 8f307159a6
commit de1209eefb
2 changed files with 60 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
components/codetools/tests/moduletests/fdt_nestedaliasclass.pas Normal file
View File

@ -0,0 +1,54 @@
{
./testcodetools --format=plain --suite=TestFindDeclaration_NestedClasses
}
unit fdt_nestedaliasclass;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils;
type
TBird = class
public type
TBirdWing = class
public
Span: word;
procedure Fly; virtual;
end;
end;
TEagle = class(TBird)
public type
TAliasBirdWing = TBirdWing{declaration:fdt_nestedaliasclass.TBird.TBirdWing};
TEagleWing = class(TAliasBirdWing{declaration:fdt_nestedaliasclass.TEagle.TAliasBirdWing})
public
procedure Fly; override;
end;
end;
implementation
{ TBird.TBirdWing }
procedure TBird.TBirdWing.Fly;
begin
end;
{ TEagle.TEagleWing }
procedure TEagle.TEagleWing.Fly;
begin
//Span{declaration:fdt_nestedaliasclass.TBird.TBirdWing.Span}:=3;
end;
var
Wing: TEagle.TEagleWing;
begin
Wing:=TEagle.TEagleWing{declaration:fdt_nestedaliasclass.TEagle.TEagleWing}.Create;
// Wing.Fly{declaration:fdt_nestedaliasclass.TEagle.TEagleWing.Fly};
end.

6
components/codetools/tests/testfinddeclaration.pas
View File

@ -86,6 +86,7 @@ type
procedure TestFindDeclaration_With;
procedure TestFindDeclaration_ClassOf;
procedure TestFindDeclaration_NestedClasses;
procedure TestFindDeclaration_NestedAliasClass;
procedure TestFindDeclaration_ClassHelper;
procedure TestFindDeclaration_TypeHelper;
procedure TestFindDeclaration_ObjCClass;
@ -586,6 +587,11 @@ begin
FindDeclarations('moduletests/fdt_nestedclasses.pas');
end;
procedure TTestFindDeclaration.TestFindDeclaration_NestedAliasClass;
begin
FindDeclarations('moduletests/fdt_nestedaliasclass.pas');
end;
procedure TTestFindDeclaration.TestFindDeclaration_ClassHelper;
begin
FindDeclarations('moduletests/fdt_classhelper.pas');