mcs/mbas/Test/tests/DefaultPropC.vb

   1 'Author:
   2 '   V. Sudharsan (vsudharsan@novell.com)
   3 '
   4 ' (C) 2003 Ximian, Inc.
   5
   6 Imports System
   7
   8 Class base
   9         Public Default ReadOnly Property Item(ByVal i as Integer)As Integer
  10                 Get
  11                         Return i
  12                 End Get
  13         End Property
  14 End Class
  15
  16 Class derive
  17         Inherits base
  18         Public Shadows ReadOnly Property Item(ByVal i as Integer)As Integer
  19                 Get
  20                         Return 2*i
  21                 End Get
  22         End Property
  23 End Class
  24
  25 Class derive1
  26         Inherits derive
  27         Public Shadows Default ReadOnly Property Item1(ByVal i as Integer)As Integer
  28                 Get
  29                         Return 3*i
  30                 End Get
  31         End Property
  32 End Class
  33
  34 Module DefaultA
  35         Sub Main()
  36                 Dim a as derive1=new derive1()
  37                 Dim b as derive = a
  38                 Dim i, j, k as Integer
  39                 i=a(10)
  40                 j=a.Item(10)
  41                 k=b(10)
  42                 if i<>30 Then
  43                         Throw New Exception("Default Not Working properly in Derive1")
  44                 End If
  45                 if j<>20 Then
  46                         Throw New Exception("Default Not Working properly in Derive")
  47                 End If
  48                 if k<>10 Then
  49                         Throw New Exception("Default Not Working properly in Base")
  50                 End If
  51         End Sub
  52 End Module