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

codetools: test attribute in dispinterface

Browse Source 
git-svn-id: trunk@56519 -
This commit is contained in:
mattias 2017-11-28 09:19:19 +00:00
parent ff31eb07db
commit ec8cc2e82f
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -874,7 +874,7 @@ begin
' end;', ' end;',
' [Bird{declaration:BirdAttribute}]', ' [Bird{declaration:BirdAttribute}]',
' THawk = class', ' THawk = class',
' [Bird(1)]', ' [Bird{declaration:BirdAttribute}(1)]',
' FField: integer;', ' FField: integer;',
' [Bird(2)]', ' [Bird(2)]',
' procedure DoSome;', ' procedure DoSome;',
@ -889,6 +889,11 @@ begin
' [Bird(13)]', ' [Bird(13)]',
' property Some: integer read GetSome;', ' property Some: integer read GetSome;',
' end;', ' end;',
' IMy = dispinterface',
' [''guid'']',
' [Bird(21)]',
' function GetMore: integer;',
' end;',
'[test1.bird]', '[test1.bird]',
'[bird(4)]', '[bird(4)]',
'procedure DoIt; forward;', 'procedure DoIt; forward;',