mcs/mbas/Test/tests/expressions/ExpressionMemberAccess.vb

   1 'Author: Ritvik Mayank <mritvik@novell.com>
   2 'Copyright (C) 2005 Novell, Inc (http://www.novell.com)
   3
   4 Imports System
   5 Class C
   6         Public Shared F As Integer = 10
   7 End Class
   8
   9 Module Test
  10         Public Function ReturnC() As C
  11                 Console.WriteLine("Returning a new instance of C.")
  12                 Return New C()
  13         End Function
  14
  15         Public Sub Main()
  16                 if Returnc().F <> 10 Then
  17                         Throw New Exception ("Unexpected Behavior Returnc().F should be 10")
  18                 End If
  19         End Sub
  20 End Module