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

codetools: added test for complete block

Browse Source 
git-svn-id: trunk@20276 -
This commit is contained in:
mattias 2009-05-28 11:23:40 +00:00
parent 077b9c0616
commit 00d6ae5915
3 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -106,6 +106,8 @@ components/codetools/examples/codecompletion.lpi svneol=native#text/plain
components/codetools/examples/codecompletion.lpr svneol=native#text/plain
components/codetools/examples/completeabstractmethods.lpi svneol=native#text/plain
components/codetools/examples/completeabstractmethods.lpr svneol=native#text/plain
components/codetools/examples/completeblocktests/procedurebegin1.inc svneol=native#text/plain
components/codetools/examples/completeblocktests/unit1.pas svneol=native#text/plain
components/codetools/examples/finddeclaration.lpi svneol=native#text/plain
components/codetools/examples/finddeclaration.lpr svneol=native#text/plain
components/codetools/examples/findunusedunits.lpi svneol=native#text/plain

9
components/codetools/examples/completeblocktests/procedurebegin1.inc Normal file
View File

@ -0,0 +1,9 @@
{%MainUnit unit1.pas}
procedure Do1;
begin
procedure Do2;
begin
end;

17
components/codetools/examples/completeblocktests/unit1.pas Normal file
View File

@ -0,0 +1,17 @@
unit unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils;
implementation
{$IFDEF procedurebegin}
{$I procedurebegin1.inc}
{$ENDIF}
end.