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

codetools: added test while begin

Browse Source 
git-svn-id: trunk@20278 -
This commit is contained in:
mattias 2009-05-28 11:37:18 +00:00
parent 4c328019d2
commit daf4fa8599
4 changed files with 14 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -110,6 +110,7 @@ components/codetools/examples/completeblock.lpi svneol=native#text/plain
components/codetools/examples/completeblock.pas 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/completeblocktests/whilebegin1.inc 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

25
components/codetools/examples/completeblock.lpi
View File

@ -30,35 +30,12 @@
<PackageName Value="CodeTools"/>
</Item1>
</RequiredPackages>
<Units Count="6">
<Units Count="1">
<Unit0>
<Filename Value="completeblock.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="CompleteBlock"/>
</Unit0>
<Unit1>
<Filename Value="scanexamples/brokenfilenames.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="BrokenFilenames"/>
</Unit1>
<Unit2>
<Filename Value="scanexamples/brokenincfiles.inc"/>
<IsPartOfProject Value="True"/>
</Unit2>
<Unit3>
<Filename Value="scanexamples/empty.inc"/>
<IsPartOfProject Value="True"/>
</Unit3>
<Unit4>
<Filename Value="scanexamples/indentation.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="Indentation"/>
</Unit4>
<Unit5>
<Filename Value="completeblocktests/unit1.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="unit1"/>
</Unit5>
</Units>
</ProjectOptions>
<CompilerOptions>

4
components/codetools/examples/completeblocktests/unit1.pas
View File

@ -13,5 +13,9 @@ implementation
{$I procedurebegin1.inc}
{$ENDIF}
{$IFDEF whilebegin}
{$I whilebegin1.inc}
{$ENDIF}
end.

8
components/codetools/examples/completeblocktests/whilebegin1.inc Normal file
View File

@ -0,0 +1,8 @@
{%MainUnit unit1.pas}
procedure Do1;
begin
while true do
begin
end;