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

tests: complete block

Browse Source 
git-svn-id: trunk@34610 -
This commit is contained in:
mattias 2012-01-06 09:29:54 +00:00
parent 6ffa774f3f
commit c15bbb3599
1 changed files with 8 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
test/codetoolstests/testcompleteblock.pas
View File

@ -63,9 +63,10 @@ procedure TTestCodetoolsCompleteBlock.CompleteBlock(Src, ExpectedSrc: string;
function CreateFullSrc(Src: string; out Cursor: integer): string;
begin
Result:='unit testcompleteblock;'+LineEnding
Result:=Src;
{Result:='unit testcompleteblock;'+LineEnding
+'interface'+LineEnding
+Src;
+Src;}
if not (Result[length(Result)] in [#10,#13]) then
Result:=Result+LineEnding;
Cursor:=System.Pos('|',Result);
@ -151,24 +152,20 @@ begin
+' |end;'+LineEnding
+LineEnding
+'implementation');
{CompleteBlock('implementation'+LineEnding
+'begin'+LineEnding
CompleteBlock('begin'+LineEnding
+' while do begin|'+LineEnding
+'end.',
'implementation'+LineEnding
+'begin'+LineEnding
'begin'+LineEnding
+' while do begin|'+LineEnding
+' end;'+LineEnding
+'end.');
CompleteBlock('implementation'+LineEnding
+'begin'+LineEnding
CompleteBlock('begin'+LineEnding
+' repeat|'+LineEnding
+'end.',
'implementation'+LineEnding
+'begin'+LineEnding
'begin'+LineEnding
+' repeat|'+LineEnding
+' until ;'+LineEnding
+'end.');}
+'end.');
end;
initialization