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

Codetools: Tests for: Keep empty () on code completion. Issue #39712.

Browse Source
This commit is contained in:
Pascal Riekenberg 2022-07-06 22:33:47 +02:00
parent 781955e856
commit d5951070d0
1 changed files with 44 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -40,6 +40,8 @@ type
procedure TestCompleteProperty_GenericObjFPC;
procedure TestCompleteProperty_GenericDelphi;
procedure TestCompleteVariableWithSpecializedType;
procedure TestCompleteMethodSignature_Empty_Parentheses;
procedure TestCompleteMethodSignature_Without_Parentheses;
end;
implementation
@ -856,6 +858,48 @@ begin
'end.']);
end;
procedure TTestCodeCompletion.TestCompleteMethodSignature_Empty_Parentheses;
begin
Test('TestCompleteMethodSignature_Empty_Parentheses',
['unit SomeUnit;'
,'{$MODE OBJFPC}'
,'interface'
,'procedure Foo();'
,'implementation'
,'end.'],
4,1,
['unit SomeUnit;'
,'{$MODE OBJFPC}'
,'interface'
,'procedure Foo();'
,'implementation'
,'procedure Foo();'
,'begin'
,'end;'
,'end.']);
end;
procedure TTestCodeCompletion.TestCompleteMethodSignature_Without_Parentheses;
begin
Test('TestCompleteMethodSignature_Without_Parentheses',
['unit SomeUnit;'
,'{$MODE OBJFPC}'
,'interface'
,'procedure Foo;'
,'implementation'
,'end.'],
4,1,
['unit SomeUnit;'
,'{$MODE OBJFPC}'
,'interface'
,'procedure Foo;'
,'implementation'
,'procedure Foo;'
,'begin'
,'end;'
,'end.']);
end;
initialization
RegisterTests([TTestCodeCompletion]);