Author: sudha
Date: 2005-04-26 02:36:57 -0400 (Tue, 26 Apr 2005)
New Revision: 43578
Added:
trunk/mcs/mbas/Test/errors/LateBindingC1.vb
trunk/mcs/mbas/Test/errors/TypeMembersC1.vb
trunk/mcs/mbas/Test/errors/TypeMembersC2.vb
trunk/mcs/mbas/Test/errors/TypeMembersC3.vb
trunk/mcs/mbas/Test/errors/TypeMembersC4.vb
trunk/mcs/mbas/Test/errors/TypeMembersC5.vb
trunk/mcs/mbas/Test/rerrors/Test/LateBinding1.vb
trunk/mcs/mbas/Test/rerrors/Test/LateBinding10.vb
trunk/mcs/mbas/Test/rerrors/Test/LateBinding11.vb
trunk/mcs/mbas/Test/rerrors/Test/LateBinding12.vb
trunk/mcs/mbas/Test/rerrors/Test/LateBinding2.vb
trunk/mcs/mbas/Test/rerrors/Test/LateBinding3.vb
trunk/mcs/mbas/Test/rerrors/Test/LateBinding4.vb
trunk/mcs/mbas/Test/rerrors/Test/LateBinding5.vb
trunk/mcs/mbas/Test/rerrors/Test/LateBinding6.vb
trunk/mcs/mbas/Test/rerrors/Test/LateBinding7.vb
trunk/mcs/mbas/Test/rerrors/Test/LateBinding8.vb
trunk/mcs/mbas/Test/rerrors/Test/LateBinding9.vb
trunk/mcs/mbas/Test/tests/latebinding/
trunk/mcs/mbas/Test/tests/latebinding/Makefile
trunk/mcs/mbas/Test/tests/latebinding/TypeMembersA.vb
trunk/mcs/mbas/Test/tests/latebinding/TypeMembersB.vb
trunk/mcs/mbas/Test/tests/latebinding/TypeMembersC.vb
trunk/mcs/mbas/Test/tests/latebinding/TypeMembersD.vb
trunk/mcs/mbas/Test/tests/latebinding/TypeMembersE.vb
trunk/mcs/mbas/Test/tests/latebinding/TypeMembersF.vb
trunk/mcs/mbas/Test/tests/latebinding/TypeMembersG.vb
trunk/mcs/mbas/Test/tests/latebinding/TypeMembersH.vb
trunk/mcs/mbas/Test/tests/latebinding/TypeMembersI.vb
trunk/mcs/mbas/Test/tests/latebinding/TypeMembersJ.vb
trunk/mcs/mbas/Test/tests/latebinding/TypeMembersK.vb
trunk/mcs/mbas/Test/tests/latebinding/TypeMembersL.vb
trunk/mcs/mbas/Test/tests/latebinding/TypeMembersM.vb
trunk/mcs/mbas/Test/tests/latebinding/TypeMembersN.vb
trunk/mcs/mbas/Test/tests/latebinding/TypeMembersO.vb
trunk/mcs/mbas/Test/tests/latebinding/TypeMembersP.vb
trunk/mcs/mbas/Test/tests/latebinding/TypeMembersQ.vb
trunk/mcs/mbas/Test/tests/latebinding/test-mbas.make
Modified:
trunk/mcs/mbas/Test/ChangeLog
trunk/mcs/mbas/Test/rerrors/rerrors_btest.dll.sources
Log:
Testcases for Late Binding and typemembers
Modified: trunk/mcs/mbas/Test/ChangeLog
===================================================================
--- trunk/mcs/mbas/Test/ChangeLog 2005-04-26 05:48:01 UTC (rev 43577)
+++ trunk/mcs/mbas/Test/ChangeLog 2005-04-26 06:36:57 UTC (rev 43578)
@@ -1,6 +1,12 @@
2005-03-30 Satya Sudha K <[EMAIL PROTECTED]>
Sudharsan V <[EMAIL PROTECTED]>
+ * Testcases for Late binding
+ * Few negative testcases for typemembers
+
+2005-03-30 Satya Sudha K <[EMAIL PROTECTED]>
+ Sudharsan V <[EMAIL PROTECTED]>
+
* Separate 'test-mbas.pl' scripts for 'tests' and 'errors'
* Under 'errors': taking the line no also into account while verifying
errors
Added: trunk/mcs/mbas/Test/errors/LateBindingC1.vb
===================================================================
--- trunk/mcs/mbas/Test/errors/LateBindingC1.vb 2005-04-26 05:48:01 UTC (rev
43577)
+++ trunk/mcs/mbas/Test/errors/LateBindingC1.vb 2005-04-26 06:36:57 UTC (rev
43578)
@@ -0,0 +1,23 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+REM LineNo: 21
+REM ExpectedError: BC30574
+REM ErrorMessage: Option Strict On disallows late binding.
+
+Option Strict
+
+Class C
+ Sub fun(ByRef a as Integer)
+ End Sub
+End Class
+
+Module M
+ Sub Main()
+ Dim a as Object = 10
+ Dim o as Object = new C()
+ o.fun(a)
+ End Sub
+End Module
Added: trunk/mcs/mbas/Test/errors/TypeMembersC1.vb
===================================================================
--- trunk/mcs/mbas/Test/errors/TypeMembersC1.vb 2005-04-26 05:48:01 UTC (rev
43577)
+++ trunk/mcs/mbas/Test/errors/TypeMembersC1.vb 2005-04-26 06:36:57 UTC (rev
43578)
@@ -0,0 +1,25 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+REM LineNo: 23
+REM ExpectedError: BC30241
+REM ErrorMessage: Named argument expected.
+
+REM LineNo: 23
+REM ExpectedError: BC30241
+REM ErrorMessage: Named argument expected.
+
+Class C
+ Public Function fun(i as integer, a1 as Char)
+ return 10
+ End Function
+End Class
+
+Module M
+ Sub Main()
+ dim o as C = new C()
+ dim a as integer = o.fun(a1 := "s", 2 := 3, i := 2, := 3)
+ End Sub
+End Module
Added: trunk/mcs/mbas/Test/errors/TypeMembersC2.vb
===================================================================
--- trunk/mcs/mbas/Test/errors/TypeMembersC2.vb 2005-04-26 05:48:01 UTC (rev
43577)
+++ trunk/mcs/mbas/Test/errors/TypeMembersC2.vb 2005-04-26 06:36:57 UTC (rev
43578)
@@ -0,0 +1,28 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+REM LineNo: 26
+REM ExpectedError: BC30455
+REM ErrorMessage: Argument not specified for parameter 'a1' of 'Public
Function fun(i As Integer, a1 As Long) As Object'.
+
+REM LineNo: 26
+REM ExpectedError: BC30272
+REM ErrorMessage: 'a' is not a parameter of 'Public Function fun(i As Integer,
a1 As Long) As Object'.
+
+Class C
+ Public Function fun(i as integer, a1 as Long)
+ if i=2 and a1=1 then
+ return 10
+ end if
+ return 11
+ End Function
+End Class
+
+Module M
+ Sub Main()
+ dim o as C = new C()
+ dim a as integer = o.fun(a := 1, i := 2)
+ End Sub
+End Module
Added: trunk/mcs/mbas/Test/errors/TypeMembersC3.vb
===================================================================
--- trunk/mcs/mbas/Test/errors/TypeMembersC3.vb 2005-04-26 05:48:01 UTC (rev
43577)
+++ trunk/mcs/mbas/Test/errors/TypeMembersC3.vb 2005-04-26 06:36:57 UTC (rev
43578)
@@ -0,0 +1,24 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+REM LineNo: 22
+REM ExpectedError: BC32007
+REM ErrorMessage: 'Integer' values cannot be converted to 'Char'.
+
+Class C
+ Public Function fun(i as integer, a1 as Char)
+ if i=2 and a1=1 then
+ return 10
+ end if
+ return 11
+ End Function
+End Class
+
+Module M
+ Sub Main()
+ dim o as C = new C()
+ dim a as integer = o.fun(a1 := 1, i := 2)
+ End Sub
+End Module
Added: trunk/mcs/mbas/Test/errors/TypeMembersC4.vb
===================================================================
--- trunk/mcs/mbas/Test/errors/TypeMembersC4.vb 2005-04-26 05:48:01 UTC (rev
43577)
+++ trunk/mcs/mbas/Test/errors/TypeMembersC4.vb 2005-04-26 06:36:57 UTC (rev
43578)
@@ -0,0 +1,21 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+REM LineNo: 19
+REM ExpectedError: BC30241
+REM ErrorMessage: Named argument expected.
+
+Class C
+ Public Function fun(i as integer, a1 as Char)
+ return 10
+ End Function
+End Class
+
+Module M
+ Sub Main()
+ dim o as C = new C()
+ dim a as integer = o.fun(a1 := "s", 2)
+ End Sub
+End Module
Added: trunk/mcs/mbas/Test/errors/TypeMembersC5.vb
===================================================================
--- trunk/mcs/mbas/Test/errors/TypeMembersC5.vb 2005-04-26 05:48:01 UTC (rev
43577)
+++ trunk/mcs/mbas/Test/errors/TypeMembersC5.vb 2005-04-26 06:36:57 UTC (rev
43578)
@@ -0,0 +1,25 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+REM LineNo: 23
+REM ExpectedError: BC30272
+REM ErrorMessage: Argument not specified for parameter 'i' of 'Public
Function fun(i As Integer, a1 As Char) As Object'.
+
+REM LineNo: 23
+REM ExpectedError: BC30455
+REM ErrorMessage: 'j' is not a parameter of 'Public Function fun(i As
Integer, a1 As Char) As Object'.
+
+Class C
+ Public Function fun(i as integer, a1 as Char)
+ return 10
+ End Function
+End Class
+
+Module M
+ Sub Main()
+ dim o as C = new C()
+ dim a as integer = o.fun(a1 := "s", j := 3)
+ End Sub
+End Module
Added: trunk/mcs/mbas/Test/rerrors/Test/LateBinding1.vb
===================================================================
--- trunk/mcs/mbas/Test/rerrors/Test/LateBinding1.vb 2005-04-26 05:48:01 UTC
(rev 43577)
+++ trunk/mcs/mbas/Test/rerrors/Test/LateBinding1.vb 2005-04-26 06:36:57 UTC
(rev 43578)
@@ -0,0 +1,23 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Imports System
+Imports Nunit.Framework
+
+Class Test123
+ Function fun() As Object
+ return "c"
+ End Function
+End Class
+
+<TestFixture>_
+Public Class TypeMembers1
+ _<Test, ExpectedException (GetType (System.InvalidCastException))>
+ Public Sub TestForException()
+ dim a as Long
+ dim o as Object = new Test123()
+ a = o.fun()
+ End Sub
+End Class
Added: trunk/mcs/mbas/Test/rerrors/Test/LateBinding10.vb
===================================================================
--- trunk/mcs/mbas/Test/rerrors/Test/LateBinding10.vb 2005-04-26 05:48:01 UTC
(rev 43577)
+++ trunk/mcs/mbas/Test/rerrors/Test/LateBinding10.vb 2005-04-26 06:36:57 UTC
(rev 43578)
@@ -0,0 +1,30 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Imports System
+Imports Nunit.Framework
+
+Class TestTypeMembers12
+ Public Default Property Item(ByVal i as Date)As date
+ Get
+ Return i
+ End Get
+ Set
+ End set
+ End Property
+End Class
+
+
+<TestFixture>_
+Public Class TypeMembers12
+ _<Test, ExpectedException (GetType (System.InvalidCastException))>
+ Public Sub TestForException()
+ Dim a as Object=new TestTypeMembers12()
+ Dim i as date
+ i=a(10)
+ End Sub
+End Class
+
+
Added: trunk/mcs/mbas/Test/rerrors/Test/LateBinding11.vb
===================================================================
--- trunk/mcs/mbas/Test/rerrors/Test/LateBinding11.vb 2005-04-26 05:48:01 UTC
(rev 43577)
+++ trunk/mcs/mbas/Test/rerrors/Test/LateBinding11.vb 2005-04-26 06:36:57 UTC
(rev 43578)
@@ -0,0 +1,24 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Imports System
+Imports Nunit.Framework
+
+Class TestTypeMembers13
+ Public Function fun(i as Decimal, Optional a1 as Char = "c") As Integer
+ End Function
+ Public Function fun(i as Long, a1 as Char) As Integer
+ End Function
+End Class
+
+
+<TestFixture>_
+Public Class TypeMembers13
+ _<Test, ExpectedException (GetType (System.InvalidCastException))>
+ Public Sub TestForException()
+ Dim a as Object=new TestTypeMembers13()
+ dim a as integer = o.fun(i := 2, a1 := "c")
+ End Sub
+End Class
Added: trunk/mcs/mbas/Test/rerrors/Test/LateBinding12.vb
===================================================================
--- trunk/mcs/mbas/Test/rerrors/Test/LateBinding12.vb 2005-04-26 05:48:01 UTC
(rev 43577)
+++ trunk/mcs/mbas/Test/rerrors/Test/LateBinding12.vb 2005-04-26 06:36:57 UTC
(rev 43578)
@@ -0,0 +1,26 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Imports System
+Imports Nunit.Framework
+
+Class TestTypeMembers10
+ Private fun as Integer = 10
+End Class
+
+Class TestTypeMembers101
+ Public fun as Integer = 20
+End Class
+
+<TestFixture>_
+Public Class TypeMembers10
+ _<Test, ExpectedException (GetType (System.MissingMemberException))>
+ Public Sub TestForException()
+ dim o as Object = new TestTypeMembers101()
+ o.fun = 10
+ o = new TestTypeMembers10()
+ o.fun = 10
+ End Sub
+End Class
Property changes on: trunk/mcs/mbas/Test/rerrors/Test/LateBinding12.vb
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/mcs/mbas/Test/rerrors/Test/LateBinding2.vb
===================================================================
--- trunk/mcs/mbas/Test/rerrors/Test/LateBinding2.vb 2005-04-26 05:48:01 UTC
(rev 43577)
+++ trunk/mcs/mbas/Test/rerrors/Test/LateBinding2.vb 2005-04-26 06:36:57 UTC
(rev 43578)
@@ -0,0 +1,23 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Imports System
+Imports Nunit.Framework
+
+Class Test1234
+ Function fun() As Date
+ return "1234"
+ End Function
+End Class
+
+<TestFixture>_
+Public Class TypeMembers2
+ _<Test, ExpectedException (GetType (System.InvalidCastException))>
+ Public Sub TestForException()
+ dim a as Date
+ dim o as Object = new Test1234()
+ a = o.fun()
+ End Sub
+End Class
Added: trunk/mcs/mbas/Test/rerrors/Test/LateBinding3.vb
===================================================================
--- trunk/mcs/mbas/Test/rerrors/Test/LateBinding3.vb 2005-04-26 05:48:01 UTC
(rev 43577)
+++ trunk/mcs/mbas/Test/rerrors/Test/LateBinding3.vb 2005-04-26 06:36:57 UTC
(rev 43578)
@@ -0,0 +1,24 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Imports System
+Imports Nunit.Framework
+
+Class Test12
+ Sub fun(ParamArray a() as Long)
+ a(1) = 10
+ End Sub
+End Class
+
+<TestFixture>_
+Public Class TypeMembers3
+ _<Test, ExpectedException (GetType (System.IndexOutOfRangeException ))>
+ Public Sub TestForException()
+ dim i as Long
+ dim o as Object = new Test12()
+ o.fun(i)
+ End Sub
+End Class
+
Added: trunk/mcs/mbas/Test/rerrors/Test/LateBinding4.vb
===================================================================
--- trunk/mcs/mbas/Test/rerrors/Test/LateBinding4.vb 2005-04-26 05:48:01 UTC
(rev 43577)
+++ trunk/mcs/mbas/Test/rerrors/Test/LateBinding4.vb 2005-04-26 06:36:57 UTC
(rev 43578)
@@ -0,0 +1,22 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Imports System
+Imports Nunit.Framework
+
+Class Test12345
+ Sub fun(ByRef a as date)
+ End Sub
+End Class
+
+<TestFixture>_
+Public Class TypeMembers4
+ _<Test, ExpectedException (GetType (System.InvalidCastException))>
+ Public Sub TestForException()
+ Dim a as integer = 10
+ Dim o as Object = new Test12345()
+ o.fun(a)
+ End Sub
+End Class
Added: trunk/mcs/mbas/Test/rerrors/Test/LateBinding5.vb
===================================================================
--- trunk/mcs/mbas/Test/rerrors/Test/LateBinding5.vb 2005-04-26 05:48:01 UTC
(rev 43577)
+++ trunk/mcs/mbas/Test/rerrors/Test/LateBinding5.vb 2005-04-26 06:36:57 UTC
(rev 43578)
@@ -0,0 +1,22 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Imports System
+Imports Nunit.Framework
+
+Class Test123456
+ Sub fun(ByRef a as Char)
+ End Sub
+End Class
+
+<TestFixture>_
+Public Class TypeMembers5
+ _<Test, ExpectedException (GetType (System.InvalidCastException))>
+ Public Sub TestForException()
+ Dim a as integer = 10
+ Dim o as Object = new Test123456()
+ o.fun(a)
+ End Sub
+End Class
Added: trunk/mcs/mbas/Test/rerrors/Test/LateBinding6.vb
===================================================================
--- trunk/mcs/mbas/Test/rerrors/Test/LateBinding6.vb 2005-04-26 05:48:01 UTC
(rev 43577)
+++ trunk/mcs/mbas/Test/rerrors/Test/LateBinding6.vb 2005-04-26 06:36:57 UTC
(rev 43578)
@@ -0,0 +1,29 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Imports System
+Imports Nunit.Framework
+
+Class Test1234567
+ Sub fun(ByRef a as Long, Byref a1 as Integer)
+ a = a + 10
+ a1 = a1 + 20
+ End Sub
+ Sub fun(ByRef a as Integer, Byref a1 as Long)
+ a = a + 20
+ a1 = a1 + 10
+ End Sub
+End Class
+
+<TestFixture>_
+Public Class TypeMembers6
+ _<Test, ExpectedException (GetType
(System.Reflection.AmbiguousMatchException))>
+ Public Sub TestForException()
+ dim a1 as long = 10
+ dim a as long = 10
+ dim o as Object = new Test1234567()
+ o.fun(a,a1)
+ End Sub
+End Class
Added: trunk/mcs/mbas/Test/rerrors/Test/LateBinding7.vb
===================================================================
--- trunk/mcs/mbas/Test/rerrors/Test/LateBinding7.vb 2005-04-26 05:48:01 UTC
(rev 43577)
+++ trunk/mcs/mbas/Test/rerrors/Test/LateBinding7.vb 2005-04-26 06:36:57 UTC
(rev 43578)
@@ -0,0 +1,23 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Imports System
+Imports Nunit.Framework
+
+Class Test12345678
+ Sub fun(ByRef a as Integer, Byref a1 as Date)
+ End Sub
+End Class
+
+<TestFixture>_
+Public Class TypeMembers7
+ _<Test, ExpectedException (GetType (System.InvalidCastException))>
+ Public Sub TestForException()
+ dim a1 as long = 10
+ dim a as long = 10
+ dim o as Object = new Test12345678()
+ o.fun(a,a1)
+ End Sub
+End Class
Added: trunk/mcs/mbas/Test/rerrors/Test/LateBinding8.vb
===================================================================
--- trunk/mcs/mbas/Test/rerrors/Test/LateBinding8.vb 2005-04-26 05:48:01 UTC
(rev 43577)
+++ trunk/mcs/mbas/Test/rerrors/Test/LateBinding8.vb 2005-04-26 06:36:57 UTC
(rev 43578)
@@ -0,0 +1,22 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Imports System
+Imports Nunit.Framework
+
+Class Test123456789
+ Sub fun(ByRef a() as Long)
+ End Sub
+End Class
+
+<TestFixture>_
+Public Class TypeMembers8
+ _<Test, ExpectedException (GetType (System.InvalidCastException))>
+ Public Sub TestForException()
+ dim i() as Integer = {1,2,3}
+ dim o as Object = new Test123456789()
+ o.fun(i) 'Constant value passed
+ End Sub
+End Class
Added: trunk/mcs/mbas/Test/rerrors/Test/LateBinding9.vb
===================================================================
--- trunk/mcs/mbas/Test/rerrors/Test/LateBinding9.vb 2005-04-26 05:48:01 UTC
(rev 43577)
+++ trunk/mcs/mbas/Test/rerrors/Test/LateBinding9.vb 2005-04-26 06:36:57 UTC
(rev 43578)
@@ -0,0 +1,23 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Imports System
+Imports Nunit.Framework
+
+Class Test1234567890
+ Sub fun(ByRef a as Char, Byref a1 as String)
+ End Sub
+ Sub fun(ByRef a as integer, Byref a1 as Long)
+ End Sub
+End Class
+
+<TestFixture>_
+Public Class TypeMembers9
+ _<Test, ExpectedException (GetType
(System.Reflection.AmbiguousMatchException))>
+ Public Sub TestForException()
+ dim o as Object = new Test1234567890()
+ o.fun(Nothing, Nothing)
+ End Sub
+End Class
Modified: trunk/mcs/mbas/Test/rerrors/rerrors_btest.dll.sources
===================================================================
--- trunk/mcs/mbas/Test/rerrors/rerrors_btest.dll.sources 2005-04-26
05:48:01 UTC (rev 43577)
+++ trunk/mcs/mbas/Test/rerrors/rerrors_btest.dll.sources 2005-04-26
06:36:57 UTC (rev 43578)
@@ -22,3 +22,16 @@
Variables2.vb
LikeOperator2.vb
LikeOperator3.vb
+LateBinding9.vb
+LateBinding11.vb
+LateBinding2.vb
+LateBinding4.vb
+LateBinding6.vb
+LateBinding8.vb
+LateBinding10.vb
+LateBinding12.vb
+LateBinding1.vb
+LateBinding3.vb
+LateBinding5.vb
+LateBinding7.vb
+
Added: trunk/mcs/mbas/Test/tests/latebinding/Makefile
===================================================================
--- trunk/mcs/mbas/Test/tests/latebinding/Makefile 2005-04-26 05:48:01 UTC
(rev 43577)
+++ trunk/mcs/mbas/Test/tests/latebinding/Makefile 2005-04-26 06:36:57 UTC
(rev 43578)
@@ -0,0 +1,4 @@
+thisdir = mbas/Test/tests/*
+include ../../../../build/rules.make
+
+include ./test-mbas.make
Added: trunk/mcs/mbas/Test/tests/latebinding/TypeMembersA.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/latebinding/TypeMembersA.vb 2005-04-26
05:48:01 UTC (rev 43577)
+++ trunk/mcs/mbas/Test/tests/latebinding/TypeMembersA.vb 2005-04-26
06:36:57 UTC (rev 43578)
@@ -0,0 +1,22 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Class C
+ Public Function fun()
+ return 10
+ End function
+ Private Function fun(a as integer)
+ return 20
+ End function
+End Class
+
+Module M
+ Sub Main()
+ dim o as Object = new C()
+ if o.fun()<>10 then
+ throw new System.Exception("#A1 - Binding not proper")
+ end if
+ End Sub
+End Module
Added: trunk/mcs/mbas/Test/tests/latebinding/TypeMembersB.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/latebinding/TypeMembersB.vb 2005-04-26
05:48:01 UTC (rev 43577)
+++ trunk/mcs/mbas/Test/tests/latebinding/TypeMembersB.vb 2005-04-26
06:36:57 UTC (rev 43578)
@@ -0,0 +1,22 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Class C
+ Public Function fun()
+ return 10
+ End function
+ Function fun(Byval a as integer)
+ return 20
+ End function
+End Class
+
+Module M
+ Sub Main()
+ dim o as Object = new C()
+ if o.fun(10)<>20 then
+ throw new System.Exception("#A1 - Binding not proper")
+ end if
+ End Sub
+End Module
Added: trunk/mcs/mbas/Test/tests/latebinding/TypeMembersC.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/latebinding/TypeMembersC.vb 2005-04-26
05:48:01 UTC (rev 43577)
+++ trunk/mcs/mbas/Test/tests/latebinding/TypeMembersC.vb 2005-04-26
06:36:57 UTC (rev 43578)
@@ -0,0 +1,24 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Class C
+ Sub fun(ByRef a as Long)
+ a = a + 20
+ End Sub
+ Sub fun(ByRef a as Integer)
+ a = a + 10
+ End Sub
+End Class
+
+Module M
+ Sub Main()
+ dim o as Object = new C()
+ dim a as Integer = 10
+ o.fun(a)
+ if a<>20 then
+ throw new System.Exception("#A1 - Binding not working")
+ end if
+ End Sub
+End Module
Added: trunk/mcs/mbas/Test/tests/latebinding/TypeMembersD.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/latebinding/TypeMembersD.vb 2005-04-26
05:48:01 UTC (rev 43577)
+++ trunk/mcs/mbas/Test/tests/latebinding/TypeMembersD.vb 2005-04-26
06:36:57 UTC (rev 43578)
@@ -0,0 +1,21 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Class C
+ Sub fun(ByRef a as Long)
+ a = a + 10
+ End Sub
+End Class
+
+Module M
+ Sub Main()
+ dim o as Object = new C()
+ const a as Integer = 10
+ o.fun(a)
+ if a<>10 then
+ throw new System.Exception("#A1 - ByRef not working")
+ end if
+ End Sub
+End Module
Added: trunk/mcs/mbas/Test/tests/latebinding/TypeMembersE.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/latebinding/TypeMembersE.vb 2005-04-26
05:48:01 UTC (rev 43577)
+++ trunk/mcs/mbas/Test/tests/latebinding/TypeMembersE.vb 2005-04-26
06:36:57 UTC (rev 43578)
@@ -0,0 +1,24 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Class C
+ Sub fun(ByRef a as Long)
+ throw new System.Exception("#A1 - Binding not working")
+ End Sub
+ Sub fun(ByRef a as Integer)
+ a = a + 10
+ if a<>20 then
+ throw new System.Exception("#A1 - Binding not working")
+ end if
+ End Sub
+End Class
+
+Module M
+ Sub Main()
+ dim o as Object = new C()
+ o.fun(10) 'Constant value passed
+ End Sub
+End Module
+
Added: trunk/mcs/mbas/Test/tests/latebinding/TypeMembersF.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/latebinding/TypeMembersF.vb 2005-04-26
05:48:01 UTC (rev 43577)
+++ trunk/mcs/mbas/Test/tests/latebinding/TypeMembersF.vb 2005-04-26
06:36:57 UTC (rev 43578)
@@ -0,0 +1,38 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Class C
+ Sub fun(ByRef a as Long)
+ a = a + 10
+ End Sub
+ Sub fun(ByRef a as Integer)
+ a = a + 20
+ End Sub
+ Sub fun(ByRef a as Decimal)
+ a = a + 30
+ End Sub
+End Class
+
+Module M
+ Sub Main()
+ dim a as integer = 10
+ dim a1 as long = 10
+ dim a2 as Decimal = 10
+ dim o as Object = new C()
+ o.fun(a)
+ o.fun(a1)
+ o.fun(a2)
+ if a<>30 then
+ throw new System.Exception("#A1 - Latebinding not
working. a = " &a)
+ end if
+ if a1<>20 then
+ throw new System.Exception("#A1 - Latebinding not
working. a1 = " &a)
+ end if
+ if a2<>40 then
+ throw new System.Exception("#A1 - Latebinding not
working. a2 = " &a)
+ end if
+ End Sub
+End Module
+
Added: trunk/mcs/mbas/Test/tests/latebinding/TypeMembersG.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/latebinding/TypeMembersG.vb 2005-04-26
05:48:01 UTC (rev 43577)
+++ trunk/mcs/mbas/Test/tests/latebinding/TypeMembersG.vb 2005-04-26
06:36:57 UTC (rev 43578)
@@ -0,0 +1,31 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Class C
+ Sub fun(ByRef a as Long, Byref a1 as Integer)
+ a = a + 10
+ a1 = a1 + 20
+ End Sub
+ Sub fun(ByRef a as Integer, Byref a1 as Long)
+ a = a + 20
+ a1 = a1 + 10
+ End Sub
+End Class
+
+Module M
+ Sub Main()
+ dim a as integer = 10
+ dim a1 as long = 10
+ dim o as Object = new C()
+ o.fun(a,a1)
+ if a<>30 then
+ throw new System.Exception("#A1 - Latebinding not
working. a = " &a)
+ end if
+ if a1<>20 then
+ throw new System.Exception("#A1 - Latebinding not
working. a1 = " &a)
+ end if
+ End Sub
+End Module
+
Added: trunk/mcs/mbas/Test/tests/latebinding/TypeMembersH.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/latebinding/TypeMembersH.vb 2005-04-26
05:48:01 UTC (rev 43577)
+++ trunk/mcs/mbas/Test/tests/latebinding/TypeMembersH.vb 2005-04-26
06:36:57 UTC (rev 43578)
@@ -0,0 +1,32 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Class C
+ writeonly Property fun(a1 as Integer) as Integer
+ set(a as Integer)
+ if a<>30 then
+ throw new System.Exception("#A1 - Latebinding not
working. a = " &a)
+ end if
+ end set
+ End Property
+ writeonly Property fun(a as Long) as Long
+ set(a1 as Long)
+ if a1<>20 then
+ throw new System.Exception("#A1 - Latebinding not
working. a1 = " &a)
+ end if
+ end set
+ End Property
+End Class
+
+Module M
+ Sub Main()
+ dim a as integer = 30
+ dim a1 as long = 20
+ dim o as Object = new C()
+ o.fun(a) = a
+ o.fun(a1) = a1
+ End Sub
+End Module
+
Added: trunk/mcs/mbas/Test/tests/latebinding/TypeMembersI.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/latebinding/TypeMembersI.vb 2005-04-26
05:48:01 UTC (rev 43577)
+++ trunk/mcs/mbas/Test/tests/latebinding/TypeMembersI.vb 2005-04-26
06:36:57 UTC (rev 43578)
@@ -0,0 +1,23 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Class C1
+ Public Function fun() as String
+ return fun
+ End function
+End Class
+Class C
+ Inherits C1
+End Class
+
+Module M
+ Sub Main()
+ dim o as Object = new C()
+ dim a as Integer = o.fun()
+ if a<>0 then
+ throw new System.Exception("#A1 - Binding not proper")
+ end if
+ End Sub
+End Module
Added: trunk/mcs/mbas/Test/tests/latebinding/TypeMembersJ.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/latebinding/TypeMembersJ.vb 2005-04-26
05:48:01 UTC (rev 43577)
+++ trunk/mcs/mbas/Test/tests/latebinding/TypeMembersJ.vb 2005-04-26
06:36:57 UTC (rev 43578)
@@ -0,0 +1,25 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Class C1
+ Public Function fun(byref a as integer) as String
+ a = a mod 2
+ End function
+End Class
+
+Class C
+ Inherits C1
+End Class
+
+Module M
+ Sub Main()
+ dim o as Object = new C()
+ dim a as Double = 1.33234
+ o.fun(a)
+ if a<>1 then
+ throw new System.Exception("#A1 - Binding not proper")
+ end if
+ End Sub
+End Module
Added: trunk/mcs/mbas/Test/tests/latebinding/TypeMembersK.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/latebinding/TypeMembersK.vb 2005-04-26
05:48:01 UTC (rev 43577)
+++ trunk/mcs/mbas/Test/tests/latebinding/TypeMembersK.vb 2005-04-26
06:36:57 UTC (rev 43578)
@@ -0,0 +1,25 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Class C1
+ Public Function fun(byref a as integer) as String
+ a = a and 2
+ End function
+End Class
+
+Class C
+ Inherits C1
+End Class
+
+Module M
+ Sub Main()
+ dim o as Object = new C()
+ dim a as Double = 1.33234
+ o.fun(a)
+ if a<>0 then
+ throw new System.Exception("#A1 - Binding not proper")
+ end if
+ End Sub
+End Module
Added: trunk/mcs/mbas/Test/tests/latebinding/TypeMembersL.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/latebinding/TypeMembersL.vb 2005-04-26
05:48:01 UTC (rev 43577)
+++ trunk/mcs/mbas/Test/tests/latebinding/TypeMembersL.vb 2005-04-26
06:36:57 UTC (rev 43578)
@@ -0,0 +1,25 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Class C1
+ Public fun as Integer = 10
+End Class
+
+Class C
+ Public fun as Integer = 20
+End Class
+
+Module M
+ Sub Main()
+ dim o as Object = new C()
+ if o.fun<>20 then
+ throw new System.Exception("#A1 - Binding not proper")
+ end if
+ o = new C1()
+ if o.fun<>10 then
+ throw new System.Exception("#A2 - Binding not proper")
+ end if
+ End Sub
+End Module
Added: trunk/mcs/mbas/Test/tests/latebinding/TypeMembersM.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/latebinding/TypeMembersM.vb 2005-04-26
05:48:01 UTC (rev 43577)
+++ trunk/mcs/mbas/Test/tests/latebinding/TypeMembersM.vb 2005-04-26
06:36:57 UTC (rev 43578)
@@ -0,0 +1,23 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Class C
+ Public Function fun(i as integer, ParamArray a() as Long)
+ return 10
+ End Function
+ Public Function fun(ParamArray a() as Long)
+ return 20
+ End Function
+End Class
+
+Module M
+ Sub Main()
+ dim o as Object = new C()
+ dim a as integer = o.fun(1,2,3)
+ if a<>10 then
+ throw new System.Exception("#A1 - Binding not proper")
+ end if
+ End Sub
+End Module
Added: trunk/mcs/mbas/Test/tests/latebinding/TypeMembersN.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/latebinding/TypeMembersN.vb 2005-04-26
05:48:01 UTC (rev 43577)
+++ trunk/mcs/mbas/Test/tests/latebinding/TypeMembersN.vb 2005-04-26
06:36:57 UTC (rev 43578)
@@ -0,0 +1,23 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Class C
+ Public Function fun(i as integer, ParamArray a() as Short)
+ return 10
+ End Function
+ Public Function fun(ParamArray a() as Long)
+ return 20
+ End Function
+End Class
+
+Module M
+ Sub Main()
+ dim o as Object = new C()
+ dim a as integer = o.fun(1,2,3)
+ if a<>20 then
+ throw new System.Exception("#A1 - Binding not proper")
+ end if
+ End Sub
+End Module
Added: trunk/mcs/mbas/Test/tests/latebinding/TypeMembersO.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/latebinding/TypeMembersO.vb 2005-04-26
05:48:01 UTC (rev 43577)
+++ trunk/mcs/mbas/Test/tests/latebinding/TypeMembersO.vb 2005-04-26
06:36:57 UTC (rev 43578)
@@ -0,0 +1,27 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Imports System
+
+Class base
+ Public Default Property Item(ByVal i as Integer)As Integer
+ Get
+ Return i
+ End Get
+ Set
+ End set
+ End Property
+End Class
+
+Module DefaultA
+ Sub Main()
+ Dim a as Object=new base()
+ Dim i as Integer
+ i=a(10)
+ if i<>10 Then
+ Throw New Exception("Binding Not Working")
+ End If
+ End Sub
+End Module
Added: trunk/mcs/mbas/Test/tests/latebinding/TypeMembersP.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/latebinding/TypeMembersP.vb 2005-04-26
05:48:01 UTC (rev 43577)
+++ trunk/mcs/mbas/Test/tests/latebinding/TypeMembersP.vb 2005-04-26
06:36:57 UTC (rev 43578)
@@ -0,0 +1,23 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Class C
+ Public Function fun(i as integer, a as Long)
+ if i=2 and a=1 then
+ return 10
+ end if
+ return 11
+ End Function
+End Class
+
+Module M
+ Sub Main()
+ dim o as C = new C()
+ dim a as integer = o.fun(a := 1, i := 2)
+ if a<>10 then
+ throw new System.Exception("#A1 - Binding not proper")
+ end if
+ End Sub
+End Module
Added: trunk/mcs/mbas/Test/tests/latebinding/TypeMembersQ.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/latebinding/TypeMembersQ.vb 2005-04-26
05:48:01 UTC (rev 43577)
+++ trunk/mcs/mbas/Test/tests/latebinding/TypeMembersQ.vb 2005-04-26
06:36:57 UTC (rev 43578)
@@ -0,0 +1,23 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Class C
+ Public Function fun(i as integer, Optional a1 as Char = "c") As Integer
+ if a1="c" and i=2
+ return 10
+ End if
+ return 11
+ End Function
+End Class
+
+Module M
+ Sub Main()
+ dim o as C = new C()
+ dim a as integer = o.fun(i := 2)
+ if a<>10 then
+ throw new System.Exception("#A1 - Binding not proper")
+ end if
+ End Sub
+End Module
Added: trunk/mcs/mbas/Test/tests/latebinding/test-mbas.make
===================================================================
--- trunk/mcs/mbas/Test/tests/latebinding/test-mbas.make 2005-04-26
05:48:01 UTC (rev 43577)
+++ trunk/mcs/mbas/Test/tests/latebinding/test-mbas.make 2005-04-26
06:36:57 UTC (rev 43578)
@@ -0,0 +1,27 @@
+ifndef COMPILER
+COMPILER = $(BASCOMPILE)
+endif
+
+ifndef PATTERN
+PATTERN = *.vb
+endif
+
+COMPILER_FLAGS = /libpath:../../../../../class/lib/default /imports:System
+LIBRARY_OPT = /target:library
+DISTFILES = $(wildcard README.tests) $(wildcard *.vb) $(wildcard *.make)
$(widlcard *.pl)
+
+run-test-local:
+ $(MAKE) clean-local
+ ../test-mbas.pl --compiler='$(COMPILER)'
--compilerflags='$(COMPILER_FLAGS)' --pattern='$(PATTERN)'
--runtime='$(TEST_RUNTIME)'
+
+run-test-ondotnet-local:
+ $(MAKE) clean-local
+ ../test-mbas.pl --compiler='$(COMPILER)'
--compilerflags='$(COMPILER_FLAGS)' --pattern='$(PATTERN)' --runtime=
+
+clean-local:
+ rm -f *.exe *.log *.results
+
+all-local test-local install-local uninstall-local:
+ @:
+
+dist-local: dist-default
_______________________________________________
Mono-patches maillist - [email protected]
http://lists.ximian.com/mailman/listinfo/mono-patches
