tests: added completeblock test for case of end

git-svn-id: trunk@35000 -
2025-04-19 01:29:31 +02:00 · 2012-01-28 18:06:41 +00:00 · 2012-01-28 18:06:41 +00:00 · cec16d5f5b
commit cec16d5f5b
parent 525e2b6af4
1 changed files with 7 additions and 0 deletions
--- a/test/codetoolstests/testcompleteblock.pas
+++ b/test/codetoolstests/testcompleteblock.pas
@ -174,6 +174,13 @@ begin
               +'  finally'+LineEnding
               +'  end;'+LineEnding
               +'end.');
+  CompleteBlock('begin'+LineEnding
+               +'  case of|'+LineEnding
+               +'end.',
+                'begin'+LineEnding
+                +'  case of|'+LineEnding
+                +'  end;'+LineEnding
+               +'end.');
 end;

 initialization