+2005-03-18 Manjula GHM <mmanjula@novell.com>
+ Sudharsan V <vsudharsan@novell.com>
+ * Test cases for Type members and Like operator
2005-02-09 Raja R Harinath <rharinath@novell.com>
* Makefile (SUBDIRS): Add 'rerrors'.
--- /dev/null
+'Author:
+' V. Sudharsan (vsudharsan@novell.com)
+'
+' (C) 2005 Novell, Inc.
+
+Option Compare text\r
+Imports System\r
+Imports Nunit.Framework\r
+\r
+<TestFixture> _\r
+Public Class LikeOperator2\r
+ <Test, ExpectedException (GetType (System.ArgumentException))> _\r
+ Public Sub TestForException ()\r
+ dim a as boolean\r
+ a = "?" Like "[?"\r
+ If a <> True Then\r
+ Throw new System.Exception("#A1-LikeOperator:Failed")\r
+ End If\r
+ end sub\r
+End class
--- /dev/null
+'Author:
+' V. Sudharsan (vsudharsan@novell.com)
+'
+' (C) 2005 Novell, Inc.
+
+'Option Compare text\r
+Imports System\r
+Imports Nunit.Framework\r
+\r
+<TestFixture> _\r
+Public Class LikeOperator2\r
+ <Test, ExpectedException (GetType (System.Exception))> _\r
+ Public Sub TestForException ()\r
+ dim a as boolean\r
+ a = "f" Like "[Z-A]"\r
+ If a <> True Then\r
+ Throw new System.Exception("#A1-LikeOperator:Failed")\r
+ End If\r
+ end sub\r
+End class
--- /dev/null
+'Author:
+' V. Sudharsan (vsudharsan@novell.com)
+'
+' (C) 2005 Novell, Inc.
+
+Imports System\r
+Imports Nunit.Framework\r
+\r
+<TestFixture>_\r
+Public Class VariablesI\r
+ _<Test, ExpectedException (GetType (System.TypeInitializationException))>\r
+ Readonly Shared Public i as integer = "Hello"\r
+ Public Sub TestForException()\r
+ if i <> 1\r
+ End if \r
+ End Sub\r
+End Class
--- /dev/null
+'Author:
+' V. Sudharsan (vsudharsan@novell.com)
+'
+' (C) 2005 Novell, Inc.
+
+Imports System\r
+Imports Nunit.Framework\r
+\r
+<TestFixture>_\r
+Public Class Variables2\r
+ _<Test, ExpectedException (GetType (System.InvalidCastException))>\r
+ Public Sub TestForException()\r
+ dim a as string = "hello"\r
+ dim i(1,a) as A \r
+ End Sub\r
+End Class
--- /dev/null
+
+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
--- /dev/null
+
+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
--- /dev/null
+
+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
--- /dev/null
+
+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
--- /dev/null
+'Author:
+' V. Sudharsan (vsudharsan@novell.com)
+'
+' (C) 2005 Novell, Inc.
+
+'Checking on all possible acessors on const\r
+Imports System\r
+\r
+Module Test\r
+ Const a as Integer = 1\r
+ Public Const a1 as Integer = 1\r
+ Private Const a2 as Integer = 1\r
+ Class C\r
+ Protected Const a3 as Integer = 1\r
+ End Class\r
+ Public Sub Main() \r
+ End Sub\r
+End Module\r
+\r
--- /dev/null
+'Author:
+' V. Sudharsan (vsudharsan@novell.com)
+'
+' (C) 2005 Novell, Inc.
+
+'To Prove Constructors can be overloaded\r
+\r
+Imports System\r
+\r
+Class A\r
+ Sub New() \r
+ End Sub\r
+ Sub New(I as Integer) \r
+ End Sub\r
+ Sub New(I as Integer, J as Integer) \r
+ End Sub\r
+ Shared Sub New()\r
+ End Sub\r
+End Class\r
+\r
+Module Test\r
+ Public Sub Main()\r
+ Dim a as A = New A(10)\r
+ End Sub\r
+End Module\r
+\r
--- /dev/null
+'Author:
+' V. Sudharsan (vsudharsan@novell.com)
+'
+' (C) 2005 Novell, Inc.
+
+Imports System\r
+\r
+Structure A\r
+ Dim i as Integer\r
+ Sub New(I as Integer)\r
+ End Sub\r
+ Sub New(I as Integer, J as Integer) \r
+ End Sub\r
+ Shared Sub New()\r
+ End Sub\r
+End Structure\r
+\r
+Module Test\r
+ Public Sub Main()\r
+ Dim a as A = New A(10) \r
+ End Sub\r
+End Module\r
+\r
--- /dev/null
+'Author:
+' V. Sudharsan (vsudharsan@novell.com)
+'
+' (C) 2005 Novell, Inc.
+
+Imports System\r
+\r
+Class A\r
+ Public i as Integer = 10\r
+ Sub New()\r
+ End Sub \r
+End Class\r
+\r
+Class AB\r
+ Inherits A\r
+ Public i1 as Integer = MyBase.i\r
+ Sub New()\r
+ if i1<>10 then\r
+ Throw new System.Exception("Constructor not working properly")\r
+ End if\r
+ End Sub \r
+End Class\r
+\r
+Module Test\r
+ Public Sub Main()\r
+ Dim a as AB= New AB() \r
+ End Sub\r
+End Module\r
+\r
--- /dev/null
+'Author:
+' V. Sudharsan (vsudharsan@novell.com)
+'
+' (C) 2005 Novell, Inc.
+
+'To check if initializing takes place according to the occurance\r
+\r
+Imports System\r
+\r
+Class A\r
+ Public i as Integer = j\r
+ Public j as Integer = 1\r
+ Sub New() \r
+ if i<>0\r
+ Throw new System.Exception("Constructor not working properly") \r
+ End if\r
+ End Sub\r
+End Class\r
+\r
+Class AB\r
+ Inherits A\r
+ Public k as Integer = i\r
+ Sub New() \r
+ End Sub\r
+End Class\r
+\r
+Module Test\r
+ Public Sub Main()\r
+ Dim a as AB = New AB()\r
+ End Sub\r
+End Module\r
+\r
--- /dev/null
+'Author:
+' V. Sudharsan (vsudharsan@novell.com)
+'
+' (C) 2005 Novell, Inc.
+
+Imports System\r
+\r
+Class A \r
+ ' Has implicit Constructor defined\r
+End Class\r
+\r
+Class AB\r
+ Inherits A\r
+ Sub New() \r
+ End Sub\r
+End Class\r
+\r
+Module Test\r
+ Public Sub Main()\r
+ Dim a as AB = new AB()\r
+ End Sub\r
+End Module\r
+\r
--- /dev/null
+'Author:
+' V. Sudharsan (vsudharsan@novell.com)
+'
+' (C) 2005 Novell, Inc.
+
+Imports System\r
+\r
+Imports A\r
+\r
+NameSpace A\r
+ Public Class B\r
+ Shared Public i as integer\r
+ End Class\r
+End Namespace\r
+\r
+Class AB\r
+ Shared Sub New() \r
+ A.B.i = A.B.i + 1\r
+ End Sub\r
+End Class\r
+\r
+Module Test\r
+ Public Sub Main()\r
+ Dim a1 as AB = new AB()\r
+ Dim b2 as AB = new AB()\r
+ Dim c3 as AB = new AB()\r
+ if A.B.i<>1\r
+ Throw new System.Exception("Shared Constructor not working")\r
+ End if\r
+ End Sub\r
+End Module\r
+\r
--- /dev/null
+'Author:
+' V. Sudharsan (vsudharsan@novell.com)
+'
+' (C) 2005 Novell, Inc.
+
+'Checking circular references\r
+\r
+Imports System\r
+\r
+Class A\r
+ Public Shared X As Integer = B.Y + 1\r
+ Shared Sub Hello()\r
+ if A.X <> 2 or B.Y <> 1\r
+ Throw new System.Exception("Shared Construtor not working")\r
+ End if\r
+ End Sub\r
+End Class\r
+\r
+Class B\r
+ Public Shared Y As Integer = A.X + 1\r
+End Class\r
+\r
+\r
+Module Test\r
+ Public Sub Main() \r
+ A.Hello()\r
+ End Sub\r
+End Module\r
+\r
--- /dev/null
+'Author:
+' V. Sudharsan (vsudharsan@novell.com)
+'
+' (C) 2005 Novell, Inc.
+
+'To Check if Methods Accebility has anything to do with Events\r
+\r
+Imports System\r
+\r
+Class Raiser\r
+ Public Event Fun(ByVal i as Integer)\r
+ Public Sub New(i as Integer)\r
+ RaiseEvent Fun(23)\r
+ End Sub\r
+End Class\r
+\r
+Module Test\r
+ Private WithEvents x As Raiser\r
+\r
+ Private Sub Fun(ByVal i as integer) Handles x.Fun\r
+ End Sub\r
+\r
+ Public Sub Main()\r
+ x = New Raiser(10)\r
+ End Sub\r
+End Module\r
--- /dev/null
+'Author:
+' V. Sudharsan (vsudharsan@novell.com)
+'
+' (C) 2005 Novell, Inc.
+
+'To Check if Multiple Methods can access mulitplte events\r
+\r
+Imports System\r
+\r
+Class Raiser\r
+ Public Event Fun(ByVal i as Integer)\r
+ Public Event Fun1(ByVal i as Integer)\r
+ Public Sub New(i as Integer)\r
+ RaiseEvent Fun(23)\r
+ End Sub\r
+End Class\r
+\r
+Module Test\r
+ Private WithEvents x As Raiser\r
+\r
+ Private Sub Fun(ByVal i as integer) Handles x.Fun, X.Fun1\r
+ End Sub\r
+ \r
+ Public Sub Fun1(ByVal i as integer) Handles X.Fun1\r
+ End Sub\r
+\r
+\r
+ Public Sub Main()\r
+ x = New Raiser(10)\r
+ End Sub\r
+End Module\r
--- /dev/null
+
+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...
--- /dev/null
+
+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
--- /dev/null
+'Author:
+' V. Sudharsan (vsudharsan@novell.com)
+'
+' (C) 2005 Novell, Inc.
+
+Module InterfaceA\r
+ Interface A\r
+ Sub fun() \r
+ Sub fun1()\r
+ Sub fun2()\r
+ Sub fun3()\r
+ End Interface\r
+ \r
+ Class B \r
+ Implements A\r
+ Public Sub AA1() Implements A.fun\r
+ End Sub\r
+ Private Sub AA2() Implements A.fun1\r
+ End Sub\r
+ Protected Sub AA3() Implements A.fun2\r
+ End Sub\r
+ Sub AA4() Implements A.fun3\r
+ End Sub\r
+ End Class\r
+ \r
+ Sub Main() \r
+ End Sub\r
+End Module\r
+
--- /dev/null
+'Author:
+' V. Sudharsan (vsudharsan@novell.com)
+'
+' (C) 2005 Novell, Inc.
+
+'Option Compare text\r
+Imports System\r
+\r
+Module LikeOperator2\r
+ Public Sub Main()\r
+ dim a as boolean\r
+ a = "o" Like "[A-Z]"\r
+ If a <> False Then\r
+ Throw new System.Exception("#A1-LikeOperator:Failed")\r
+ End If\r
+ end sub\r
+End Module
--- /dev/null
+'Author:
+' V. Sudharsan (vsudharsan@novell.com)
+'
+' (C) 2005 Novell, Inc.
+
+'Option Compare text\r
+Imports System\r
+\r
+Module LikeOperator2\r
+ Public Sub Main()\r
+ dim a as boolean\r
+ a = "" Like "[]"\r
+ If a <> True Then\r
+ Throw new System.Exception("#A1-LikeOperator:Failed")\r
+ End If\r
+ end sub\r
+End Module
--- /dev/null
+
+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
--- /dev/null
+
+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 ()
--- /dev/null
+'Author:
+' V. Sudharsan (vsudharsan@novell.com)
+'
+' (C) 2005 Novell, Inc.
+
+'To check if a variable without any type is been accepted or not\r
+\r
+Imports System\r
+\r
+Module MethodDeclarationA\r
+ Sub A(i) \r
+ End Sub\r
+ Sub Main()\r
+ End Sub\r
+End Module\r
+
--- /dev/null
+'Author:
+' V. Sudharsan (vsudharsan@novell.com)
+'
+' (C) 2005 Novell, Inc.
+
+Imports System\r
+\r
+Module MethodDeclarationA\r
+ Function A(ByRef i as Integer)As Integer \r
+ i = 10\r
+ End Function\r
+ Function AB()As Integer \r
+ return 10\r
+ End Function\r
+ Sub Main()\r
+ A(AB())\r
+ End Sub\r
+End Module\r
+
--- /dev/null
+'Author:
+' V. Sudharsan (vsudharsan@novell.com)
+'
+' (C) 2005 Novell, Inc.
+
+Imports System\r
+\r
+Module MethodDeclarationA\r
+ Function A(ByRef i as Integer)As Integer \r
+ i = 19\r
+ End Function\r
+ Sub Main()\r
+ Dim i as String\r
+ A(i)\r
+ if i<>"19" then\r
+ Throw new System.Exception("ByRef not working")\r
+ End if \r
+ End Sub\r
+End Module\r
+
--- /dev/null
+'Author:
+' V. Sudharsan (vsudharsan@novell.com)
+'
+' (C) 2005 Novell, Inc.
+
+Imports System\r
+\r
+Module MethodDeclarationA\r
+ Function A(ByRef i as Integer)As Integer \r
+ i = 19\r
+ End Function\r
+ Sub Main()\r
+ A(10)\r
+ End Sub\r
+End Module\r
+
--- /dev/null
+'Author:
+' V. Sudharsan (vsudharsan@novell.com)
+'
+' (C) 2005 Novell, Inc.
+
+'To Check if only those parameters that follow Optional must be Optional\r
+\r
+Imports System\r
+\r
+Module MethodDeclarationA\r
+ Sub A1(ByVal i as Integer, Optional ByVal j as Integer =10) \r
+ End Sub\r
+ Sub Main()\r
+ End Sub\r
+End Module\r
+
--- /dev/null
+'Author:
+' V. Sudharsan (vsudharsan@novell.com)
+'
+' (C) 2005 Novell, Inc.
+
+Imports System\r
+\r
+Module MethodDeclarationA\r
+ Sub A1 ( ByVal ParamArray j() as Date ) \r
+ Dim i as Date\r
+ For each i in j\r
+ Next i\r
+ End Sub\r
+ Sub Main()\r
+ Dim ar as Date() = {}\r
+ A1(ar) \r
+ End Sub\r
+End Module\r
+
--- /dev/null
+'Author:
+' V. Sudharsan (vsudharsan@novell.com)
+'
+' (C) 2005 Novell, Inc.
+
+option Explicit on\r
+Imports System\r
+\r
+Class AB\r
+ Public writeonly Property Prop(a as Integer) as Integer\r
+ set\r
+ value = 0\r
+ End set\r
+ End Property\r
+End Class\r
+\r
+Module Test\r
+ Public Sub Main() \r
+ End Sub\r
+End Module\r
+\r
+
--- /dev/null
+
+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
--- /dev/null
+========================
+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
--- /dev/null
+'Author:
+' V. Sudharsan (vsudharsan@novell.com)
+'
+' (C) 2005 Novell, Inc.
+
+Module M\r
+Class A\r
+ Shared public i as Integer\r
+End Class\r
+ Sub Main()\r
+ A.i = A.i+1\r
+ fun()\r
+ End Sub\r
+ Sub fun()\r
+ A.i = A.i+1\r
+ if A.i<>2\r
+ Throw new System.Exception("Shared variable not workin") \r
+ end if\r
+ End Sub\r
+End Module
--- /dev/null
+'Author:
+' V. Sudharsan (vsudharsan@novell.com)
+'
+' (C) 2005 Novell, Inc.
+
+Imports System\r
+\r
+Class Raiser \r
+ Public Event Constructed() \r
+ Public Sub New() \r
+ RaiseEvent Constructed \r
+ End Sub \r
+End Class \r
+\r
+\r
+Module Test\r
+ Private _x As Raiser\r
+\r
+ Public Property x() As Raiser\r
+ Get\r
+ Return _x\r
+ End Get\r
+\r
+ Set (ByVal Value As Raiser)\r
+ ' Unhook any existing handlers.\r
+ If Not _x Is Nothing Then\r
+ RemoveHandler _x.Constructed, AddressOf HandleConstructed\r
+ End If\r
+\r
+ ' Change value.\r
+ _x = Value\r
+\r
+ ' Hook-up new handlers.\r
+ If Not _x Is Nothing Then\r
+ AddHandler _x.Constructed, AddressOf HandleConstructed\r
+ End If\r
+ End Set\r
+ End Property\r
+\r
+ Sub HandleConstructed()\r
+ Console.WriteLine("Constructed")\r
+ End Sub\r
+\r
+ Sub Main()\r
+ x = New Raiser()\r
+ End Sub\r
+End Module\r
--- /dev/null
+'Author:
+' V. Sudharsan (vsudharsan@novell.com)
+'
+' (C) 2005 Novell, Inc.
+
+Imports System\r
+\r
+Module Test\r
+ Structure AB \r
+ Public Const i as Integer = 10\r
+ Public j as integer \r
+ End Structure\r
+\r
+ Public Sub Main()\r
+ End Sub\r
+End Module\r
+\r
--- /dev/null
+'Author:
+' V. Sudharsan (vsudharsan@novell.com)
+'
+' (C) 2005 Novell, Inc.
+
+Imports System\r
+\r
+Class A\r
+ Public i as Integer\r
+ Sub New()\r
+ i = 20\r
+ End Sub\r
+ Sub New (a as A)\r
+ i = a.i\r
+ End Sub\r
+End Class\r
+\r
+Module Test\r
+ Public Sub Main()\r
+ dim a as A = new A()\r
+ dim j as A = new A(a)\r
+ if j.i<>20\r
+ Throw new System.Exception("Initializer not working")\r
+ End if\r
+ End Sub\r
+End Module\r
--- /dev/null
+'Author:
+' V. Sudharsan (vsudharsan@novell.com)
+'
+' (C) 2005 Novell, Inc.
+
+Module Test\r
+ Sub Main()\r
+ dim b(4, 1) As Integer\r
+\r
+ b(0, 0) = 0: b(0, 1) = 1\r
+ b(1, 0) = 2: b(1, 1) = 3\r
+ b(2, 0) = 4: b(2, 1) = 5\r
+ b(3, 0) = 6: b(3, 1) = 7\r
+ b(4, 0) = 8: b(4, 1) = 9\r
+ End Sub\r
+End Module\r
--- /dev/null
+'Author:
+' V. Sudharsan (vsudharsan@novell.com)
+'
+' (C) 2005 Novell, Inc.
+
+Imports System\r
+\r
+Class AA\r
+ Inherits System.MarshalByRefObject\r
+ Public Function fun()\r
+ End Function\r
+End Class\r
+\r
+\r
+Class AAA\r
+ Public Function fun(a As AA) \r
+ End Function\r
+End Class\r
+\r
+Module Test\r
+ Public Sub Main()\r
+ dim b as AA = new AA()\r
+ dim a as AAA = new AAA()\r
+ a.fun(b)\r
+ End Sub\r
+End Module\r
+\r
--- /dev/null
+
+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 ()
--- /dev/null
+
+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
--- /dev/null
+'Author:\r
+' V. Sudharsan (vsudharsan@novell.com)\r
+'\r
+' (C) 2005 Novell, Inc.\r
+\r
+Module Test\r
+ Sub Main() \r
+ Dim i as integer \r
+ i = 20-10.5\r
+ System.Console.WriteLine(20-10.5)\r
+ System.Console.WriteLine("i is {0}",i)\r
+' if i<>15 then\r
+' Throw New System.Exception("Select not working properly. Expected 15 but got "&i)\r
+' End if\r
+ End Sub\r
+End Module\r
+\r
--- /dev/null
+Imports System\r
+\r
+Module ConditionalStatementsC\r
+\r
+ Sub Main()\r
+\r
+ Dim i As Integer\r
+ Dim arr(10) As Integer\r
+\r
+ For i = 0 To 10\r
+\r
+ Select Case i\r
+ Case 0 To 4\r
+ 'Case 0 \r
+ 'arr(i) = 1\r
+ Console.WriteLine("MANJU i is {0}",i)\r
+ End Select\r
+\r
+ Next\r
+\r
+\r
+ End Sub\r
+\r
+End Module\r
projects / mono.git / commitdiff