Author: mritvik
Date: 2005-04-20 04:00:35 -0400 (Wed, 20 Apr 2005)
New Revision: 43316
Added:
trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyCompany.vb
trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyCopyRight.vb
trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyDescription.vb
trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyFlagA.vb
trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyName.vb
trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyTitle.vb
trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyVersion.vb
trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyVersionBuild.vb
trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyVersionMajor.vb
trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyVersionMinor.vb
trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyVersionRevision.vb
trunk/mcs/mbas/Test/tests/attributes/AttributeCLSCompliant.vb
trunk/mcs/mbas/Test/tests/attributes/AttributesAssemblyCulture.vb
trunk/mcs/mbas/Test/tests/attributes/AttributesAssemblyMultiple.vb
Modified:
trunk/mcs/mbas/Test/tests/attributes/ChangeLog
Log:
2005-04-20 Ritvik Mayank <[EMAIL PROTECTED]>
* AttributeAssemblyVersion.vb
* AttributeCLSCompliant.vb
* AttributeAssemblyVersionMinor.vb
* AttributeAssemblyVersionRevision.vb
* AttributeAssemblyVersionBuild.vb
* AttributeAssemblyCompany.vb
* AttributesAssemblyCulture.vb
* AttributeAssemblyCopyRight.vb
* AttributeAssemblyFlagA.vb
* AttributeAssemblyVersionMajor.vb
* AttributesAssemblyMultiple.vb
* AttributeAssemblyName.vb
* AttributeAssemblyTitle.vb
* AttributeAssemblyDescription.vba
Added the above tets cases.
Added: trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyCompany.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyCompany.vb
2005-04-20 07:20:29 UTC (rev 43315)
+++ trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyCompany.vb
2005-04-20 08:00:35 UTC (rev 43316)
@@ -0,0 +1,24 @@
+'Author: Ritvik Mayank <[EMAIL PROTECTED]>
+'Copyright (C) 2005 Novell, Inc (http://www.novell.com)
+
+Imports System
+Imports System.Reflection
+Imports System.Runtime.CompilerServices
+
+<assembly: AssemblyCompany ("Novell, Inc.")>
+
+Module Test
+Sub Main()
+
+ dim asm as System.Reflection.Assembly
+ dim i as integer
+ asm = System.Reflection.Assembly.GetAssembly (GetType (Test))
+ dim att as object () = asm.GetCustomAttributes (false)
+ for i=0 to att.Length - 1
+ If att (i).ToString () <> "System.Reflection.AssemblyCompanyAttribute"
Then
+ Throw New System.Exception ("AssemblyCompany Attribute was not set
properly expected SystemAssemblyCompany but got", att (i))
+ End If
+ next i
+End Sub
+End Module
+
Added: trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyCopyRight.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyCopyRight.vb
2005-04-20 07:20:29 UTC (rev 43315)
+++ trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyCopyRight.vb
2005-04-20 08:00:35 UTC (rev 43316)
@@ -0,0 +1,23 @@
+'Author: Ritvik Mayank <[EMAIL PROTECTED]>
+'Copyright (C) 2005 Novell, Inc (http://www.novell.com)
+
+Imports System
+Imports System.Reflection
+Imports System.Runtime.CompilerServices
+
+<assembly: AssemblyCopyright ("2004, 2005 Novell, Inc.")>
+
+Module Test
+Sub Main()
+
+ dim asm as System.Reflection.Assembly
+ dim i as integer
+ asm = System.Reflection.Assembly.GetAssembly (GetType (Test))
+ dim att as object () = asm.GetCustomAttributes (false)
+ for i=0 to att.Length - 1
+ If att (i).ToString () <>
"System.Reflection.AssemblyCopyrightAttribute" Then
+ Throw New Exception ("AssemblyCopyright Attribute was not set
properly")
+ End If
+ next i
+End Sub
+End Module
Added: trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyDescription.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyDescription.vb
2005-04-20 07:20:29 UTC (rev 43315)
+++ trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyDescription.vb
2005-04-20 08:00:35 UTC (rev 43316)
@@ -0,0 +1,24 @@
+'Author: Ritvik Mayank <[EMAIL PROTECTED]>
+'Copyright (C) 2005 Novell, Inc (http://www.novell.com)
+
+Imports System
+Imports System.Reflection
+Imports System.Runtime.CompilerServices
+
+<assembly: AssemblyDescription("Mono VB Compiler")>
+
+Module Test
+Sub Main()
+
+ dim asm as System.Reflection.Assembly
+ dim i as integer
+ asm = System.Reflection.Assembly.GetAssembly (GetType (Test))
+ dim att as object () = asm.GetCustomAttributes (false)
+ for i=0 to att.Length - 1
+ if att (i).ToString () <>
"System.Reflection.AssemblyDescriptionAttribute" Then
+ Throw New exception ("Expected
System.Reflection.AssemblyDescriptionAttribute")
+ End If
+ next i
+End Sub
+End Module
+
Added: trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyFlagA.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyFlagA.vb
2005-04-20 07:20:29 UTC (rev 43315)
+++ trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyFlagA.vb
2005-04-20 08:00:35 UTC (rev 43316)
@@ -0,0 +1,19 @@
+'Author: Ritvik Mayank <[EMAIL PROTECTED]>
+'Copyright (C) 2005 Novell, Inc (http://www.novell.com)
+
+Imports System
+Imports System.Reflection
+Imports System.Runtime.CompilerServices
+
+
+Module Test
+Sub Main()
+
+ dim asm as System.Reflection.AssemblyName
+ dim i as integer
+ asm = System.Reflection.Assembly.GetCallingAssembly ().GetName ()
+ if asm.Flags.Tostring() <> "PublicKey" then
+ Throw New Exception ("Expected Assembly Flag to be PublicKey")
+ End if
+End Sub
+End Module
Added: trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyName.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyName.vb
2005-04-20 07:20:29 UTC (rev 43315)
+++ trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyName.vb
2005-04-20 08:00:35 UTC (rev 43316)
@@ -0,0 +1,18 @@
+'Author: Ritvik Mayank <[EMAIL PROTECTED]>
+'Copyright (C) 2005 Novell, Inc (http://www.novell.com)
+
+Imports System
+Imports System.Reflection
+Imports System.Runtime.CompilerServices
+
+<Assembly: AssemblyCulture(""), Assembly: AssemblyVersion("1.2.3.4")>
+
+Module Test
+Sub Main()
+
+ dim asm as System.Reflection.AssemblyName
+ dim i as integer
+ asm = System.Reflection.Assembly.GetCallingAssembly ().GetName ()
+ Console.WriteLine("Name = {0}", asm)
+End Sub
+End Module
\ No newline at end of file
Added: trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyTitle.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyTitle.vb
2005-04-20 07:20:29 UTC (rev 43315)
+++ trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyTitle.vb
2005-04-20 08:00:35 UTC (rev 43316)
@@ -0,0 +1,23 @@
+'Author: Ritvik Mayank <[EMAIL PROTECTED]>
+'Copyright (C) 2005 Novell, Inc (http://www.novell.com)
+
+Imports System
+Imports System.Reflection
+Imports System.Runtime.CompilerServices
+
+<assembly: AssemblyTitle("Mono VB Compiler")>
+
+Module Test
+Sub Main()
+
+ dim asm as System.Reflection.Assembly
+ dim i as integer
+ asm = System.Reflection.Assembly.GetAssembly (GetType (Test))
+ dim att as object () = asm.GetCustomAttributes (false)
+ for i=0 to att.Length - 1
+ if att (i).ToString () <> "System.Reflection.AssemblyTitleAttribute"
then
+ Throw New Exception ("Expected
System.Reflection.AssemblyTitleAttribute")
+ end if
+ next i
+End Sub
+End Module
Added: trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyVersion.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyVersion.vb
2005-04-20 07:20:29 UTC (rev 43315)
+++ trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyVersion.vb
2005-04-20 08:00:35 UTC (rev 43316)
@@ -0,0 +1,20 @@
+'Author: Ritvik Mayank <[EMAIL PROTECTED]>
+'Copyright (C) 2005 Novell, Inc (http://www.novell.com)
+
+Imports System
+Imports System.Reflection
+Imports System.Runtime.CompilerServices
+
+<assembly: AssemblyVersion("3.2.1.0")>
+
+Module Test
+Sub Main()
+
+ dim asm as System.Reflection.AssemblyName
+ dim i as integer
+ asm = System.Reflection.Assembly.GetCallingAssembly ().GetName ()
+ if asm.Version.ToString() <> "3.2.1.0" then
+ Throw New Exception ("Expected Version No. 3.2.1.0")
+ End if
+End Sub
+End Module
Added: trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyVersionBuild.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyVersionBuild.vb
2005-04-20 07:20:29 UTC (rev 43315)
+++ trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyVersionBuild.vb
2005-04-20 08:00:35 UTC (rev 43316)
@@ -0,0 +1,22 @@
+'Author: Ritvik Mayank <[EMAIL PROTECTED]>
+'Copyright (C) 2005 Novell, Inc (http://www.novell.com)
+
+Imports System
+Imports System.Reflection
+Imports System.Runtime.CompilerServices
+
+<assembly: AssemblyVersion("3.2.1.0")>
+
+Module Test
+Sub Main()
+
+ dim asm as System.Reflection.AssemblyName
+ dim i as integer
+ asm = System.Reflection.Assembly.GetCallingAssembly ().GetName ()
+ if asm.Version.Build.ToString() <> "1" then
+ Throw New Exception ("Expected Build Version No. 0")
+ End if
+
+End Sub
+End Module
+
Added: trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyVersionMajor.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyVersionMajor.vb
2005-04-20 07:20:29 UTC (rev 43315)
+++ trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyVersionMajor.vb
2005-04-20 08:00:35 UTC (rev 43316)
@@ -0,0 +1,22 @@
+'Author: Ritvik Mayank <[EMAIL PROTECTED]>
+'Copyright (C) 2005 Novell, Inc (http://www.novell.com)
+
+Imports System
+Imports System.Reflection
+Imports System.Runtime.CompilerServices
+
+<assembly: AssemblyVersion("3.2.1.0")>
+
+Module Test
+Sub Main()
+
+ dim asm as System.Reflection.AssemblyName
+ dim i as integer
+ asm = System.Reflection.Assembly.GetCallingAssembly ().GetName ()
+ if asm.Version.Major.ToString() <> "3" then
+ Throw New Exception ("Expected Major Version No. 3")
+ End if
+
+End Sub
+End Module
+
Added: trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyVersionMinor.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyVersionMinor.vb
2005-04-20 07:20:29 UTC (rev 43315)
+++ trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyVersionMinor.vb
2005-04-20 08:00:35 UTC (rev 43316)
@@ -0,0 +1,22 @@
+'Author: Ritvik Mayank <[EMAIL PROTECTED]>
+'Copyright (C) 2005 Novell, Inc (http://www.novell.com)
+
+Imports System
+Imports System.Reflection
+Imports System.Runtime.CompilerServices
+
+<assembly: AssemblyVersion("3.2.1.0")>
+
+Module Test
+Sub Main()
+
+ dim asm as System.Reflection.AssemblyName
+ dim i as integer
+ asm = System.Reflection.Assembly.GetCallingAssembly ().GetName ()
+ if asm.Version.Minor.ToString() <> "2" then
+ Throw New Exception ("Expected Minor Version No. 2")
+ End if
+
+End Sub
+End Module
+
Added: trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyVersionRevision.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyVersionRevision.vb
2005-04-20 07:20:29 UTC (rev 43315)
+++ trunk/mcs/mbas/Test/tests/attributes/AttributeAssemblyVersionRevision.vb
2005-04-20 08:00:35 UTC (rev 43316)
@@ -0,0 +1,22 @@
+'Author: Ritvik Mayank <[EMAIL PROTECTED]>
+'Copyright (C) 2005 Novell, Inc (http://www.novell.com)
+
+Imports System
+Imports System.Reflection
+Imports System.Runtime.CompilerServices
+
+<assembly: AssemblyVersion("3.2.1.0")>
+
+Module Test
+Sub Main()
+
+ dim asm as System.Reflection.AssemblyName
+ dim i as integer
+ asm = System.Reflection.Assembly.GetCallingAssembly ().GetName ()
+ if asm.Version.Revision.ToString() <> "0" then
+ Throw New Exception ("Expected Revision Version No. 0")
+ End if
+
+End Sub
+End Module
+
Added: trunk/mcs/mbas/Test/tests/attributes/AttributeCLSCompliant.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/attributes/AttributeCLSCompliant.vb
2005-04-20 07:20:29 UTC (rev 43315)
+++ trunk/mcs/mbas/Test/tests/attributes/AttributeCLSCompliant.vb
2005-04-20 08:00:35 UTC (rev 43316)
@@ -0,0 +1,23 @@
+'Author: Ritvik Mayank <[EMAIL PROTECTED]>
+'Copyright (C) 2005 Novell, Inc (http://www.novell.com)
+
+Imports System
+Imports System.Reflection
+Imports System.Runtime.CompilerServices
+
+<module: CLSCompliant(true)>
+<assembly: CLSCompliant(true)>
+
+Module Test
+ Sub Main()
+ dim asm as System.Reflection.Assembly
+ dim i as integer
+ asm = System.Reflection.Assembly.GetAssembly (GetType (Test))
+ dim att as object () = asm.GetCustomAttributes (false)
+ for i=0 to att.Length - 1
+ if att(i).ToString () <> "System.CLSCompliantAttribute" then
+ Throw New Exception ("Expected
System.CLSCompliantAttribute")
+ End if
+ next i
+ End Sub
+End Module
\ No newline at end of file
Added: trunk/mcs/mbas/Test/tests/attributes/AttributesAssemblyCulture.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/attributes/AttributesAssemblyCulture.vb
2005-04-20 07:20:29 UTC (rev 43315)
+++ trunk/mcs/mbas/Test/tests/attributes/AttributesAssemblyCulture.vb
2005-04-20 08:00:35 UTC (rev 43316)
@@ -0,0 +1,20 @@
+'Author: Ritvik Mayank <[EMAIL PROTECTED]>
+'Copyright (C) 2005 Novell, Inc (http://www.novell.com)
+
+Imports System
+Imports System.Reflection
+Imports System.Runtime.CompilerServices
+
+<Assembly: AssemblyCulture("")>
+
+Module Test
+Sub Main()
+
+ dim asm as System.Reflection.AssemblyName
+ asm = System.Reflection.Assembly.GetCallingAssembly ().GetName ()
+ if asm.cultureinfo.Tostring() <> ""
+ Throw New Exception ("Expected to be null")
+ End if
+End Sub
+End Module
+
Added: trunk/mcs/mbas/Test/tests/attributes/AttributesAssemblyMultiple.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/attributes/AttributesAssemblyMultiple.vb
2005-04-20 07:20:29 UTC (rev 43315)
+++ trunk/mcs/mbas/Test/tests/attributes/AttributesAssemblyMultiple.vb
2005-04-20 08:00:35 UTC (rev 43316)
@@ -0,0 +1,26 @@
+'Author: Ritvik Mayank <[EMAIL PROTECTED]>
+'Copyright (C) 2005 Novell, Inc (http://www.novell.com)
+
+Imports System
+Imports System.Reflection
+
+<Assembly:AssemblyVersionAttribute("1.0"), Assembly: AssemblyCulture("")>
+
+<AttributeUsage(AttributeTargets.All)> _
+Public Class AuthorAttribute
+ Inherits Attribute
+ Public Name
+ Public Sub New1(ByVal Name As String)
+ Me.Name=Name
+ If Me.Name <> "a" then
+ Throw New Exception ("Expected Me.Name to be a but got,
", Me.Name)
+ End if
+ End Sub
+End Class
+
+Module Test
+ Sub Main()
+ Dim a as AuthorAttribute = New AuthorAttribute ()
+ a.New1 ("a")
+ End Sub
+End Module
Modified: trunk/mcs/mbas/Test/tests/attributes/ChangeLog
===================================================================
--- trunk/mcs/mbas/Test/tests/attributes/ChangeLog 2005-04-20 07:20:29 UTC
(rev 43315)
+++ trunk/mcs/mbas/Test/tests/attributes/ChangeLog 2005-04-20 08:00:35 UTC
(rev 43316)
@@ -1,3 +1,20 @@
+2005-04-20 Ritvik Mayank <[EMAIL PROTECTED]>
+ * AttributeAssemblyVersion.vb
+ * AttributeCLSCompliant.vb
+ * AttributeAssemblyVersionMinor.vb
+ * AttributeAssemblyVersionRevision.vb
+ * AttributeAssemblyVersionBuild.vb
+ * AttributeAssemblyCompany.vb
+ * AttributesAssemblyCulture.vb
+ * AttributeAssemblyCopyRight.vb
+ * AttributeAssemblyFlagA.vb
+ * AttributeAssemblyVersionMajor.vb
+ * AttributesAssemblyMultiple.vb
+ * AttributeAssemblyName.vb
+ * AttributeAssemblyTitle.vb
+ * AttributeAssemblyDescription.vba
+ Added the above tets cases.
+
2005-04-05 Ritvik Mayank <[EMAIL PROTECTED]>
* AttributesClassNoparameterA.vb
* AttributesClassA.vb
_______________________________________________
Mono-patches maillist - [email protected]
http://lists.ximian.com/mailman/listinfo/mono-patches
