paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 15:20:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

tests: codetools: complete block

Browse Source 
git-svn-id: trunk@30211 -
This commit is contained in:
mattias 2011-04-05 22:18:42 +00:00
parent bbeedd1dd9
commit 61fd02d902
1 changed files with 34 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
test/codetoolstests/testcompleteblock.pas
View File

@ -113,10 +113,40 @@ end;
procedure TTestCodetoolsCompleteBlock.TestCompleteBlockClassStart; procedure TTestCodetoolsCompleteBlock.TestCompleteBlockClassStart;
begin begin
CompleteBlock('type'+LineEnding CompleteBlock('type'+LineEnding
+' TTestClass = class(TObject)|', +' TTestClass = class(TObject)|',
'type'+LineEnding 'type'+LineEnding
+' TTestClass = class(TObject)'+LineEnding +' TTestClass = class(TObject)'+LineEnding
+' |end;'); +' |end;');
CompleteBlock('type'+LineEnding
+' TTestClass = class(TObject)|'+LineEnding
+' TSecondClass =',
'type'+LineEnding
+' TTestClass = class(TObject)'+LineEnding
+' |end;'+LineEnding
+LineEnding
+' TSecondClass =');
CompleteBlock('type'+LineEnding
+' TTestClass = class(TObject)|'+LineEnding
+'implementation',
'type'+LineEnding
+' TTestClass = class(TObject)'+LineEnding
+' |end;'+LineEnding
+LineEnding
+'implementation');
CompleteBlock('begin'+LineEnding
+' while do begin|'+LineEnding
+'end.',
'begin'+LineEnding
+' while do begin|'+LineEnding
+' end;'+LineEnding
+'end.');
CompleteBlock('begin'+LineEnding
+' repeat|'+LineEnding
+'end.',
'begin'+LineEnding
+' repeat|'+LineEnding
+' until ;'+LineEnding
+'end.');
end; end;
initialization initialization