mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-08 12:58:18 +02:00
codetools: added new test
git-svn-id: trunk@65068 -
This commit is contained in:
pascal
parent
32591d0aff
commit
88eaecc93d
.gitattributes
components/codetools/tests
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -1030,6 +1030,7 @@ components/codetools/tests/moduletests/fdt_classof.pas svneol=native#text/plain
|
||||
components/codetools/tests/moduletests/fdt_for_in.pas svneol=native#text/plain
|
||||
components/codetools/tests/moduletests/fdt_generics.pas svneol=native#text/plain
|
||||
components/codetools/tests/moduletests/fdt_generics_guesstype.pas svneol=native#text/plain
|
||||
components/codetools/tests/moduletests/fdt_generics_guesstype2.pas svneol=native#text/plain
|
||||
components/codetools/tests/moduletests/fdt_guesstype1.pas svneol=native#text/plain
|
||||
components/codetools/tests/moduletests/fdt_nestedclasses.pas svneol=native#text/plain
|
||||
components/codetools/tests/moduletests/fdt_objccategory.pas svneol=native#text/plain
|
||||
|
||||
@ -0,0 +1,207 @@
|
||||
{
|
||||
./testcodetools --format=plain --suite=TestFindDeclaration_Generics_GuessType2
|
||||
}
|
||||
program project1;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
type
|
||||
|
||||
{ TEnumerator }
|
||||
|
||||
generic TEnumerator<T> = class abstract
|
||||
public
|
||||
property Current: T read DoGetCurrent;
|
||||
end;
|
||||
|
||||
{ TEnumerable }
|
||||
|
||||
generic TEnumerable<T> = class abstract
|
||||
public
|
||||
function GetEnumerator: specialize TEnumerator<T>; virtual; abstract;
|
||||
end;
|
||||
|
||||
{ TEnumerableWithPointers }
|
||||
|
||||
generic TEnumerableWithPointers<T> = class(specialize TEnumerable<T>)
|
||||
end;
|
||||
|
||||
{ TCustomList }
|
||||
|
||||
generic TCustomList<T> = class abstract(specialize TEnumerableWithPointers<T>)
|
||||
end;
|
||||
|
||||
{ TCustomListEnumerator }
|
||||
|
||||
generic TCustomListEnumerator<T> = class abstract(specialize TEnumerator<T>)
|
||||
protected
|
||||
function GetCurrent: T; virtual; abstract;
|
||||
end;
|
||||
|
||||
{ TCustomListWithPointers }
|
||||
|
||||
generic TCustomListWithPointers<T> = class(specialize TCustomList<T>)
|
||||
end;
|
||||
|
||||
{ TListP1 }
|
||||
|
||||
generic TListP1<B, B2, B3> = class(specialize TCustomListWithPointers<B>)
|
||||
private
|
||||
function GetItem(Index: SizeInt): B;
|
||||
procedure SetItem(Index: SizeInt; AValue: B);
|
||||
public
|
||||
type
|
||||
TEnumerator = class(specialize TCustomListEnumerator<B>);
|
||||
function GetEnumerator: TEnumerator; virtual; abstract;
|
||||
property Items[Index: SizeInt]: B read GetItem write SetItem; default;
|
||||
end;
|
||||
|
||||
{ TListP2 }
|
||||
|
||||
generic TListP2<B2, B, B3> = class(specialize TCustomListWithPointers<B>)
|
||||
private
|
||||
function GetItem(Index: SizeInt): B;
|
||||
procedure SetItem(Index: SizeInt; AValue: B);
|
||||
public
|
||||
type
|
||||
TEnumerator = class(specialize TCustomListEnumerator<B>);
|
||||
function GetEnumerator: TEnumerator; virtual; abstract;
|
||||
property Items[Index: SizeInt]: B read GetItem write SetItem; default;
|
||||
end;
|
||||
|
||||
{ TListP3 }
|
||||
|
||||
generic TListP3<B2, B3, B> = class(specialize TCustomListWithPointers<B>)
|
||||
private
|
||||
function GetItem(Index: SizeInt): B;
|
||||
procedure SetItem(Index: SizeInt; AValue: B);
|
||||
public
|
||||
type
|
||||
TEnumerator = class(specialize TCustomListEnumerator<B>);
|
||||
function GetEnumerator: TEnumerator; virtual; abstract;
|
||||
property Items[Index: SizeInt]: B read GetItem write SetItem; default;
|
||||
end;
|
||||
|
||||
generic TObjectListP1_1<A: class; A2, A3> = class(specialize TListP1<A, A2, A3>)
|
||||
end;
|
||||
generic TObjectListP1_2<A: class; A2, A3> = class(specialize TListP2<A2, A, A3>)
|
||||
end;
|
||||
generic TObjectListP1_3<A: class; A2, A3> = class(specialize TListP3<A2, A3, A>)
|
||||
end;
|
||||
|
||||
generic TObjectListP2_1<A2; A: class; A3> = class(specialize TListP1<A, A2, A3>)
|
||||
end;
|
||||
generic TObjectListP2_2<A2; A: class; A3> = class(specialize TListP2<A2, A, A3>)
|
||||
end;
|
||||
generic TObjectListP2_3<A2; A: class; A3> = class(specialize TListP3<A2, A3, A>)
|
||||
end;
|
||||
|
||||
generic TObjectListP3_1<A2, A3; A: class> = class(specialize TListP1<A, A2, A3>)
|
||||
end;
|
||||
generic TObjectListP3_2<A2, A3; A: class> = class(specialize TListP2<A2, A, A3>)
|
||||
end;
|
||||
generic TObjectListP3_3<A2, A3; A: class> = class(specialize TListP3<A2, A3, A>)
|
||||
end;
|
||||
|
||||
XYZ = Integer;
|
||||
|
||||
TObj = class
|
||||
X: XYZ;
|
||||
Y: Integer;
|
||||
function Z: String;
|
||||
end;
|
||||
TObj1 = class
|
||||
end;
|
||||
TObj2 = class
|
||||
end;
|
||||
|
||||
TOL_P1_1 = specialize TObjectListP1_1<TObj, TObj1, TObj2>;
|
||||
TOL_P1_2 = specialize TObjectListP1_2<TObj, TObj1, TObj2>;
|
||||
TOL_P1_3 = specialize TObjectListP1_3<TObj, TObj1, TObj2>;
|
||||
TOL_P2_1 = specialize TObjectListP2_1<TObj1, TObj, TObj2>;
|
||||
TOL_P2_2 = specialize TObjectListP2_2<TObj1, TObj, TObj2>;
|
||||
TOL_P2_3 = specialize TObjectListP2_3<TObj1, TObj, TObj2>;
|
||||
TOL_P3_1 = specialize TObjectListP3_1<TObj1, TObj2, TObj>;
|
||||
TOL_P3_2 = specialize TObjectListP3_2<TObj1, TObj2, TObj>;
|
||||
TOL_P3_3 = specialize TObjectListP3_3<TObj1, TObj2, TObj>;
|
||||
TOL_2 = class(specialize TObjectListP1_1<TObj, TObj1, TObj2>);
|
||||
TOL_3 = TOL_2;
|
||||
TOL_4 = class(TOL_2);
|
||||
|
||||
generic TArray<T> = array of T;
|
||||
|
||||
var
|
||||
OL_P1_1: TOL_P1_1;
|
||||
OL_P1_2: TOL_P1_2;
|
||||
OL_P1_3: TOL_P2_3;
|
||||
OL_P2_1: TOL_P2_1;
|
||||
OL_P2_2: TOL_P2_2;
|
||||
OL_P2_3: TOL_P2_3;
|
||||
OL_P3_1: TOL_P3_1;
|
||||
OL_P3_2: TOL_P3_2;
|
||||
OL_P3_3: TOL_P3_3;
|
||||
OL2: TOL_2;
|
||||
OL3: TOL_3;
|
||||
OL4: TOL_4;
|
||||
A: specialize TArray<TObj>;
|
||||
|
||||
function TListP1.GetItem(Index: SizeInt): B;
|
||||
begin
|
||||
end;
|
||||
|
||||
procedure TListP1.SetItem(Index: SizeInt; AValue: B);
|
||||
begin
|
||||
end;
|
||||
|
||||
function TListP2.GetItem(Index: SizeInt): B;
|
||||
begin
|
||||
end;
|
||||
|
||||
procedure TListP2.SetItem(Index: SizeInt; AValue: B);
|
||||
begin
|
||||
end;
|
||||
|
||||
function TListP3.GetItem(Index: SizeInt): B;
|
||||
begin
|
||||
end;
|
||||
|
||||
procedure TListP3.SetItem(Index: SizeInt; AValue: B);
|
||||
begin
|
||||
end;
|
||||
|
||||
function TObj.Z: String;
|
||||
begin
|
||||
end;
|
||||
|
||||
begin
|
||||
o_p1_1_x{guesstype:XYZ} := OL_P1_1[0].X;
|
||||
o_p1_1_y{guesstype:Integer} := OL_P1_1[0].Y;
|
||||
o_p1_1_z{guesstype:String} := OL_P1_1[0].Z;
|
||||
o_p1_2_x{guesstype:XYZ} := OL_P1_2[0].X;
|
||||
o_p1_2_y{guesstype:Integer} := OL_P1_2[0].Y;
|
||||
o_p1_2_z{guesstype:String} := OL_P1_2[0].Z;
|
||||
o_p1_3_x{guesstype:XYZ} := OL_P1_3[0].X;
|
||||
o_p1_3_y{guesstype:Integer} := OL_P1_3[0].Y;
|
||||
o_p1_3_z{guesstype:String} := OL_P1_3[0].Z;
|
||||
o_p2_1_x{guesstype:XYZ} := OL_P2_1[0].X;
|
||||
o_p2_1_y{guesstype:Integer} := OL_P2_1[0].Y;
|
||||
o_p2_1_z{guesstype:String} := OL_P2_1[0].Z;
|
||||
o_p2_2_x{guesstype:XYZ} := OL_P2_2[0].X;
|
||||
o_p2_2_y{guesstype:Integer} := OL_P2_2[0].Y;
|
||||
o_p2_2_z{guesstype:String} := OL_P2_2[0].Z;
|
||||
o_p2_3_x{guesstype:XYZ} := OL_P2_3[0].X;
|
||||
o_p2_3_y{guesstype:Integer} := OL_P2_3[0].Y;
|
||||
o_p2_3_z{guesstype:String} := OL_P2_3[0].Z;
|
||||
o_p3_1_x{guesstype:XYZ} := OL_P3_1[0].X;
|
||||
o_p3_1_y{guesstype:Integer} := OL_P3_1[0].Y;
|
||||
o_p3_1_z{guesstype:String} := OL_P3_1[0].Z;
|
||||
o_p3_2_x{guesstype:XYZ} := OL_P3_2[0].X;
|
||||
o_p3_2_y{guesstype:Integer} := OL_P3_2[0].Y;
|
||||
o_p3_2_z{guesstype:String} := OL_P3_2[0].Z;
|
||||
o_p3_3_x{guesstype:XYZ} := OL_P3_3[0].X;
|
||||
o_p3_3_y{guesstype:Integer} := OL_P3_3[0].Y;
|
||||
o_p3_3_z{guesstype:String} := OL_P3_3[0].Z;
|
||||
end.
|
||||
|
||||
|
||||
|
||||
@ -94,6 +94,7 @@ type
|
||||
procedure TestFindDeclaration_Generics_Enumerator;
|
||||
procedure TestFindDeclaration_Generics;
|
||||
procedure TestFindDeclaration_Generics_GuessType;
|
||||
procedure TestFindDeclaration_Generics_GuessType2;
|
||||
procedure TestFindDeclaration_GenericsDelphi_InterfaceAncestor;
|
||||
procedure TestFindDeclaration_ForIn;
|
||||
procedure TestFindDeclaration_FileAtCursor;
|
||||
@ -669,6 +670,11 @@ begin
|
||||
FindDeclarations('moduletests/fdt_generics_guesstype.pas');
|
||||
end;
|
||||
|
||||
procedure TTestFindDeclaration.TestFindDeclaration_Generics_GuessType2;
|
||||
begin
|
||||
FindDeclarations('moduletests/fdt_generics_guesstype2.pas');
|
||||
end;
|
||||
|
||||
procedure TTestFindDeclaration.TestFindDeclaration_GenericsDelphi_InterfaceAncestor;
|
||||
begin
|
||||
StartProgram;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user