paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 11:19:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: test for regression due to generic type fixes

Browse Source 
git-svn-id: trunk@64980 -
This commit is contained in:
pascal 2021-04-13 08:16:29 +00:00
parent ce93f694d9
commit 052438a840
1 changed files with 41 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
components/codetools/tests/testcodecompletion.pas
View File

@ -39,6 +39,7 @@ type
procedure TestCompleteProperty_TypeGenericDelphi;
procedure TestCompleteProperty_GenericObjFPC;
procedure TestCompleteProperty_GenericDelphi;
procedure TestCompleteVariableWithSpecializedType;
end;
implementation
@ -816,6 +817,46 @@ begin
'end.']);
end;
procedure TTestCodeCompletion.TestCompleteVariableWithSpecializedType;
begin
Test('TestCompleteVariableWithSpecializedType (not fixed so far)',
['program Project1;',
'{$mode objfpc}{$H+}',
'uses',
' Generics.Collections;',
'type',
' generic TObjectList2<T> = class(specialize TObjectList<T>)',
' end;',
' TList = specialize TObjectList2<TObject>;',
' TClass = class',
' List: TList;',
' end;',
'var',
' Base: TObject;',
'begin',
' List := TClass(Base).List;',
'end.'],
15,3,
['program Project1;',
'{$mode objfpc}{$H+}',
'uses',
' Generics.Collections;',
'type',
' generic TObjectList2<T> = class(specialize TObjectList<T>)',
' end;',
' TList = specialize TObjectList2<TObject>;',
' TClass = class',
' List: TList;',
' end;',
'var',
' Base: TObject;',
' List: TList;',
'begin',
' List := TClass(Base).List;',
'end.']);
end;
initialization
RegisterTests([TTestCodeCompletion]);
end.