paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-04 04:00:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: test varargs of type

Browse Source 
git-svn-id: trunk@62654 -
This commit is contained in:
mattias 2020-02-21 11:42:41 +00:00
parent 68c2c03aa8
commit 6f178bc229
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -104,6 +104,7 @@ type
procedure TestFindDeclaration_AnonymProc;
procedure TestFindDeclaration_AnonymProc_ExprDot;
procedure TestFindDeclaration_ArrayMultiDimDot;
procedure TestFindDeclaration_VarArgsOfType;
// test all files in directories:
procedure TestFindDeclaration_FPCTests;
procedure TestFindDeclaration_LazTests;
@ -1019,6 +1020,20 @@ begin
FindDeclarations(Code);
end;
procedure TTestFindDeclaration.TestFindDeclaration_VarArgsOfType;
begin
StartProgram;
Add([
'procedure Run; varargs of word;',
'begin',
' Run{declaration:run}(1,2);',
'end;',
'begin',
' Run{declaration:run}(3);',
'end.']);
FindDeclarations(Code);
end;
procedure TTestFindDeclaration.TestFindDeclaration_FPCTests;
begin
TestFiles('fpctests');