mcs/mbas/Test/tests/ConstructorJ.vb

   1 'Author:
   2 '   V. Sudharsan (vsudharsan@novell.com)
   3 '
   4 ' (C) 2005 Novell, Inc.
   5
   6 'Checking circular references\r
   7 \r
   8 Imports System\r
   9 \r
  10 Class A\r
  11     Public Shared X As Integer = B.Y + 1\r
  12     Shared Sub Hello()\r
  13                 if A.X <> 2 or B.Y <> 1\r
  14                         Throw new System.Exception("Shared Construtor not working")\r
  15                 End if\r
  16     End Sub\r
  17 End Class\r
  18 \r
  19 Class B\r
  20     Public Shared Y As Integer = A.X + 1\r
  21 End Class\r
  22 \r
  23 \r
  24 Module Test\r
  25     Public Sub Main()           \r
  26                 A.Hello()\r
  27     End Sub\r
  28 End Module\r
  29 \r