mcs/btests/InheritanceI.vb

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