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

codetools: added test class completion with function result type params

Browse Source 
git-svn-id: trunk@61716 -
This commit is contained in:
mattias 2019-08-17 18:35:47 +00:00
parent 85ba413f31
commit f167da7d21
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -707,6 +707,7 @@ begin
'type',
' TBird<T> = class',
' public',
' function Fly(w: TArray<T>): TArray<T>;',
' property Wing: string;',
' end;',
'implementation',
@ -724,6 +725,7 @@ begin
' fWing: string;',
' procedure SetWing(AValue: string);',
' public',
' function Fly(w: TArray<T>): TArray<T>;',
' property Wing: string read fWing write SetWing;',
' end;',
'implementation',
@ -732,6 +734,9 @@ begin
' if fWing=AValue then Exit;',
' fWing:=AValue;',
'end;',
'function TBird<T>.Fly(w: TArray<T>): TArray<T>;',
'begin',
'end;',
'end.']);
end;