mcs/btests/AttributesD.vb

   1 REM LineNo: 26
   2 REM ExpectedError: BC30002
   3 REM ErrorMessage: Type 'C2' is not defined.
   4
   5 Imports System
   6
   7 <AttributeUsage(AttributeTargets.All, AllowMultiple:=True, Inherited:=True)> _
   8 Public Class AuthorAttribute
   9      Inherits Attribute
  10         Public Name
  11         Public Sub New(ByVal Name As String)
  12                 Me.Name=Name
  13         End Sub
  14
  15 End Class
  16
  17
  18 <Author("Robin Cook"),Author("Authur Haily")> _
  19 Public Class C1
  20
  21 End Class
  22
  23 Module Test
  24         Sub Main()
  25
  26                 Dim type As Type=GetType(C2)
  27                 Dim arr As Object()=type.GetCustomAttributes(GetType(AuthorAttribute),True)
  28                 If arr.Length=0 Then
  29                         Console.WriteLine("Interface has no attributes")
  30                 Else
  31                         Throw New Exception("AttributesC:Failed-Interfaces should not inherit attributes")
  32                 End If
  33         End Sub
  34 End Module