mcs/mbas/Test/errors/LoopStatementsC10.vb

   1 'Author:\r
   2 '   V. Sudharsan (vsudharsan@novell.com)\r
   3 '\r
   4 ' (C) 2005 Novell, Inc.\r
   5 \r
   6 REM LineNo: 18\r
   7 REM ExpectedError: BC30238\r
   8 REM ErrorMessage: 'Loop' cannot have a condition if matching 'Do' has one.\r
   9 \r
  10 Module Test\r
  11     Sub Main()\r
  12         Dim x As Integer\r
  13         Dim i As Integer=0\r
  14         x = 3\r
  15         Do Until x <> 1         \r
  16             i = i + 1\r
  17                 x = x - 1\r
  18         Loop Until x <> 1\r
  19           if i <> 4 then \r
  20                 Throw new System.Exception("Loop not working properly. Expected 4 but got "&i)\r
  21           End if \r
  22     End Sub\r
  23 End Module\r