mcs/mbas/Test/tests/attributes/AttributeAssemblyName.vb

   1 'Author: Ritvik Mayank <mritvik@novell.com>\r
   2 'Copyright (C) 2005 Novell, Inc (http://www.novell.com)\r
   3 \r
   4 Imports System\r
   5 Imports System.Reflection\r
   6 Imports System.Runtime.CompilerServices\r
   7 \r
   8 <Assembly: AssemblyCulture(""), Assembly: AssemblyVersion("1.2.3.4")>\r
   9 \r
  10 Module Test\r
  11 Sub Main()\r
  12         \r
  13         dim asm as System.Reflection.AssemblyName\r
  14         dim i as integer\r
  15         asm = System.Reflection.Assembly.GetCallingAssembly ().GetName ()\r
  16         if asm.toString() <> "AttributeAssemblyName, Version=1.2.3.4, Culture=neutral, PublicKeyToken=null"                     \r
  17                 throw new System.Exception("#A1 Atributes not working")\r
  18         End If          \r
  19 End Sub\r
  20 End Module