mcs/mbas/Test/tests/InheritanceG.vb

   1 Imports System
   2
   3 'Testing a class that inherits from an inner class of another class
   4
   5 Class C2
   6         Class C3
   7                 Public Function F() As Integer
   8                         Return 1
   9                 End Function
  10         End Class
  11 End Class
  12 Class C1
  13     Inherits C2.C3
  14         Public Function F1() As Integer
  15                 Return F()
  16         End Function
  17 End Class
  18
  19 Module Inheritance
  20         Sub Main()
  21                 Dim myC As New C1()
  22                 Dim a As Integer=myC.F1()
  23                 If a<>1 Then
  24                         Throw New Exception("InheritanceG:Failed - Error inheriting an inner class")
  25                 End If
  26         End Sub
  27 End Module