mcs/mbas/Test/tests/typemembers/OverloadResolutionE.vb

   1 'Author:
   2 '   V. Sudharsan (vsudharsan@novell.com)
   3 '
   4 ' (C) 2005 Novell, Inc.
   5
   6 Imports System
   7
   8 Class Base
   9 End Class
  10
  11 Class Derived
  12     Inherits Base
  13 End Class
  14
  15 Class Derived1
  16     Inherits Derived
  17 End Class
  18
  19 Module Test
  20     Public i as integer
  21     Sub F(ByVal b As Base)
  22         i = 10
  23     End Sub
  24
  25     Sub F(ByVal d As Object)
  26         i = 20
  27     End Sub
  28
  29     Sub Main()
  30         Dim b As Base = New Derived1()
  31         Dim o As Object = b
  32
  33         F(b)
  34           if i<>10
  35                 throw new System.Exception("#A1 Latebinding Not working")
  36           end if
  37         F(o)
  38           if i<>20
  39                 throw new System.Exception("#A2 Latebinding Not working")
  40           end if
  41     End Sub
  42 End Module