Author: manjula
Date: 2005-03-17 23:45:46 -0500 (Thu, 17 Mar 2005)
New Revision: 41973
Added:
trunk/mcs/mbas/Test/rerrors/LikeOperator2.vb
trunk/mcs/mbas/Test/rerrors/LikeOperator3.vb
trunk/mcs/mbas/Test/rerrors/Test/Variables1.vb
trunk/mcs/mbas/Test/rerrors/Test/Variables2.vb
trunk/mcs/mbas/Test/tests/AssignmentStatementsA.exe
trunk/mcs/mbas/Test/tests/AssignmentStatementsB.exe
trunk/mcs/mbas/Test/tests/AssignmentStatementsC.vb.log
trunk/mcs/mbas/Test/tests/AssignmentStatementsD.exe
trunk/mcs/mbas/Test/tests/AssignmentStatementsE.exe
trunk/mcs/mbas/Test/tests/AssignmentStatementsF.exe
trunk/mcs/mbas/Test/tests/AssignmentStatementsG.exe
trunk/mcs/mbas/Test/tests/AssignmentStatementsH.exe
trunk/mcs/mbas/Test/tests/AssignmentStatementsI.exe
trunk/mcs/mbas/Test/tests/BlockStatementsA.vb.log
trunk/mcs/mbas/Test/tests/ConditionalStatementsA.exe
trunk/mcs/mbas/Test/tests/ConditionalStatementsB.exe
trunk/mcs/mbas/Test/tests/ConditionalStatementsC.vb.log
trunk/mcs/mbas/Test/tests/ConditionalStatementsD.vb.log
trunk/mcs/mbas/Test/tests/ConditionalStatementsE.exe
trunk/mcs/mbas/Test/tests/ConditionalStatementsF.exe
trunk/mcs/mbas/Test/tests/ConditionalStatementsG.exe
trunk/mcs/mbas/Test/tests/ConditionalStatementsH.exe
trunk/mcs/mbas/Test/tests/ConditionalStatementsI.exe
trunk/mcs/mbas/Test/tests/ConditionalStatementsJ.exe
trunk/mcs/mbas/Test/tests/ConstantC.vb
trunk/mcs/mbas/Test/tests/ConstructorD.vb
trunk/mcs/mbas/Test/tests/ConstructorE.vb
trunk/mcs/mbas/Test/tests/ConstructorF.vb
trunk/mcs/mbas/Test/tests/ConstructorG.vb
trunk/mcs/mbas/Test/tests/ConstructorH.vb
trunk/mcs/mbas/Test/tests/ConstructorI.vb
trunk/mcs/mbas/Test/tests/ConstructorJ.vb
trunk/mcs/mbas/Test/tests/EventM.vb
trunk/mcs/mbas/Test/tests/EventN.vb
trunk/mcs/mbas/Test/tests/ExitStatementA.exe
trunk/mcs/mbas/Test/tests/ExitStatementA.vb.log
trunk/mcs/mbas/Test/tests/GotoStatementA.vb.log
trunk/mcs/mbas/Test/tests/InterfaceQ.vb
trunk/mcs/mbas/Test/tests/InvocationStatementA.exe
trunk/mcs/mbas/Test/tests/LikeOperatorB.vb
trunk/mcs/mbas/Test/tests/LikeOperatorC.vb
trunk/mcs/mbas/Test/tests/LoopStatementsA.exe
trunk/mcs/mbas/Test/tests/LoopStatementsB.exe
trunk/mcs/mbas/Test/tests/LoopStatementsC.exe
trunk/mcs/mbas/Test/tests/LoopStatementsD.exe
trunk/mcs/mbas/Test/tests/LoopStatementsE.vb.log
trunk/mcs/mbas/Test/tests/LoopStatementsF.exe
trunk/mcs/mbas/Test/tests/LoopStatementsG.exe
trunk/mcs/mbas/Test/tests/LoopStatementsG.vb.log
trunk/mcs/mbas/Test/tests/MethodDeclarationA.vb
trunk/mcs/mbas/Test/tests/MethodDeclarationB.vb
trunk/mcs/mbas/Test/tests/MethodDeclarationC.vb
trunk/mcs/mbas/Test/tests/MethodDeclarationD.vb
trunk/mcs/mbas/Test/tests/MethodDeclarationE.vb
trunk/mcs/mbas/Test/tests/MethodDeclarationF.vb
trunk/mcs/mbas/Test/tests/PropertyE.vb
trunk/mcs/mbas/Test/tests/ReturnStatementA.exe
trunk/mcs/mbas/Test/tests/StopStatementA.exe
trunk/mcs/mbas/Test/tests/StopStatementA.vb.log
trunk/mcs/mbas/Test/tests/TestResults.log
trunk/mcs/mbas/Test/tests/VariablesH.vb
trunk/mcs/mbas/Test/tests/VariablesI.vb
trunk/mcs/mbas/Test/tests/VariablesJ.vb
trunk/mcs/mbas/Test/tests/VariablesK.vb
trunk/mcs/mbas/Test/tests/VariablesL.vb
trunk/mcs/mbas/Test/tests/VariablesM.vb
trunk/mcs/mbas/Test/tests/WithStatementA.exe
trunk/mcs/mbas/Test/tests/WithStatementB.exe
trunk/mcs/mbas/Test/tests/WithStatementB.vb.log
trunk/mcs/mbas/Test/tests/WithStatementC.vb.log
trunk/mcs/mbas/Test/tests/test.vb
trunk/mcs/mbas/Test/tests/test1.vb
Modified:
trunk/mcs/mbas/Test/ChangeLog
Log:
Test cases for Type members and Like operator
Modified: trunk/mcs/mbas/Test/ChangeLog
===================================================================
--- trunk/mcs/mbas/Test/ChangeLog 2005-03-18 04:40:27 UTC (rev 41972)
+++ trunk/mcs/mbas/Test/ChangeLog 2005-03-18 04:45:46 UTC (rev 41973)
@@ -1,3 +1,6 @@
+2005-03-18 Manjula GHM <[EMAIL PROTECTED]>
+ Sudharsan V <[EMAIL PROTECTED]>
+ * Test cases for Type members and Like operator
2005-02-09 Raja R Harinath <[EMAIL PROTECTED]>
* Makefile (SUBDIRS): Add 'rerrors'.
Added: trunk/mcs/mbas/Test/rerrors/LikeOperator2.vb
===================================================================
--- trunk/mcs/mbas/Test/rerrors/LikeOperator2.vb 2005-03-18 04:40:27 UTC
(rev 41972)
+++ trunk/mcs/mbas/Test/rerrors/LikeOperator2.vb 2005-03-18 04:45:46 UTC
(rev 41973)
@@ -0,0 +1,20 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Option Compare text
+Imports System
+Imports Nunit.Framework
+
+<TestFixture> _
+Public Class LikeOperator2
+ <Test, ExpectedException (GetType
(System.ArgumentException))> _
+ Public Sub TestForException ()
+ dim a as boolean
+ a = "?" Like "[?"
+ If a <> True Then
+ Throw new System.Exception("#A1-LikeOperator:Failed")
+ End If
+ end sub
+End class
Property changes on: trunk/mcs/mbas/Test/rerrors/LikeOperator2.vb
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/mcs/mbas/Test/rerrors/LikeOperator3.vb
===================================================================
--- trunk/mcs/mbas/Test/rerrors/LikeOperator3.vb 2005-03-18 04:40:27 UTC
(rev 41972)
+++ trunk/mcs/mbas/Test/rerrors/LikeOperator3.vb 2005-03-18 04:45:46 UTC
(rev 41973)
@@ -0,0 +1,20 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+'Option Compare text
+Imports System
+Imports Nunit.Framework
+
+<TestFixture> _
+Public Class LikeOperator2
+ <Test, ExpectedException (GetType (System.Exception))> _
+ Public Sub TestForException ()
+ dim a as boolean
+ a = "f" Like "[Z-A]"
+ If a <> True Then
+ Throw new System.Exception("#A1-LikeOperator:Failed")
+ End If
+ end sub
+End class
Property changes on: trunk/mcs/mbas/Test/rerrors/LikeOperator3.vb
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/mcs/mbas/Test/rerrors/Test/Variables1.vb
===================================================================
--- trunk/mcs/mbas/Test/rerrors/Test/Variables1.vb 2005-03-18 04:40:27 UTC
(rev 41972)
+++ trunk/mcs/mbas/Test/rerrors/Test/Variables1.vb 2005-03-18 04:45:46 UTC
(rev 41973)
@@ -0,0 +1,17 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Imports System
+Imports Nunit.Framework
+
+<TestFixture>_
+Public Class VariablesI
+ _<Test, ExpectedException (GetType
(System.TypeInitializationException))>
+ Readonly Shared Public i as integer = "Hello"
+ Public Sub TestForException()
+ if i <> 1
+ End if
+ End Sub
+End Class
Property changes on: trunk/mcs/mbas/Test/rerrors/Test/Variables1.vb
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/mcs/mbas/Test/rerrors/Test/Variables2.vb
===================================================================
--- trunk/mcs/mbas/Test/rerrors/Test/Variables2.vb 2005-03-18 04:40:27 UTC
(rev 41972)
+++ trunk/mcs/mbas/Test/rerrors/Test/Variables2.vb 2005-03-18 04:45:46 UTC
(rev 41973)
@@ -0,0 +1,16 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Imports System
+Imports Nunit.Framework
+
+<TestFixture>_
+Public Class Variables2
+ _<Test, ExpectedException (GetType (System.InvalidCastException))>
+ Public Sub TestForException()
+ dim a as string = "hello"
+ dim i(1,a) as A
+ End Sub
+End Class
Property changes on: trunk/mcs/mbas/Test/rerrors/Test/Variables2.vb
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/mcs/mbas/Test/tests/AssignmentStatementsA.exe
===================================================================
(Binary files differ)
Property changes on: trunk/mcs/mbas/Test/tests/AssignmentStatementsA.exe
___________________________________________________________________
Name: svn:executable
+ *
Name: svn:mime-type
+ application/octet-stream
Added: trunk/mcs/mbas/Test/tests/AssignmentStatementsB.exe
===================================================================
(Binary files differ)
Property changes on: trunk/mcs/mbas/Test/tests/AssignmentStatementsB.exe
___________________________________________________________________
Name: svn:executable
+ *
Name: svn:mime-type
+ application/octet-stream
Added: trunk/mcs/mbas/Test/tests/AssignmentStatementsC.vb.log
===================================================================
--- trunk/mcs/mbas/Test/tests/AssignmentStatementsC.vb.log 2005-03-18
04:40:27 UTC (rev 41972)
+++ trunk/mcs/mbas/Test/tests/AssignmentStatementsC.vb.log 2005-03-18
04:45:46 UTC (rev 41973)
@@ -0,0 +1,12 @@
+
+MONO_PATH="../../../class/lib/default:$MONO_PATH" mono ../../../mbas/mbas.exe
-d:NET_1_1 -d:ONLY_1_1 -debug /libpath:../../../class/lib/default
/imports:System AssignmentStatementsC.vb
+MonoBASIC Compiler 0.95.0.0 - (c)2002, 2003, 2004, 2005 Rafael Teixeira
+--------
+THIS IS AN ALPHA SOFTWARE.
+--------
+Internal warning BC-0018: Cannot find any symbol writer
+AssignmentStatementsC.vb(18,15) error BC30455: Could not find any applicable
function to invoke for this argument list
+AssignmentStatementsC.vb(28,15) error BC30455: Could not find any applicable
function to invoke for this argument list
+AssignmentStatementsC.vb(33,15) error BC30455: Could not find any applicable
function to invoke for this argument list
+AssignmentStatementsC.vb(38,17) error BC30455: Could not find any applicable
function to invoke for this argument list
+Compilation failed: 4 Error(s), 1 warnings
Added: trunk/mcs/mbas/Test/tests/AssignmentStatementsD.exe
===================================================================
(Binary files differ)
Property changes on: trunk/mcs/mbas/Test/tests/AssignmentStatementsD.exe
___________________________________________________________________
Name: svn:executable
+ *
Name: svn:mime-type
+ application/octet-stream
Added: trunk/mcs/mbas/Test/tests/AssignmentStatementsE.exe
===================================================================
(Binary files differ)
Property changes on: trunk/mcs/mbas/Test/tests/AssignmentStatementsE.exe
___________________________________________________________________
Name: svn:executable
+ *
Name: svn:mime-type
+ application/octet-stream
Added: trunk/mcs/mbas/Test/tests/AssignmentStatementsF.exe
===================================================================
(Binary files differ)
Property changes on: trunk/mcs/mbas/Test/tests/AssignmentStatementsF.exe
___________________________________________________________________
Name: svn:executable
+ *
Name: svn:mime-type
+ application/octet-stream
Added: trunk/mcs/mbas/Test/tests/AssignmentStatementsG.exe
===================================================================
(Binary files differ)
Property changes on: trunk/mcs/mbas/Test/tests/AssignmentStatementsG.exe
___________________________________________________________________
Name: svn:executable
+ *
Name: svn:mime-type
+ application/octet-stream
Added: trunk/mcs/mbas/Test/tests/AssignmentStatementsH.exe
===================================================================
(Binary files differ)
Property changes on: trunk/mcs/mbas/Test/tests/AssignmentStatementsH.exe
___________________________________________________________________
Name: svn:executable
+ *
Name: svn:mime-type
+ application/octet-stream
Added: trunk/mcs/mbas/Test/tests/AssignmentStatementsI.exe
===================================================================
(Binary files differ)
Property changes on: trunk/mcs/mbas/Test/tests/AssignmentStatementsI.exe
___________________________________________________________________
Name: svn:executable
+ *
Name: svn:mime-type
+ application/octet-stream
Added: trunk/mcs/mbas/Test/tests/BlockStatementsA.vb.log
===================================================================
--- trunk/mcs/mbas/Test/tests/BlockStatementsA.vb.log 2005-03-18 04:40:27 UTC
(rev 41972)
+++ trunk/mcs/mbas/Test/tests/BlockStatementsA.vb.log 2005-03-18 04:45:46 UTC
(rev 41973)
@@ -0,0 +1,8 @@
+
+MONO_PATH="../../../class/lib/default:$MONO_PATH" mono ../../../mbas/mbas.exe
-d:NET_1_1 -d:ONLY_1_1 -debug /libpath:../../../class/lib/default
/imports:System BlockStatementsA.vb
+MonoBASIC Compiler 0.95.0.0 - (c)2002, 2003, 2004, 2005 Rafael Teixeira
+--------
+THIS IS AN ALPHA SOFTWARE.
+--------
+BlockStatementsA.vb(34,0) error BC0140: The label 'f1' is a duplicate
+Compilation failed: 1 Error(s), 0 warnings
Added: trunk/mcs/mbas/Test/tests/ConditionalStatementsA.exe
===================================================================
(Binary files differ)
Property changes on: trunk/mcs/mbas/Test/tests/ConditionalStatementsA.exe
___________________________________________________________________
Name: svn:executable
+ *
Name: svn:mime-type
+ application/octet-stream
Added: trunk/mcs/mbas/Test/tests/ConditionalStatementsB.exe
===================================================================
(Binary files differ)
Property changes on: trunk/mcs/mbas/Test/tests/ConditionalStatementsB.exe
___________________________________________________________________
Name: svn:executable
+ *
Name: svn:mime-type
+ application/octet-stream
Added: trunk/mcs/mbas/Test/tests/ConditionalStatementsC.vb.log
===================================================================
--- trunk/mcs/mbas/Test/tests/ConditionalStatementsC.vb.log 2005-03-18
04:40:27 UTC (rev 41972)
+++ trunk/mcs/mbas/Test/tests/ConditionalStatementsC.vb.log 2005-03-18
04:45:46 UTC (rev 41973)
@@ -0,0 +1,9 @@
+
+MONO_PATH="../../../class/lib/default:$MONO_PATH" mono ../../../mbas/mbas.exe
-d:NET_1_1 -d:ONLY_1_1 -debug /libpath:../../../class/lib/default
/imports:System ConditionalStatementsC.vb
+MonoBASIC Compiler 0.95.0.0 - (c)2002, 2003, 2004, 2005 Rafael Teixeira
+--------
+THIS IS AN ALPHA SOFTWARE.
+--------
+syntax error, got token `OP_GE'
+ConditionalStatementsC.vb(26,28) error BC29999: Parsing error
+Compilation failed: 1 Error(s), 0 warnings
Added: trunk/mcs/mbas/Test/tests/ConditionalStatementsD.vb.log
===================================================================
--- trunk/mcs/mbas/Test/tests/ConditionalStatementsD.vb.log 2005-03-18
04:40:27 UTC (rev 41972)
+++ trunk/mcs/mbas/Test/tests/ConditionalStatementsD.vb.log 2005-03-18
04:45:46 UTC (rev 41973)
@@ -0,0 +1,8 @@
+
+MONO_PATH="../../../class/lib/default:$MONO_PATH" mono ../../../mbas/mbas.exe
-d:NET_1_1 -d:ONLY_1_1 -debug /libpath:../../../class/lib/default
/imports:System ConditionalStatementsD.vb
+MonoBASIC Compiler 0.95.0.0 - (c)2002, 2003, 2004, 2005 Rafael Teixeira
+--------
+THIS IS AN ALPHA SOFTWARE.
+--------
+ConditionalStatementsD.vb(16,0) error BC29999: Parsing error
+Compilation failed: 1 Error(s), 0 warnings
Added: trunk/mcs/mbas/Test/tests/ConditionalStatementsE.exe
===================================================================
(Binary files differ)
Property changes on: trunk/mcs/mbas/Test/tests/ConditionalStatementsE.exe
___________________________________________________________________
Name: svn:executable
+ *
Name: svn:mime-type
+ application/octet-stream
Added: trunk/mcs/mbas/Test/tests/ConditionalStatementsF.exe
===================================================================
(Binary files differ)
Property changes on: trunk/mcs/mbas/Test/tests/ConditionalStatementsF.exe
___________________________________________________________________
Name: svn:executable
+ *
Name: svn:mime-type
+ application/octet-stream
Added: trunk/mcs/mbas/Test/tests/ConditionalStatementsG.exe
===================================================================
(Binary files differ)
Property changes on: trunk/mcs/mbas/Test/tests/ConditionalStatementsG.exe
___________________________________________________________________
Name: svn:executable
+ *
Name: svn:mime-type
+ application/octet-stream
Added: trunk/mcs/mbas/Test/tests/ConditionalStatementsH.exe
===================================================================
(Binary files differ)
Property changes on: trunk/mcs/mbas/Test/tests/ConditionalStatementsH.exe
___________________________________________________________________
Name: svn:executable
+ *
Name: svn:mime-type
+ application/octet-stream
Added: trunk/mcs/mbas/Test/tests/ConditionalStatementsI.exe
===================================================================
(Binary files differ)
Property changes on: trunk/mcs/mbas/Test/tests/ConditionalStatementsI.exe
___________________________________________________________________
Name: svn:executable
+ *
Name: svn:mime-type
+ application/octet-stream
Added: trunk/mcs/mbas/Test/tests/ConditionalStatementsJ.exe
===================================================================
(Binary files differ)
Property changes on: trunk/mcs/mbas/Test/tests/ConditionalStatementsJ.exe
___________________________________________________________________
Name: svn:executable
+ *
Name: svn:mime-type
+ application/octet-stream
Added: trunk/mcs/mbas/Test/tests/ConstantC.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/ConstantC.vb 2005-03-18 04:40:27 UTC (rev
41972)
+++ trunk/mcs/mbas/Test/tests/ConstantC.vb 2005-03-18 04:45:46 UTC (rev
41973)
@@ -0,0 +1,19 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+'Checking on all possible acessors on const
+Imports System
+
+Module Test
+ Const a as Integer = 1
+ Public Const a1 as Integer = 1
+ Private Const a2 as Integer = 1
+ Class C
+ Protected Const a3 as Integer = 1
+ End Class
+ Public Sub Main()
+ End Sub
+End Module
+
Property changes on: trunk/mcs/mbas/Test/tests/ConstantC.vb
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/mcs/mbas/Test/tests/ConstructorD.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/ConstructorD.vb 2005-03-18 04:40:27 UTC (rev
41972)
+++ trunk/mcs/mbas/Test/tests/ConstructorD.vb 2005-03-18 04:45:46 UTC (rev
41973)
@@ -0,0 +1,26 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+'To Prove Constructors can be overloaded
+
+Imports System
+
+Class A
+ Sub New()
+ End Sub
+ Sub New(I as Integer)
+ End Sub
+ Sub New(I as Integer, J as Integer)
+ End Sub
+ Shared Sub New()
+ End Sub
+End Class
+
+Module Test
+ Public Sub Main()
+ Dim a as A = New A(10)
+ End Sub
+End Module
+
Property changes on: trunk/mcs/mbas/Test/tests/ConstructorD.vb
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/mcs/mbas/Test/tests/ConstructorE.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/ConstructorE.vb 2005-03-18 04:40:27 UTC (rev
41972)
+++ trunk/mcs/mbas/Test/tests/ConstructorE.vb 2005-03-18 04:45:46 UTC (rev
41973)
@@ -0,0 +1,23 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Imports System
+
+Structure A
+ Dim i as Integer
+ Sub New(I as Integer)
+ End Sub
+ Sub New(I as Integer, J as Integer)
+ End Sub
+ Shared Sub New()
+ End Sub
+End Structure
+
+Module Test
+ Public Sub Main()
+ Dim a as A = New A(10)
+ End Sub
+End Module
+
Property changes on: trunk/mcs/mbas/Test/tests/ConstructorE.vb
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/mcs/mbas/Test/tests/ConstructorF.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/ConstructorF.vb 2005-03-18 04:40:27 UTC (rev
41972)
+++ trunk/mcs/mbas/Test/tests/ConstructorF.vb 2005-03-18 04:45:46 UTC (rev
41973)
@@ -0,0 +1,29 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Imports System
+
+Class A
+ Public i as Integer = 10
+ Sub New()
+ End Sub
+End Class
+
+Class AB
+ Inherits A
+ Public i1 as Integer = MyBase.i
+ Sub New()
+ if i1<>10 then
+ Throw new System.Exception("Constructor not working
properly")
+ End if
+ End Sub
+End Class
+
+Module Test
+ Public Sub Main()
+ Dim a as AB= New AB()
+ End Sub
+End Module
+
Property changes on: trunk/mcs/mbas/Test/tests/ConstructorF.vb
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/mcs/mbas/Test/tests/ConstructorG.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/ConstructorG.vb 2005-03-18 04:40:27 UTC (rev
41972)
+++ trunk/mcs/mbas/Test/tests/ConstructorG.vb 2005-03-18 04:45:46 UTC (rev
41973)
@@ -0,0 +1,32 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+'To check if initializing takes place according to the occurance
+
+Imports System
+
+Class A
+ Public i as Integer = j
+ Public j as Integer = 1
+ Sub New()
+ if i<>0
+ Throw new System.Exception("Constructor not working
properly")
+ End if
+ End Sub
+End Class
+
+Class AB
+ Inherits A
+ Public k as Integer = i
+ Sub New()
+ End Sub
+End Class
+
+Module Test
+ Public Sub Main()
+ Dim a as AB = New AB()
+ End Sub
+End Module
+
Property changes on: trunk/mcs/mbas/Test/tests/ConstructorG.vb
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/mcs/mbas/Test/tests/ConstructorH.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/ConstructorH.vb 2005-03-18 04:40:27 UTC (rev
41972)
+++ trunk/mcs/mbas/Test/tests/ConstructorH.vb 2005-03-18 04:45:46 UTC (rev
41973)
@@ -0,0 +1,23 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Imports System
+
+Class A
+ ' Has implicit Constructor defined
+End Class
+
+Class AB
+ Inherits A
+ Sub New()
+ End Sub
+End Class
+
+Module Test
+ Public Sub Main()
+ Dim a as AB = new AB()
+ End Sub
+End Module
+
Property changes on: trunk/mcs/mbas/Test/tests/ConstructorH.vb
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/mcs/mbas/Test/tests/ConstructorI.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/ConstructorI.vb 2005-03-18 04:40:27 UTC (rev
41972)
+++ trunk/mcs/mbas/Test/tests/ConstructorI.vb 2005-03-18 04:45:46 UTC (rev
41973)
@@ -0,0 +1,32 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Imports System
+
+Imports A
+
+NameSpace A
+ Public Class B
+ Shared Public i as integer
+ End Class
+End Namespace
+
+Class AB
+ Shared Sub New()
+ A.B.i = A.B.i + 1
+ End Sub
+End Class
+
+Module Test
+ Public Sub Main()
+ Dim a1 as AB = new AB()
+ Dim b2 as AB = new AB()
+ Dim c3 as AB = new AB()
+ if A.B.i<>1
+ Throw new System.Exception("Shared Constructor not
working")
+ End if
+ End Sub
+End Module
+
Property changes on: trunk/mcs/mbas/Test/tests/ConstructorI.vb
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/mcs/mbas/Test/tests/ConstructorJ.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/ConstructorJ.vb 2005-03-18 04:40:27 UTC (rev
41972)
+++ trunk/mcs/mbas/Test/tests/ConstructorJ.vb 2005-03-18 04:45:46 UTC (rev
41973)
@@ -0,0 +1,29 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+'Checking circular references
+
+Imports System
+
+Class A
+ Public Shared X As Integer = B.Y + 1
+ Shared Sub Hello()
+ if A.X <> 2 or B.Y <> 1
+ Throw new System.Exception("Shared Construtor not
working")
+ End if
+ End Sub
+End Class
+
+Class B
+ Public Shared Y As Integer = A.X + 1
+End Class
+
+
+Module Test
+ Public Sub Main()
+ A.Hello()
+ End Sub
+End Module
+
Property changes on: trunk/mcs/mbas/Test/tests/ConstructorJ.vb
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/mcs/mbas/Test/tests/EventM.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/EventM.vb 2005-03-18 04:40:27 UTC (rev 41972)
+++ trunk/mcs/mbas/Test/tests/EventM.vb 2005-03-18 04:45:46 UTC (rev 41973)
@@ -0,0 +1,26 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+'To Check if Methods Accebility has anything to do with Events
+
+Imports System
+
+Class Raiser
+ Public Event Fun(ByVal i as Integer)
+ Public Sub New(i as Integer)
+ RaiseEvent Fun(23)
+ End Sub
+End Class
+
+Module Test
+ Private WithEvents x As Raiser
+
+ Private Sub Fun(ByVal i as integer) Handles x.Fun
+ End Sub
+
+ Public Sub Main()
+ x = New Raiser(10)
+ End Sub
+End Module
Property changes on: trunk/mcs/mbas/Test/tests/EventM.vb
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/mcs/mbas/Test/tests/EventN.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/EventN.vb 2005-03-18 04:40:27 UTC (rev 41972)
+++ trunk/mcs/mbas/Test/tests/EventN.vb 2005-03-18 04:45:46 UTC (rev 41973)
@@ -0,0 +1,31 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+'To Check if Multiple Methods can access mulitplte events
+
+Imports System
+
+Class Raiser
+ Public Event Fun(ByVal i as Integer)
+ Public Event Fun1(ByVal i as Integer)
+ Public Sub New(i as Integer)
+ RaiseEvent Fun(23)
+ End Sub
+End Class
+
+Module Test
+ Private WithEvents x As Raiser
+
+ Private Sub Fun(ByVal i as integer) Handles x.Fun, X.Fun1
+ End Sub
+
+ Public Sub Fun1(ByVal i as integer) Handles X.Fun1
+ End Sub
+
+
+ Public Sub Main()
+ x = New Raiser(10)
+ End Sub
+End Module
Property changes on: trunk/mcs/mbas/Test/tests/EventN.vb
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/mcs/mbas/Test/tests/ExitStatementA.exe
===================================================================
(Binary files differ)
Property changes on: trunk/mcs/mbas/Test/tests/ExitStatementA.exe
___________________________________________________________________
Name: svn:executable
+ *
Name: svn:mime-type
+ application/octet-stream
Added: trunk/mcs/mbas/Test/tests/ExitStatementA.vb.log
===================================================================
--- trunk/mcs/mbas/Test/tests/ExitStatementA.vb.log 2005-03-18 04:40:27 UTC
(rev 41972)
+++ trunk/mcs/mbas/Test/tests/ExitStatementA.vb.log 2005-03-18 04:45:46 UTC
(rev 41973)
@@ -0,0 +1,16 @@
+
+MONO_PATH="../../../class/lib/default:$MONO_PATH" mono ../../../mbas/mbas.exe
-d:NET_1_1 -d:ONLY_1_1 -debug /libpath:../../../class/lib/default
/imports:System ExitStatementA.vb
+MonoBASIC Compiler 0.95.0.0 - (c)2002, 2003, 2004, 2005 Rafael Teixeira
+--------
+THIS IS AN ALPHA SOFTWARE.
+--------
+Internal warning BC-0018: Cannot find any symbol writer
+ExitStatementA.vb(11,0) warning BC0162: Unreachable code detected
+Compilation succeeded: 2 warning(s)
+
+MONO_PATH="../../../class/lib/default::$MONO_PATH" mono --debug
./ExitStatementA.exe
+
+** ERROR **: Invalid IL code at IL0000 in exitstmt:fun (): IL_0000: ret
+
+
+aborting...
Added: trunk/mcs/mbas/Test/tests/GotoStatementA.vb.log
===================================================================
--- trunk/mcs/mbas/Test/tests/GotoStatementA.vb.log 2005-03-18 04:40:27 UTC
(rev 41972)
+++ trunk/mcs/mbas/Test/tests/GotoStatementA.vb.log 2005-03-18 04:45:46 UTC
(rev 41973)
@@ -0,0 +1,8 @@
+
+MONO_PATH="../../../class/lib/default:$MONO_PATH" mono ../../../mbas/mbas.exe
-d:NET_1_1 -d:ONLY_1_1 -debug /libpath:../../../class/lib/default
/imports:System GotoStatementA.vb
+MonoBASIC Compiler 0.95.0.0 - (c)2002, 2003, 2004, 2005 Rafael Teixeira
+--------
+THIS IS AN ALPHA SOFTWARE.
+--------
+GotoStatementA.vb(10,0) error BC29999: 'Nothing' found without a matching
'Block'
+Compilation failed
Added: trunk/mcs/mbas/Test/tests/InterfaceQ.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/InterfaceQ.vb 2005-03-18 04:40:27 UTC (rev
41972)
+++ trunk/mcs/mbas/Test/tests/InterfaceQ.vb 2005-03-18 04:45:46 UTC (rev
41973)
@@ -0,0 +1,29 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Module InterfaceA
+ Interface A
+ Sub fun()
+ Sub fun1()
+ Sub fun2()
+ Sub fun3()
+ End Interface
+
+ Class B
+ Implements A
+ Public Sub AA1() Implements A.fun
+ End Sub
+ Private Sub AA2() Implements A.fun1
+ End Sub
+ Protected Sub AA3() Implements A.fun2
+ End Sub
+ Sub AA4() Implements A.fun3
+ End Sub
+ End Class
+
+ Sub Main()
+ End Sub
+End Module
+
Property changes on: trunk/mcs/mbas/Test/tests/InterfaceQ.vb
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/mcs/mbas/Test/tests/InvocationStatementA.exe
===================================================================
(Binary files differ)
Property changes on: trunk/mcs/mbas/Test/tests/InvocationStatementA.exe
___________________________________________________________________
Name: svn:executable
+ *
Name: svn:mime-type
+ application/octet-stream
Added: trunk/mcs/mbas/Test/tests/LikeOperatorB.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/LikeOperatorB.vb 2005-03-18 04:40:27 UTC (rev
41972)
+++ trunk/mcs/mbas/Test/tests/LikeOperatorB.vb 2005-03-18 04:45:46 UTC (rev
41973)
@@ -0,0 +1,17 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+'Option Compare text
+Imports System
+
+Module LikeOperator2
+ Public Sub Main()
+ dim a as boolean
+ a = "o" Like "[A-Z]"
+ If a <> False Then
+ Throw new System.Exception("#A1-LikeOperator:Failed")
+ End If
+ end sub
+End Module
Property changes on: trunk/mcs/mbas/Test/tests/LikeOperatorB.vb
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/mcs/mbas/Test/tests/LikeOperatorC.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/LikeOperatorC.vb 2005-03-18 04:40:27 UTC (rev
41972)
+++ trunk/mcs/mbas/Test/tests/LikeOperatorC.vb 2005-03-18 04:45:46 UTC (rev
41973)
@@ -0,0 +1,17 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+'Option Compare text
+Imports System
+
+Module LikeOperator2
+ Public Sub Main()
+ dim a as boolean
+ a = "" Like "[]"
+ If a <> True Then
+ Throw new System.Exception("#A1-LikeOperator:Failed")
+ End If
+ end sub
+End Module
Property changes on: trunk/mcs/mbas/Test/tests/LikeOperatorC.vb
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/mcs/mbas/Test/tests/LoopStatementsA.exe
===================================================================
(Binary files differ)
Property changes on: trunk/mcs/mbas/Test/tests/LoopStatementsA.exe
___________________________________________________________________
Name: svn:executable
+ *
Name: svn:mime-type
+ application/octet-stream
Added: trunk/mcs/mbas/Test/tests/LoopStatementsB.exe
===================================================================
(Binary files differ)
Property changes on: trunk/mcs/mbas/Test/tests/LoopStatementsB.exe
___________________________________________________________________
Name: svn:executable
+ *
Name: svn:mime-type
+ application/octet-stream
Added: trunk/mcs/mbas/Test/tests/LoopStatementsC.exe
===================================================================
(Binary files differ)
Property changes on: trunk/mcs/mbas/Test/tests/LoopStatementsC.exe
___________________________________________________________________
Name: svn:executable
+ *
Name: svn:mime-type
+ application/octet-stream
Added: trunk/mcs/mbas/Test/tests/LoopStatementsD.exe
===================================================================
(Binary files differ)
Property changes on: trunk/mcs/mbas/Test/tests/LoopStatementsD.exe
___________________________________________________________________
Name: svn:executable
+ *
Name: svn:mime-type
+ application/octet-stream
Added: trunk/mcs/mbas/Test/tests/LoopStatementsE.vb.log
===================================================================
--- trunk/mcs/mbas/Test/tests/LoopStatementsE.vb.log 2005-03-18 04:40:27 UTC
(rev 41972)
+++ trunk/mcs/mbas/Test/tests/LoopStatementsE.vb.log 2005-03-18 04:45:46 UTC
(rev 41973)
@@ -0,0 +1,30 @@
+
+MONO_PATH="../../../class/lib/default:$MONO_PATH" mono ../../../mbas/mbas.exe
-d:NET_1_1 -d:ONLY_1_1 -debug /libpath:../../../class/lib/default
/imports:System LoopStatementsE.vb
+MonoBASIC Compiler 0.95.0.0 - (c)2002, 2003, 2004, 2005 Rafael Teixeira
+--------
+THIS IS AN ALPHA SOFTWARE.
+--------
+Internal warning BC-0018: Cannot find any symbol writer
+Exception: System.Exception: Expression Mono.MonoBASIC.Binary did not set its
type after Resolve
+called from: Mono.MonoBASIC.Binary
+in <0x00548> Mono.MonoBASIC.Expression:Resolve (Mono.MonoBASIC.EmitContext ec,
ResolveFlags flags)
+in <0x00012> Mono.MonoBASIC.Expression:Resolve (Mono.MonoBASIC.EmitContext ec)
+in <0x00131> Mono.MonoBASIC.Assign:DoResolve (Mono.MonoBASIC.EmitContext ec)
+in <0x0016d> Mono.MonoBASIC.Expression:Resolve (Mono.MonoBASIC.EmitContext ec,
ResolveFlags flags)
+in <0x00012> Mono.MonoBASIC.Expression:Resolve (Mono.MonoBASIC.EmitContext ec)
+in <0x0001d> Mono.MonoBASIC.StatementExpression:Resolve
(Mono.MonoBASIC.EmitContext ec)
+in <0x000eb> Mono.MonoBASIC.For:Resolve (Mono.MonoBASIC.EmitContext ec)
+in <0x00167> Mono.MonoBASIC.Block:Resolve (Mono.MonoBASIC.EmitContext ec)
+in <0x00167> Mono.MonoBASIC.Block:Resolve (Mono.MonoBASIC.EmitContext ec)
+in <0x00167> Mono.MonoBASIC.Block:Resolve (Mono.MonoBASIC.EmitContext ec)
+in <0x000cc> Mono.MonoBASIC.EmitContext:EmitTopBlock (Mono.MonoBASIC.Block
block, System.String bname, Mono.MonoBASIC.InternalParameters ip, Location loc)
+in <0x0044d> Mono.MonoBASIC.MethodData:Emit (Mono.MonoBASIC.TypeContainer
parent, Mono.MonoBASIC.Block block, System.Object kind)
+in <0x00031> Mono.MonoBASIC.Method:Emit (Mono.MonoBASIC.TypeContainer parent)
+in <0x00253> Mono.MonoBASIC.TypeContainer:Emit ()
+in <0x0030d> Mono.MonoBASIC.RootContext:EmitCode ()
+in <0x0003f> Mono.Languages.Driver:GenerateAssembly ()
+in <0x0004b> Mono.Languages.Driver:CompileAll ()
+Compilation succeeded: 1 warning(s)
+
+MONO_PATH="../../../class/lib/default::$MONO_PATH" mono --debug
./LoopStatementsE.exe
+cannot open assembly ./LoopStatementsE.exe
Added: trunk/mcs/mbas/Test/tests/LoopStatementsF.exe
===================================================================
(Binary files differ)
Property changes on: trunk/mcs/mbas/Test/tests/LoopStatementsF.exe
___________________________________________________________________
Name: svn:executable
+ *
Name: svn:mime-type
+ application/octet-stream
Added: trunk/mcs/mbas/Test/tests/LoopStatementsG.exe
===================================================================
(Binary files differ)
Property changes on: trunk/mcs/mbas/Test/tests/LoopStatementsG.exe
___________________________________________________________________
Name: svn:executable
+ *
Name: svn:mime-type
+ application/octet-stream
Added: trunk/mcs/mbas/Test/tests/LoopStatementsG.vb.log
===================================================================
--- trunk/mcs/mbas/Test/tests/LoopStatementsG.vb.log 2005-03-18 04:40:27 UTC
(rev 41972)
+++ trunk/mcs/mbas/Test/tests/LoopStatementsG.vb.log 2005-03-18 04:45:46 UTC
(rev 41973)
@@ -0,0 +1,13 @@
+
+MONO_PATH="../../../class/lib/default:$MONO_PATH" mono ../../../mbas/mbas.exe
-d:NET_1_1 -d:ONLY_1_1 -debug /libpath:../../../class/lib/default
/imports:System LoopStatementsG.vb
+MonoBASIC Compiler 0.95.0.0 - (c)2002, 2003, 2004, 2005 Rafael Teixeira
+--------
+THIS IS AN ALPHA SOFTWARE.
+--------
+Internal warning BC-0018: Cannot find any symbol writer
+Compilation succeeded: 1 warning(s)
+
+MONO_PATH="../../../class/lib/default::$MONO_PATH" mono --debug
./LoopStatementsG.exe
+
+Unhandled Exception: System.Exception: For loop not working. Expected -1 but
got 9
+in <0x000d5> Test:Main ()
Added: trunk/mcs/mbas/Test/tests/MethodDeclarationA.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/MethodDeclarationA.vb 2005-03-18 04:40:27 UTC
(rev 41972)
+++ trunk/mcs/mbas/Test/tests/MethodDeclarationA.vb 2005-03-18 04:45:46 UTC
(rev 41973)
@@ -0,0 +1,16 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+'To check if a variable without any type is been accepted or not
+
+Imports System
+
+Module MethodDeclarationA
+ Sub A(i)
+ End Sub
+ Sub Main()
+ End Sub
+End Module
+
Property changes on: trunk/mcs/mbas/Test/tests/MethodDeclarationA.vb
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/mcs/mbas/Test/tests/MethodDeclarationB.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/MethodDeclarationB.vb 2005-03-18 04:40:27 UTC
(rev 41972)
+++ trunk/mcs/mbas/Test/tests/MethodDeclarationB.vb 2005-03-18 04:45:46 UTC
(rev 41973)
@@ -0,0 +1,19 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Imports System
+
+Module MethodDeclarationA
+ Function A(ByRef i as Integer)As Integer
+ i = 10
+ End Function
+ Function AB()As Integer
+ return 10
+ End Function
+ Sub Main()
+ A(AB())
+ End Sub
+End Module
+
Property changes on: trunk/mcs/mbas/Test/tests/MethodDeclarationB.vb
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/mcs/mbas/Test/tests/MethodDeclarationC.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/MethodDeclarationC.vb 2005-03-18 04:40:27 UTC
(rev 41972)
+++ trunk/mcs/mbas/Test/tests/MethodDeclarationC.vb 2005-03-18 04:45:46 UTC
(rev 41973)
@@ -0,0 +1,20 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Imports System
+
+Module MethodDeclarationA
+ Function A(ByRef i as Integer)As Integer
+ i = 19
+ End Function
+ Sub Main()
+ Dim i as String
+ A(i)
+ if i<>"19" then
+ Throw new System.Exception("ByRef not working")
+ End if
+ End Sub
+End Module
+
Property changes on: trunk/mcs/mbas/Test/tests/MethodDeclarationC.vb
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/mcs/mbas/Test/tests/MethodDeclarationD.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/MethodDeclarationD.vb 2005-03-18 04:40:27 UTC
(rev 41972)
+++ trunk/mcs/mbas/Test/tests/MethodDeclarationD.vb 2005-03-18 04:45:46 UTC
(rev 41973)
@@ -0,0 +1,16 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Imports System
+
+Module MethodDeclarationA
+ Function A(ByRef i as Integer)As Integer
+ i = 19
+ End Function
+ Sub Main()
+ A(10)
+ End Sub
+End Module
+
Property changes on: trunk/mcs/mbas/Test/tests/MethodDeclarationD.vb
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/mcs/mbas/Test/tests/MethodDeclarationE.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/MethodDeclarationE.vb 2005-03-18 04:40:27 UTC
(rev 41972)
+++ trunk/mcs/mbas/Test/tests/MethodDeclarationE.vb 2005-03-18 04:45:46 UTC
(rev 41973)
@@ -0,0 +1,16 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+'To Check if only those parameters that follow Optional must be Optional
+
+Imports System
+
+Module MethodDeclarationA
+ Sub A1(ByVal i as Integer, Optional ByVal j as Integer =10)
+ End Sub
+ Sub Main()
+ End Sub
+End Module
+
Property changes on: trunk/mcs/mbas/Test/tests/MethodDeclarationE.vb
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/mcs/mbas/Test/tests/MethodDeclarationF.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/MethodDeclarationF.vb 2005-03-18 04:40:27 UTC
(rev 41972)
+++ trunk/mcs/mbas/Test/tests/MethodDeclarationF.vb 2005-03-18 04:45:46 UTC
(rev 41973)
@@ -0,0 +1,19 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Imports System
+
+Module MethodDeclarationA
+ Sub A1 ( ByVal ParamArray j() as Date )
+ Dim i as Date
+ For each i in j
+ Next i
+ End Sub
+ Sub Main()
+ Dim ar as Date() = {}
+ A1(ar)
+ End Sub
+End Module
+
Property changes on: trunk/mcs/mbas/Test/tests/MethodDeclarationF.vb
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/mcs/mbas/Test/tests/PropertyE.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/PropertyE.vb 2005-03-18 04:40:27 UTC (rev
41972)
+++ trunk/mcs/mbas/Test/tests/PropertyE.vb 2005-03-18 04:45:46 UTC (rev
41973)
@@ -0,0 +1,22 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+option Explicit on
+Imports System
+
+Class AB
+ Public writeonly Property Prop(a as Integer) as Integer
+ set
+ value = 0
+ End set
+ End Property
+End Class
+
+Module Test
+ Public Sub Main()
+ End Sub
+End Module
+
+
Property changes on: trunk/mcs/mbas/Test/tests/PropertyE.vb
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/mcs/mbas/Test/tests/ReturnStatementA.exe
===================================================================
(Binary files differ)
Property changes on: trunk/mcs/mbas/Test/tests/ReturnStatementA.exe
___________________________________________________________________
Name: svn:executable
+ *
Name: svn:mime-type
+ application/octet-stream
Added: trunk/mcs/mbas/Test/tests/StopStatementA.exe
===================================================================
(Binary files differ)
Property changes on: trunk/mcs/mbas/Test/tests/StopStatementA.exe
___________________________________________________________________
Name: svn:executable
+ *
Name: svn:mime-type
+ application/octet-stream
Added: trunk/mcs/mbas/Test/tests/StopStatementA.vb.log
===================================================================
--- trunk/mcs/mbas/Test/tests/StopStatementA.vb.log 2005-03-18 04:40:27 UTC
(rev 41972)
+++ trunk/mcs/mbas/Test/tests/StopStatementA.vb.log 2005-03-18 04:45:46 UTC
(rev 41973)
@@ -0,0 +1,10 @@
+
+MONO_PATH="../../../class/lib/default:$MONO_PATH" mono ../../../mbas/mbas.exe
-d:NET_1_1 -d:ONLY_1_1 -debug /libpath:../../../class/lib/default
/imports:System StopStatementA.vb
+MonoBASIC Compiler 0.95.0.0 - (c)2002, 2003, 2004, 2005 Rafael Teixeira
+--------
+THIS IS AN ALPHA SOFTWARE.
+--------
+syntax error, got token `IDENTIFIER'
+StopStatementA.vb(8,20) error BC29999: Unrecognized Pre-Processor statement
+StopStatementA.vb(9,17) error BC29999: Parsing error
+Compilation failed: 2 Error(s), 0 warnings
Added: trunk/mcs/mbas/Test/tests/TestResults.log
===================================================================
--- trunk/mcs/mbas/Test/tests/TestResults.log 2005-03-18 04:40:27 UTC (rev
41972)
+++ trunk/mcs/mbas/Test/tests/TestResults.log 2005-03-18 04:45:46 UTC (rev
41973)
@@ -0,0 +1,70 @@
+========================
+AssignmentStatementsA.vb: OK
+========================
+AssignmentStatementsB.vb: OK
+========================
+AssignmentStatementsC.vb: FAILED COMPILATION
+========================
+AssignmentStatementsD.vb: OK
+========================
+AssignmentStatementsE.vb: OK
+========================
+AssignmentStatementsF.vb: OK
+========================
+AssignmentStatementsG.vb: OK
+========================
+AssignmentStatementsH.vb: OK
+========================
+AssignmentStatementsI.vb: OK
+========================
+BlockStatementsA.vb: FAILED COMPILATION
+========================
+ConditionalStatementsA.vb: OK
+========================
+ConditionalStatementsB.vb: OK
+========================
+ConditionalStatementsC.vb: FAILED COMPILATION
+========================
+ConditionalStatementsD.vb: FAILED COMPILATION
+========================
+ConditionalStatementsE.vb: OK
+========================
+ConditionalStatementsF.vb: OK
+========================
+ConditionalStatementsG.vb: OK
+========================
+ConditionalStatementsH.vb: OK
+========================
+ConditionalStatementsI.vb: OK
+========================
+ConditionalStatementsJ.vb: OK
+========================
+ExitStatementA.vb: FAILED EXECUTION
+========================
+GotoStatementA.vb: FAILED COMPILATION
+========================
+InvocationStatementA.vb: OK
+========================
+LoopStatementsA.vb: OK
+========================
+LoopStatementsB.vb: OK
+========================
+LoopStatementsC.vb: OK
+========================
+LoopStatementsD.vb: OK
+========================
+LoopStatementsE.vb: FAILED EXECUTION
+========================
+LoopStatementsF.vb: OK
+========================
+LoopStatementsG.vb: FAILED EXECUTION
+========================
+ReturnStatementA.vb: OK
+========================
+StopStatementA.vb: FAILED COMPILATION
+========================
+WithStatementA.vb: OK
+========================
+WithStatementB.vb: FAILED EXECUTION
+========================
+WithStatementC.vb: FAILED COMPILATION
Added: trunk/mcs/mbas/Test/tests/VariablesH.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/VariablesH.vb 2005-03-18 04:40:27 UTC (rev
41972)
+++ trunk/mcs/mbas/Test/tests/VariablesH.vb 2005-03-18 04:45:46 UTC (rev
41973)
@@ -0,0 +1,20 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Module M
+Class A
+ Shared public i as Integer
+End Class
+ Sub Main()
+ A.i = A.i+1
+ fun()
+ End Sub
+ Sub fun()
+ A.i = A.i+1
+ if A.i<>2
+ Throw new System.Exception("Shared variable not
workin")
+ end if
+ End Sub
+End Module
Property changes on: trunk/mcs/mbas/Test/tests/VariablesH.vb
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/mcs/mbas/Test/tests/VariablesI.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/VariablesI.vb 2005-03-18 04:40:27 UTC (rev
41972)
+++ trunk/mcs/mbas/Test/tests/VariablesI.vb 2005-03-18 04:45:46 UTC (rev
41973)
@@ -0,0 +1,47 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Imports System
+
+Class Raiser
+ Public Event Constructed()
+ Public Sub New()
+ RaiseEvent Constructed
+ End Sub
+End Class
+
+
+Module Test
+ Private _x As Raiser
+
+ Public Property x() As Raiser
+ Get
+ Return _x
+ End Get
+
+ Set (ByVal Value As Raiser)
+ ' Unhook any existing handlers.
+ If Not _x Is Nothing Then
+ RemoveHandler _x.Constructed, AddressOf HandleConstructed
+ End If
+
+ ' Change value.
+ _x = Value
+
+ ' Hook-up new handlers.
+ If Not _x Is Nothing Then
+ AddHandler _x.Constructed, AddressOf HandleConstructed
+ End If
+ End Set
+ End Property
+
+ Sub HandleConstructed()
+ Console.WriteLine("Constructed")
+ End Sub
+
+ Sub Main()
+ x = New Raiser()
+ End Sub
+End Module
Property changes on: trunk/mcs/mbas/Test/tests/VariablesI.vb
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/mcs/mbas/Test/tests/VariablesJ.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/VariablesJ.vb 2005-03-18 04:40:27 UTC (rev
41972)
+++ trunk/mcs/mbas/Test/tests/VariablesJ.vb 2005-03-18 04:45:46 UTC (rev
41973)
@@ -0,0 +1,17 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Imports System
+
+Module Test
+ Structure AB
+ Public Const i as Integer = 10
+ Public j as integer
+ End Structure
+
+ Public Sub Main()
+ End Sub
+End Module
+
Property changes on: trunk/mcs/mbas/Test/tests/VariablesJ.vb
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/mcs/mbas/Test/tests/VariablesK.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/VariablesK.vb 2005-03-18 04:40:27 UTC (rev
41972)
+++ trunk/mcs/mbas/Test/tests/VariablesK.vb 2005-03-18 04:45:46 UTC (rev
41973)
@@ -0,0 +1,26 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Imports System
+
+Class A
+ Public i as Integer
+ Sub New()
+ i = 20
+ End Sub
+ Sub New (a as A)
+ i = a.i
+ End Sub
+End Class
+
+Module Test
+ Public Sub Main()
+ dim a as A = new A()
+ dim j as A = new A(a)
+ if j.i<>20
+ Throw new System.Exception("Initializer not working")
+ End if
+ End Sub
+End Module
Property changes on: trunk/mcs/mbas/Test/tests/VariablesK.vb
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/mcs/mbas/Test/tests/VariablesL.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/VariablesL.vb 2005-03-18 04:40:27 UTC (rev
41972)
+++ trunk/mcs/mbas/Test/tests/VariablesL.vb 2005-03-18 04:45:46 UTC (rev
41973)
@@ -0,0 +1,16 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Module Test
+ Sub Main()
+ dim b(4, 1) As Integer
+
+ b(0, 0) = 0: b(0, 1) = 1
+ b(1, 0) = 2: b(1, 1) = 3
+ b(2, 0) = 4: b(2, 1) = 5
+ b(3, 0) = 6: b(3, 1) = 7
+ b(4, 0) = 8: b(4, 1) = 9
+ End Sub
+End Module
Property changes on: trunk/mcs/mbas/Test/tests/VariablesL.vb
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/mcs/mbas/Test/tests/VariablesM.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/VariablesM.vb 2005-03-18 04:40:27 UTC (rev
41972)
+++ trunk/mcs/mbas/Test/tests/VariablesM.vb 2005-03-18 04:45:46 UTC (rev
41973)
@@ -0,0 +1,27 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Imports System
+
+Class AA
+ Inherits System.MarshalByRefObject
+ Public Function fun()
+ End Function
+End Class
+
+
+Class AAA
+ Public Function fun(a As AA)
+ End Function
+End Class
+
+Module Test
+ Public Sub Main()
+ dim b as AA = new AA()
+ dim a as AAA = new AAA()
+ a.fun(b)
+ End Sub
+End Module
+
Property changes on: trunk/mcs/mbas/Test/tests/VariablesM.vb
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/mcs/mbas/Test/tests/WithStatementA.exe
===================================================================
(Binary files differ)
Property changes on: trunk/mcs/mbas/Test/tests/WithStatementA.exe
___________________________________________________________________
Name: svn:executable
+ *
Name: svn:mime-type
+ application/octet-stream
Added: trunk/mcs/mbas/Test/tests/WithStatementB.exe
===================================================================
(Binary files differ)
Property changes on: trunk/mcs/mbas/Test/tests/WithStatementB.exe
___________________________________________________________________
Name: svn:executable
+ *
Name: svn:mime-type
+ application/octet-stream
Added: trunk/mcs/mbas/Test/tests/WithStatementB.vb.log
===================================================================
--- trunk/mcs/mbas/Test/tests/WithStatementB.vb.log 2005-03-18 04:40:27 UTC
(rev 41972)
+++ trunk/mcs/mbas/Test/tests/WithStatementB.vb.log 2005-03-18 04:45:46 UTC
(rev 41973)
@@ -0,0 +1,13 @@
+
+MONO_PATH="../../../class/lib/default:$MONO_PATH" mono ../../../mbas/mbas.exe
-d:NET_1_1 -d:ONLY_1_1 -debug /libpath:../../../class/lib/default
/imports:System WithStatementB.vb
+MonoBASIC Compiler 0.95.0.0 - (c)2002, 2003, 2004, 2005 Rafael Teixeira
+--------
+THIS IS AN ALPHA SOFTWARE.
+--------
+Internal warning BC-0018: Cannot find any symbol writer
+Compilation succeeded: 1 warning(s)
+
+MONO_PATH="../../../class/lib/default::$MONO_PATH" mono --debug
./WithStatementB.exe
+
+Unhandled Exception: System.Exception: #WS1 - With Statement failed
+in <0x000c0> WithStatementB:main ()
Added: trunk/mcs/mbas/Test/tests/WithStatementC.vb.log
===================================================================
--- trunk/mcs/mbas/Test/tests/WithStatementC.vb.log 2005-03-18 04:40:27 UTC
(rev 41972)
+++ trunk/mcs/mbas/Test/tests/WithStatementC.vb.log 2005-03-18 04:45:46 UTC
(rev 41973)
@@ -0,0 +1,9 @@
+
+MONO_PATH="../../../class/lib/default:$MONO_PATH" mono ../../../mbas/mbas.exe
-d:NET_1_1 -d:ONLY_1_1 -debug /libpath:../../../class/lib/default
/imports:System WithStatementC.vb
+MonoBASIC Compiler 0.95.0.0 - (c)2002, 2003, 2004, 2005 Rafael Teixeira
+--------
+THIS IS AN ALPHA SOFTWARE.
+--------
+Internal warning BC-0018: Cannot find any symbol writer
+WithStatementC.vb(16,21) error BC30132: No such label `labelA' in this scope
+Compilation failed: 1 Error(s), 1 warnings
Added: trunk/mcs/mbas/Test/tests/test.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/test.vb 2005-03-18 04:40:27 UTC (rev 41972)
+++ trunk/mcs/mbas/Test/tests/test.vb 2005-03-18 04:45:46 UTC (rev 41973)
@@ -0,0 +1,17 @@
+'Author:
+' V. Sudharsan ([EMAIL PROTECTED])
+'
+' (C) 2005 Novell, Inc.
+
+Module Test
+ Sub Main()
+ Dim i as integer
+ i = 20-10.5
+ System.Console.WriteLine(20-10.5)
+ System.Console.WriteLine("i is {0}",i)
+' if i<>15 then
+' Throw New System.Exception("Select not working properly.
Expected 15 but got "&i)
+' End if
+ End Sub
+End Module
+
Added: trunk/mcs/mbas/Test/tests/test1.vb
===================================================================
--- trunk/mcs/mbas/Test/tests/test1.vb 2005-03-18 04:40:27 UTC (rev 41972)
+++ trunk/mcs/mbas/Test/tests/test1.vb 2005-03-18 04:45:46 UTC (rev 41973)
@@ -0,0 +1,24 @@
+Imports System
+
+Module ConditionalStatementsC
+
+ Sub Main()
+
+ Dim i As Integer
+ Dim arr(10) As Integer
+
+ For i = 0 To 10
+
+ Select Case i
+ Case 0 To 4
+ 'Case 0
+ 'arr(i) = 1
+ Console.WriteLine("MANJU i is {0}",i)
+ End Select
+
+ Next
+
+
+ End Sub
+
+End Module
_______________________________________________
Mono-patches maillist - [email protected]
http://lists.ximian.com/mailman/listinfo/mono-patches
