mcs/btests/QualifiedNames.vb

   1 Imports System
   2 Namespace N1
   3         Namespace N2
   4                 Class C1
   5                         Public Shared a As Integer
   6                         Public Shared b As Integer
   7                         Public Shared Function F() As Integer
   8                                 Try
   9                                         N1.N2.C1.a=20
  10                                 Catch e As Exception
  11                                         Console.WriteLine("error resolving a fully qualified name")
  12                                 End Try
  13                                 b=30
  14                                 Return 47
  15                         End Function
  16                 End Class
  17         End Namespace
  18 End Namespace
  19 Module QualifiedNames
  20         Sub Main()
  21                 If N1.N2.C1.F()<>47 Then
  22                         Throw New Exception("#A1:QualifiedNames:Failed-Error accessing function using fully qualified names")
  23                 End If
  24                 If N1.N2.C1.a<>20 Then
  25                         Throw New Exception("#A2:QualifiedNames:Failed-Error accessing variables using fully qualified names")
  26                 End If
  27                 If N1.N2.C1.b<>30 Then
  28                         Throw New Exception("#A3:QualifiedNames:Failed-Error accessing variables using fully qualified names")
  29                 End If
  30         End Sub
  31 End Module