From c15bbb359986995bc08c7aa944f62b19718e875a Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 6 Jan 2012 09:29:54 +0000
Subject: [PATCH] tests: complete block

git-svn-id: trunk@34610 -
---
 test/codetoolstests/testcompleteblock.pas | 19 ++++++++-----------
 1 file changed, 8 insertions(+), 11 deletions(-)

diff --git a/test/codetoolstests/testcompleteblock.pas b/test/codetoolstests/testcompleteblock.pas
index 1e64271670..d0d42c8c83 100644
--- a/test/codetoolstests/testcompleteblock.pas
+++ b/test/codetoolstests/testcompleteblock.pas
@@ -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