From 3131a144e876cab31c8b248cd3a323d333b921b3 Mon Sep 17 00:00:00 2001 From: Manjula GHM Date: Fri, 18 Mar 2005 04:45:46 +0000 Subject: [PATCH] Test cases for Type members and Like operator svn path=/trunk/mcs/; revision=41973 --- mcs/mbas/Test/ChangeLog | 3 + mcs/mbas/Test/rerrors/LikeOperator2.vb | 20 +++++ mcs/mbas/Test/rerrors/LikeOperator3.vb | 20 +++++ mcs/mbas/Test/rerrors/Test/Variables1.vb | 17 +++++ mcs/mbas/Test/rerrors/Test/Variables2.vb | 16 ++++ mcs/mbas/Test/tests/AssignmentStatementsA.exe | Bin 0 -> 3584 bytes mcs/mbas/Test/tests/AssignmentStatementsB.exe | Bin 0 -> 3072 bytes .../Test/tests/AssignmentStatementsC.vb.log | 12 +++ mcs/mbas/Test/tests/AssignmentStatementsD.exe | Bin 0 -> 2560 bytes mcs/mbas/Test/tests/AssignmentStatementsE.exe | Bin 0 -> 2560 bytes mcs/mbas/Test/tests/AssignmentStatementsF.exe | Bin 0 -> 2048 bytes mcs/mbas/Test/tests/AssignmentStatementsG.exe | Bin 0 -> 2560 bytes mcs/mbas/Test/tests/AssignmentStatementsH.exe | Bin 0 -> 2560 bytes mcs/mbas/Test/tests/AssignmentStatementsI.exe | Bin 0 -> 2560 bytes mcs/mbas/Test/tests/BlockStatementsA.vb.log | 8 ++ .../Test/tests/ConditionalStatementsA.exe | Bin 0 -> 2048 bytes .../Test/tests/ConditionalStatementsB.exe | Bin 0 -> 2560 bytes .../Test/tests/ConditionalStatementsC.vb.log | 9 +++ .../Test/tests/ConditionalStatementsD.vb.log | 8 ++ .../Test/tests/ConditionalStatementsE.exe | Bin 0 -> 2048 bytes .../Test/tests/ConditionalStatementsF.exe | Bin 0 -> 2048 bytes .../Test/tests/ConditionalStatementsG.exe | Bin 0 -> 2560 bytes .../Test/tests/ConditionalStatementsH.exe | Bin 0 -> 2560 bytes .../Test/tests/ConditionalStatementsI.exe | Bin 0 -> 2560 bytes .../Test/tests/ConditionalStatementsJ.exe | Bin 0 -> 2560 bytes mcs/mbas/Test/tests/ConstantC.vb | 19 +++++ mcs/mbas/Test/tests/ConstructorD.vb | 26 +++++++ mcs/mbas/Test/tests/ConstructorE.vb | 23 ++++++ mcs/mbas/Test/tests/ConstructorF.vb | 29 ++++++++ mcs/mbas/Test/tests/ConstructorG.vb | 32 ++++++++ mcs/mbas/Test/tests/ConstructorH.vb | 23 ++++++ mcs/mbas/Test/tests/ConstructorI.vb | 32 ++++++++ mcs/mbas/Test/tests/ConstructorJ.vb | 29 ++++++++ mcs/mbas/Test/tests/EventM.vb | 26 +++++++ mcs/mbas/Test/tests/EventN.vb | 31 ++++++++ mcs/mbas/Test/tests/ExitStatementA.exe | Bin 0 -> 2048 bytes mcs/mbas/Test/tests/ExitStatementA.vb.log | 16 ++++ mcs/mbas/Test/tests/GotoStatementA.vb.log | 8 ++ mcs/mbas/Test/tests/InterfaceQ.vb | 29 ++++++++ mcs/mbas/Test/tests/InvocationStatementA.exe | Bin 0 -> 3072 bytes mcs/mbas/Test/tests/LikeOperatorB.vb | 17 +++++ mcs/mbas/Test/tests/LikeOperatorC.vb | 17 +++++ mcs/mbas/Test/tests/LoopStatementsA.exe | Bin 0 -> 2560 bytes mcs/mbas/Test/tests/LoopStatementsB.exe | Bin 0 -> 2048 bytes mcs/mbas/Test/tests/LoopStatementsC.exe | Bin 0 -> 2048 bytes mcs/mbas/Test/tests/LoopStatementsD.exe | Bin 0 -> 2560 bytes mcs/mbas/Test/tests/LoopStatementsE.vb.log | 30 ++++++++ mcs/mbas/Test/tests/LoopStatementsF.exe | Bin 0 -> 2560 bytes mcs/mbas/Test/tests/LoopStatementsG.exe | Bin 0 -> 2560 bytes mcs/mbas/Test/tests/LoopStatementsG.vb.log | 13 ++++ mcs/mbas/Test/tests/MethodDeclarationA.vb | 16 ++++ mcs/mbas/Test/tests/MethodDeclarationB.vb | 19 +++++ mcs/mbas/Test/tests/MethodDeclarationC.vb | 20 +++++ mcs/mbas/Test/tests/MethodDeclarationD.vb | 16 ++++ mcs/mbas/Test/tests/MethodDeclarationE.vb | 16 ++++ mcs/mbas/Test/tests/MethodDeclarationF.vb | 19 +++++ mcs/mbas/Test/tests/PropertyE.vb | 22 ++++++ mcs/mbas/Test/tests/ReturnStatementA.exe | Bin 0 -> 2560 bytes mcs/mbas/Test/tests/StopStatementA.exe | Bin 0 -> 3072 bytes mcs/mbas/Test/tests/StopStatementA.vb.log | 10 +++ mcs/mbas/Test/tests/TestResults.log | 70 ++++++++++++++++++ mcs/mbas/Test/tests/VariablesH.vb | 20 +++++ mcs/mbas/Test/tests/VariablesI.vb | 47 ++++++++++++ mcs/mbas/Test/tests/VariablesJ.vb | 17 +++++ mcs/mbas/Test/tests/VariablesK.vb | 26 +++++++ mcs/mbas/Test/tests/VariablesL.vb | 16 ++++ mcs/mbas/Test/tests/VariablesM.vb | 27 +++++++ mcs/mbas/Test/tests/WithStatementA.exe | Bin 0 -> 2560 bytes mcs/mbas/Test/tests/WithStatementB.exe | Bin 0 -> 2560 bytes mcs/mbas/Test/tests/WithStatementB.vb.log | 13 ++++ mcs/mbas/Test/tests/WithStatementC.vb.log | 9 +++ mcs/mbas/Test/tests/test.vb | 17 +++++ mcs/mbas/Test/tests/test1.vb | 24 ++++++ 73 files changed, 937 insertions(+) create mode 100755 mcs/mbas/Test/rerrors/LikeOperator2.vb create mode 100755 mcs/mbas/Test/rerrors/LikeOperator3.vb create mode 100755 mcs/mbas/Test/rerrors/Test/Variables1.vb create mode 100755 mcs/mbas/Test/rerrors/Test/Variables2.vb create mode 100755 mcs/mbas/Test/tests/AssignmentStatementsA.exe create mode 100755 mcs/mbas/Test/tests/AssignmentStatementsB.exe create mode 100644 mcs/mbas/Test/tests/AssignmentStatementsC.vb.log create mode 100755 mcs/mbas/Test/tests/AssignmentStatementsD.exe create mode 100755 mcs/mbas/Test/tests/AssignmentStatementsE.exe create mode 100755 mcs/mbas/Test/tests/AssignmentStatementsF.exe create mode 100755 mcs/mbas/Test/tests/AssignmentStatementsG.exe create mode 100755 mcs/mbas/Test/tests/AssignmentStatementsH.exe create mode 100755 mcs/mbas/Test/tests/AssignmentStatementsI.exe create mode 100644 mcs/mbas/Test/tests/BlockStatementsA.vb.log create mode 100755 mcs/mbas/Test/tests/ConditionalStatementsA.exe create mode 100755 mcs/mbas/Test/tests/ConditionalStatementsB.exe create mode 100644 mcs/mbas/Test/tests/ConditionalStatementsC.vb.log create mode 100644 mcs/mbas/Test/tests/ConditionalStatementsD.vb.log create mode 100755 mcs/mbas/Test/tests/ConditionalStatementsE.exe create mode 100755 mcs/mbas/Test/tests/ConditionalStatementsF.exe create mode 100755 mcs/mbas/Test/tests/ConditionalStatementsG.exe create mode 100755 mcs/mbas/Test/tests/ConditionalStatementsH.exe create mode 100755 mcs/mbas/Test/tests/ConditionalStatementsI.exe create mode 100755 mcs/mbas/Test/tests/ConditionalStatementsJ.exe create mode 100755 mcs/mbas/Test/tests/ConstantC.vb create mode 100755 mcs/mbas/Test/tests/ConstructorD.vb create mode 100755 mcs/mbas/Test/tests/ConstructorE.vb create mode 100755 mcs/mbas/Test/tests/ConstructorF.vb create mode 100755 mcs/mbas/Test/tests/ConstructorG.vb create mode 100755 mcs/mbas/Test/tests/ConstructorH.vb create mode 100755 mcs/mbas/Test/tests/ConstructorI.vb create mode 100755 mcs/mbas/Test/tests/ConstructorJ.vb create mode 100755 mcs/mbas/Test/tests/EventM.vb create mode 100755 mcs/mbas/Test/tests/EventN.vb create mode 100755 mcs/mbas/Test/tests/ExitStatementA.exe create mode 100644 mcs/mbas/Test/tests/ExitStatementA.vb.log create mode 100644 mcs/mbas/Test/tests/GotoStatementA.vb.log create mode 100755 mcs/mbas/Test/tests/InterfaceQ.vb create mode 100755 mcs/mbas/Test/tests/InvocationStatementA.exe create mode 100755 mcs/mbas/Test/tests/LikeOperatorB.vb create mode 100755 mcs/mbas/Test/tests/LikeOperatorC.vb create mode 100755 mcs/mbas/Test/tests/LoopStatementsA.exe create mode 100755 mcs/mbas/Test/tests/LoopStatementsB.exe create mode 100755 mcs/mbas/Test/tests/LoopStatementsC.exe create mode 100755 mcs/mbas/Test/tests/LoopStatementsD.exe create mode 100644 mcs/mbas/Test/tests/LoopStatementsE.vb.log create mode 100755 mcs/mbas/Test/tests/LoopStatementsF.exe create mode 100755 mcs/mbas/Test/tests/LoopStatementsG.exe create mode 100644 mcs/mbas/Test/tests/LoopStatementsG.vb.log create mode 100755 mcs/mbas/Test/tests/MethodDeclarationA.vb create mode 100755 mcs/mbas/Test/tests/MethodDeclarationB.vb create mode 100755 mcs/mbas/Test/tests/MethodDeclarationC.vb create mode 100755 mcs/mbas/Test/tests/MethodDeclarationD.vb create mode 100755 mcs/mbas/Test/tests/MethodDeclarationE.vb create mode 100755 mcs/mbas/Test/tests/MethodDeclarationF.vb create mode 100755 mcs/mbas/Test/tests/PropertyE.vb create mode 100755 mcs/mbas/Test/tests/ReturnStatementA.exe create mode 100755 mcs/mbas/Test/tests/StopStatementA.exe create mode 100644 mcs/mbas/Test/tests/StopStatementA.vb.log create mode 100644 mcs/mbas/Test/tests/TestResults.log create mode 100755 mcs/mbas/Test/tests/VariablesH.vb create mode 100755 mcs/mbas/Test/tests/VariablesI.vb create mode 100755 mcs/mbas/Test/tests/VariablesJ.vb create mode 100755 mcs/mbas/Test/tests/VariablesK.vb create mode 100755 mcs/mbas/Test/tests/VariablesL.vb create mode 100755 mcs/mbas/Test/tests/VariablesM.vb create mode 100755 mcs/mbas/Test/tests/WithStatementA.exe create mode 100755 mcs/mbas/Test/tests/WithStatementB.exe create mode 100644 mcs/mbas/Test/tests/WithStatementB.vb.log create mode 100644 mcs/mbas/Test/tests/WithStatementC.vb.log create mode 100644 mcs/mbas/Test/tests/test.vb create mode 100644 mcs/mbas/Test/tests/test1.vb diff --git a/mcs/mbas/Test/ChangeLog b/mcs/mbas/Test/ChangeLog index 28dc85c5bfa..aab075b76cb 100644 --- a/mcs/mbas/Test/ChangeLog +++ b/mcs/mbas/Test/ChangeLog @@ -1,3 +1,6 @@ +2005-03-18 Manjula GHM + Sudharsan V + * Test cases for Type members and Like operator 2005-02-09 Raja R Harinath * Makefile (SUBDIRS): Add 'rerrors'. diff --git a/mcs/mbas/Test/rerrors/LikeOperator2.vb b/mcs/mbas/Test/rerrors/LikeOperator2.vb new file mode 100755 index 00000000000..4b10e4a66bb --- /dev/null +++ b/mcs/mbas/Test/rerrors/LikeOperator2.vb @@ -0,0 +1,20 @@ +'Author: +' V. Sudharsan (vsudharsan@novell.com) +' +' (C) 2005 Novell, Inc. + +Option Compare text +Imports System +Imports Nunit.Framework + + _ +Public Class LikeOperator2 + _ + 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 diff --git a/mcs/mbas/Test/rerrors/LikeOperator3.vb b/mcs/mbas/Test/rerrors/LikeOperator3.vb new file mode 100755 index 00000000000..21235c4806d --- /dev/null +++ b/mcs/mbas/Test/rerrors/LikeOperator3.vb @@ -0,0 +1,20 @@ +'Author: +' V. Sudharsan (vsudharsan@novell.com) +' +' (C) 2005 Novell, Inc. + +'Option Compare text +Imports System +Imports Nunit.Framework + + _ +Public Class LikeOperator2 + _ + 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 diff --git a/mcs/mbas/Test/rerrors/Test/Variables1.vb b/mcs/mbas/Test/rerrors/Test/Variables1.vb new file mode 100755 index 00000000000..abac324ad56 --- /dev/null +++ b/mcs/mbas/Test/rerrors/Test/Variables1.vb @@ -0,0 +1,17 @@ +'Author: +' V. Sudharsan (vsudharsan@novell.com) +' +' (C) 2005 Novell, Inc. + +Imports System +Imports Nunit.Framework + +_ +Public Class VariablesI + _ + Readonly Shared Public i as integer = "Hello" + Public Sub TestForException() + if i <> 1 + End if + End Sub +End Class diff --git a/mcs/mbas/Test/rerrors/Test/Variables2.vb b/mcs/mbas/Test/rerrors/Test/Variables2.vb new file mode 100755 index 00000000000..82fb68cac38 --- /dev/null +++ b/mcs/mbas/Test/rerrors/Test/Variables2.vb @@ -0,0 +1,16 @@ +'Author: +' V. Sudharsan (vsudharsan@novell.com) +' +' (C) 2005 Novell, Inc. + +Imports System +Imports Nunit.Framework + +_ +Public Class Variables2 + _ + Public Sub TestForException() + dim a as string = "hello" + dim i(1,a) as A + End Sub +End Class diff --git a/mcs/mbas/Test/tests/AssignmentStatementsA.exe b/mcs/mbas/Test/tests/AssignmentStatementsA.exe new file mode 100755 index 0000000000000000000000000000000000000000..c95893fc319caffddca2d3beab263ba49b636f3c GIT binary patch literal 3584 zcmeHIO>Epm6n?YWAIHgBaaV~p(vmnVAXBKxU+E7hY&HpLP(uov2B<*oW;0EVy!OiW zR%sDXai~DzK#%mofeT0+DpaWz9N>ZwNWH-Ui9;`3P>%?S3*now*9~pd1Btk_&pYqu zo98$0y_xYYp7@Bmh$xM*xk+>#Qcy+md$S9e)`q{*=xX+9 zsAqdRIpg_r8+@^DyVMLCp3k|p<~Y=e6xA)#e)3_WTNxq-9d=gO|0fNlOf0SLEsW~) z1T_5gqM9u}(}OI0SginQspkjP>|lf~Bv|?K$AWq)CQg;wlQVJP)C7#YFD2f4vc^w2 zqM>2kM7^q>HN|PhTL9HPxqnaQOq>CAAd2xz5+mo2Flr5$-M1(A1Bg-#L?I^bhuW)1 zk&i?n-L0qpW`|`(Zzt~A53vL*Wc19S)CNpAbe8-saU1Sc^^A$rr6wK7r#egSRjRcY zs!Z-)bOg_iS!34Z#Q3<}#0<3{D@d&T4$&3JGeWP0zU{6D!lj7Ty^0Q(kJqS$zBs_j zRmWR}{1rBCDwXGtFU&%A2qD;fIz{M0Lco&if^hOW2uuuN6U{TBEU3^9ALSd`Wu(i)&TdkuCs z2~-EyXb?Rq&pgTxp zAX0k25KV||1mRdESdmPLfywLW*sHX(`X+CLR67@hyh&Cg^n9AzXz*5OdoC^74c`mA z)1kFu2kp93tp|34qK#WV*W%kdSTkO;WjoxjasRB{-~m1Fd(By|z3Om^gnU_`Q7oFR zhkV&?^2ifLgoq_Xu)5F1sx!?Nz1(&~I3D3ni~B*GxD}&!uRPDgsKk}J)8@3`h7;p) z(J}{2E(f8&`8xNLwBoi*2Z6orHn|(tLL?=WV49v?^w!!ApQ3H2Exy62DZY82`7(B} zhA~D4cGrLw;IV0)@J%ER9s;d_*D>&7f}I9p<0f!g+Y)Ddm*Pz9Qk==1#VH)5r_h@N z;NvukXL3ue`*#*Q>HX8Y6z9M$#W}dMIO1G&8N`%p=U-nLoV@u#+F(pe6Vvj_mFG^r ztN*MXhLzW{Mi)~Q1)l;DY%tNLNAqsu9WZ{X1zH@(MllU tNc6*J*FO37o8M+X|MJgc`x@WBCzgLe_dy4Y=>Ib{dLPvKpv1d6@DJ|^d?5e; literal 0 HcmV?d00001 diff --git a/mcs/mbas/Test/tests/AssignmentStatementsB.exe b/mcs/mbas/Test/tests/AssignmentStatementsB.exe new file mode 100755 index 0000000000000000000000000000000000000000..266b4635ab6de1b2fff72853d2aeabbb176d050c GIT binary patch literal 3072 zcmeHIPiP!f82`;?ce9yf$AmzVLTM&MWgBs6(nPF(lieh((rv2SHYEt{WcQhj%+9QD zX3M4rEh3@^A%Y^P7jM1kA<)u`UOX1O=tZGD#G82XZ2Y}9yPH%(g%AXx-{!sV`+nay z-@o@}Qd-$W7l0(!&JJ*!T+yuFAHLn7*&4lLVXNov*lpwN-LVVnZfMtKuqK_FU2%Lr zi0oBi%Z6{ezCFKGwrfFEb3&2?;fyVNwLOa`iSVpgr1~P4g+-@xm&Bl5n zu3JH>eoa@o6IZ1A0{ZpeE^n#Y28`IiQcK>K%>sS<8XgYz+YgpsrG945Bl$=)BkEgh zQ}?ENZPnd&vw^F5DZHT4s$sU}W41kFPPj9>2QB}u?L5(M^Z5?V+OfFO;z~P5S@p9& zT`2}~p(#p^>!TJ{0x3kk>Un5Kiu+crZI1yz@}LaL)YD4;FX>n!$JFM;;E61@nV8DJ zkSWRPIo4zL4)w_tm27(W=Pffm{CqE+}bpdvt9wKbfCCIW?t+pF*A7<`l-?0XE5#N-jsz_18k> z@+pV&tHLgpQD;x*iH#S$V3quP>U_g6e){4o^W<%!yKy?10ITW{G5tz2oWAPHrZBY> zwwc`4GOq?q3~){3MaqGeHz=F<7{`cwp^D> z?N6-@;V-^22CGx(0IINXgz{00;eD>-_zX{C5?|vfYBwpJqR+FK!*|TNh~y3YgH%4% z$A`Qwid1ezJh%=v$l5jO*Ti#Iv9$V@s6;4lgpsHrUx@;Vl3S5M7`z$fFS%jE@d{4p zR#04b6&?nLW&J!tq<%!Q%5=GTNDl_Q7MQwR%qp%hdbo_J}0b6zwB zYU)G5kFx`0&p^QAFMtgc$2s3J&t(!%QwsTWu?Bus=;b4#Pno;J#V8$Yk%-F}f+w^a zW9krMoIH4pl*0~otC>D{q~2vtN3uV5H@tUVd+^TWW)7YwH3@zXI+30^cqE>!4I^{w z`Wu&yOyB<~38Tx(eEag1cL#nlpG(??VG**r6rM>TVOdrhT^Y+t5XmZAHp|bgk?u~W v2=l5mkG{8ZZzgx{tH(CpzB%#QANn17v>na_?D&5|;>6*EdlcpWHG#hY5Aiw7 literal 0 HcmV?d00001 diff --git a/mcs/mbas/Test/tests/AssignmentStatementsC.vb.log b/mcs/mbas/Test/tests/AssignmentStatementsC.vb.log new file mode 100644 index 00000000000..38f955885dd --- /dev/null +++ b/mcs/mbas/Test/tests/AssignmentStatementsC.vb.log @@ -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 diff --git a/mcs/mbas/Test/tests/AssignmentStatementsD.exe b/mcs/mbas/Test/tests/AssignmentStatementsD.exe new file mode 100755 index 0000000000000000000000000000000000000000..295c675519daa36797161c852b557b79ca298695 GIT binary patch literal 2560 zcmeHHO=}ZT6g`usX*%lAD3lgNU#&tE9NX%`FEmYB{HzsI6-Cfw@{FU&OqiK!6j4DC zb>%|PAK*$51O>(a(2XFtaM2&&(uKQv-kXUQ2`*f?P;chld(XM=a~G;q{N;o9k4#m;Gqu#6Q(2H^8u1U)sh6kolD6Thn|04uu&eoYPtAiHczjria)Y)7&k5wBH=Gp6sFs9&K(}GnT@jsr+KYuhM=ZX18MWz{x{Xv>o9##({JS{T+gq9GH@-qaMmv zoEnPzIQlBdG6NGiw%0mp6D1s@e^WCLsg*p}THneTzyeV(*BbaNRN&swkVaoL8pL~S zCGLk}bJz$A!dL z(uq*M9!9bW+ll-DhrDR}1m^s>u$Xb3zz_Y4k$uVy=PQk3C3GFc!MW=#*?odt@|!KU zA%n6EuDXs4)rwNHl`KTb_nb9!+Vk?VVy3`4i>HKiAoqY9Iu6Ha08j9;5?$bH?z zwroqx$uNTcKv>#wi~(mR5%TAv4t_O|)DZ-=ukAJ309P3IIKyUS8g2HLgu}RG2MN}A zjJnF&tCjU+rLJC&fRTN31m^mM)!@)eh2iFqAd9ImYXfd&9lA zTe`_C2>t=Zfx|a_^}&}Rf@A2bPwvq@j=qRKh);qDgZew?-gFV-9t7=+Uvj?h`~AM} zeCIp&oSUp(xPd+ZagMz`;5Mz2g4T~#I}B$YzmvgN19$VcjWc)i>#y6sXnAhkt2BjG zaU3@gRVlnJN7#-ywN@5Qwy_GawPHJH`j+cSY1SGIbSj1WR&C$P1K;yd4Ej8;gu?%&OvGlmbb5ATbcZ%RJ2KaY z5jH?Dd|feP_jF+F19of7Vq|U*?=ns_JpQ5L(uo=NpO~TF?cN-__n9t`J@FXxJ=SVz ztg_QH+-utBIj66N3n!)zJuEYQIGNg?KNilv^mp@TQ7peyH1rb;@5JSKbKX3NJ5ghM7M>oyKu2Q@5!T_(=1gQY-mZYrQ`f z-6iU01%uHa@f3a$D*R41tGVAa8p{5Jr->hEG>TubNR-Q~%u)QVV*^k##?eFudAyAr zp2R2g=E*;SXK(`X9j5<9J||N9dQV*tit0m2lB2_oU`li0wQtx}tX1ETR)F%hAIK(5 zD{wumIKkoqR&C33efPD%+_3$vN~2iuZA-;uU3%-=E!jK6TymQ&yCJ=@^e)?$^s(%@ z&CW9VSoLJZM#T`GHkMq+sst#tE!hfe*TG5Ox9d(*Izc(8us=F}3D2#%wXKGHzIWJ^ zZHaa12dHp6dOxRSu;SEY8~TlheG)!DHXPLXge7eNLG5aLh1SERC@y$EJu)rkd1zo8 zCUZ-?3yQHgL!w4zfuo8oU7;RT!nGxOO=h}`I6Cj&SbM(L+Wa#SFj8M%ePv_(=UAI~^4nW-~Vi7rZ3 zqOSZIE?l@Mw77O@cjCHB5m%xMSM}aEGi}6BaO0wQnfLBJ=ia&RypP$%SBL{h(Ae1l zHp#P<)V%-HrF7=RyA0OTTZK(+W~(sw!1Tn5>$KcjTQq96?f9ZDg}Z7C(-zZJL$sZy z)Q5%!Pll~;Re%{ShR(vda-hCr67*&m9Tzg%QO?u#`^-Y>f7@n zR5>6ofNB``btT|%-^Bi8RsgA|l_pp(PgM>JE-Syu4zE?k9y{hig={x8HkYrn2 z1fJ0Y+xG(RTxgwif_9}*tOSmYsJwFvE!n$+HRUy1PDA=->0fqi z8L(Te95zD^RD-9Qt#}Shd9GavG2O9cD|9>;2ZF$*HeF&thbn=WO#XO6rhW&82eqv4$XO>(TXi7M8zHz{otkdgkQt#K+qi zB#oSz$(WhP`{%Fc-(~lt(U&pJL<$MhG?T(GO!Z+W`w8*EoPYWG#l4w_7lPpZ+PmsE X_h0_i3W(_6mDu*LCip+EKUslqQ60`S literal 0 HcmV?d00001 diff --git a/mcs/mbas/Test/tests/AssignmentStatementsH.exe b/mcs/mbas/Test/tests/AssignmentStatementsH.exe new file mode 100755 index 0000000000000000000000000000000000000000..1d7b5c1a05bc561f93b182e2415b43a810791f3f GIT binary patch literal 2560 zcmeHHO>0wG7=CU{+ca%sqG((EI>m8Nk&CUJ(HTY4XikCoM0BU%O8gJH5d2ywxN)Pq0XITdZk(n2`ka$w3=%|KxDemu{dk`De7xt)IVqmJ zjuils)a7O10lk*Iv7a`Vn9gi^l)=5;7b6d>sTU*Dzk89Wt8h*^HQ_oz5XPb+g_;k9 z7l=cpvZ#esX%7sfe`qd!d=i+l5?DO(OQE&f5;9hw)eZ3bzX(QJjpQ3~qEWY|bp1xo z(301p&jn=7_k(XjlLLkXP-?~gM0hv6zi==yjAJ*+b7oR1n)m}C3OQ;Phr+7lz%H&=9G=! z?cAt6YLD+48)F{mLY;Pry7>Zdocll3aXD6AFc&dImIYka+)Noa8IS9@;D;6Z=fu3x z*nD{A=pp)+a2e}xGJ)O}K~K)S0ZuX3M!yHmY1JHXt660?(#TQAaex=`FUDGK7;8>q zWpR(Fi{mZ)Cv@V<(2zmz3|fna*h1V3&E{~Hof&2T|x-AL$lwe(P1 z+#og@j>cRo->aZh`9r!f%8OAfYp~roR496`3Zw9BY|nbpyyF*~$aB$X=k#J-b{=3K z3~P1Im#Qq)InR|5hgHjQE#^c_F1WHDdtrcyDDvilnheN0+>=3c1pA6%b>5fzJEv{A zATceY80Jl|{*?|Ya8ZS1U*?EMF@|02_D}d3y8)*Nk6D2UMErOh!?(oI0b;TdtwWV< zoJUqLADR(=(<}VRnE~et-Y`X`&KU|m7Ihz22w186=TFTJk1t(IA!%hZsZ=I)_rU3k zxqs8YCWU2X^yTg8NoF#sRRf&z?9I!WJGZZv9?!h}vHwZQ)ysUBZ>$5N@gJ4g`Hh|H K`*A+21MdM>hrx~j literal 0 HcmV?d00001 diff --git a/mcs/mbas/Test/tests/AssignmentStatementsI.exe b/mcs/mbas/Test/tests/AssignmentStatementsI.exe new file mode 100755 index 0000000000000000000000000000000000000000..40e2b37f714f93362bc46a4c94fe70c435a3c8a3 GIT binary patch literal 2560 zcmeHHO>0wG7=CU{+ca%sQo**Uol{isi;J!Ga|TUgYgNotNL3I)Z*GqD>dn3J+*@rc z%(xKIl`}A_`47X)La;L{mu>_%f-Z#q0GBe``ka$Qg9H&5E~Ibremu{6KHl@@oD?tq zhIIgv)YVmBnO;lY*w350OlN-hFN4S3&qtQ6GtWn6uX&NEsc=p?RpB~85XPb`g_;k9 z7l_H3lBk9iY4`P|w>6eNI|ZDv5?H!$xX|2f1sSWy>IC@xAcB!rBl&uqsMoD2UB8hl zwB)tua{*cN{pcIe3P)h>7>;!kIH?ZPZO< zL;zQ8CH>HC)Q~5w$Fwd?NV-7xRkFH0EAlNf^P&zeHoQhZGuG#6FPD#pYHC3i9WOvN zaziDhUGaT1SE`>|mpwZIykcN6rt8%BTgq@^2e(e|+O)R=hqy68PSMoTDo5M1v9}+? zLtQ&qTl$Ueao<4i8(m;(;Kv?1#d>QIZ&i9}*TiO>;Qgnrr*5I@Da=}h(&>U_PFerm zZjIWb_V~WBG3J2|)M!_zTYmx0a{s3~F2%|V<|2m3vVePiK^yTewi9_qY|K9M`bx{3!I>IuEBmM&_O z8^EyPXw0?py)tIX*QFbyv>3&*3fqlCg`(%GFbc26_IWRwcl?4Ac`oYhoL#KR_5vE&doqYl;iqC)nfK+<_Gw!# zNX*J8hItdLf4ze;TvQ<0mpS55jA0+Uy&nf~5O9j{m=%~n#E-`@d`lc1ASN5pI#k)h zd1M9ip&4~*?$;+C-TD8o7k}@0t(RGo@2mr&{vVat`<NNvY!d8*`3+U4rax~ zP#Ntk?QM;fiNwmr#D-3L3QGzLV_}2$zM1`KRuUQuA*k|Tbtf$N@C@rZxqA}J;>AgG&|Gy!bru2pcd zK@A4UoI^*`XabqLxYAa zV6v_Z7`))1mXLwVwZM4Nyq;9#N&0W&!K6N^&rDBEaV2O)iTrzNBaeXz+R+wc({uCo zW|<&fkd|U?&BPbNgN%~}C&NM77JW4sSz23OU>+EyDNErHI;sNoq;dK$jkRjy+h@#= zRzo-WA@XcjrI&k9q8KCAN|_1{1qYtQVv>E6tQT4I5bpr1-Q*+aLwFaz8PCG2J?-%W zJY!(;X%_MstY+?8Sr6vJvS$^cXFbQoVkK*pyu4#$-m!CeM(Kj-r76R*z49C`tvI>u zf_3E&aows|kY4~gM=%c)bD&$SVY-zXo^HT14fuQmzTg+#BA~Rt-MM=^K6CIaEEFX| u{}xJ1o6?TuSBVej4nL({o__uL``7&+)oq@*7ykPRO`Le-{{jEN3H${8UzTkE literal 0 HcmV?d00001 diff --git a/mcs/mbas/Test/tests/ConditionalStatementsB.exe b/mcs/mbas/Test/tests/ConditionalStatementsB.exe new file mode 100755 index 0000000000000000000000000000000000000000..a7bef37fcdbf20ae3431c6c070d29669c9e205cf GIT binary patch literal 2560 zcmeHH-%Aux6#iz_bz5y&3D%V)uUQa5i&_sxzqZxI49#G)D1uyfuR5_iv&~Lr65&%6 z6!=(gQT+))5_ZmI+2lNop`}UogS(7k>gh1#p=f`)>opa7TbLUQ6UO^LpW^%m_ ztWpbQeYv?23~cU9Dj>FQNs0K(I-K$JqDMR;jWg!&HSC+nCk4!8TwQjG zVGmilWzG7;gmmYq{)+1RlPbIJ&8!N*k3PDqOOSYA@Kkav;e+T@^qqX!0ku%Tc41a3DIk-8H8OR(tJUA%tvRak$ExGS5(9fP1 z#5O(Gvgd0w@tD3(;+r;6<#v?Vxw11$y+X`C1bw5^V-GJ#Gs zFXI=IEK>QtjG81FL-LPd*_y@V>@{8VVBW5Ix`Is6b6n&Xi@NGrj*Vf*E?Hs~%BEM~ z3T=C}9F9*or5j~^@;C8}UexeUJMw)PhRL6A01Ai5#0BY!;4eFh`n06a-r+U=LgNo zFcQ2-M3 z5cQ-tJ$Mj2dGerGJS&JGco97M2YA$*P=7PoXpt&-@uH8skKgajynQqCGI8<_Isl}p z3k$$Jy_USOzc+JC=T^VS;c55V;d$%u+u^D6UL+c!s)gmcaLYlUVo{MIoDPH+h<%eK zQCC&ztXN^MOG+Ot0*9>>uAbOYXn*Y^a@H~{(`u?s3I zuiT`EJZZg#SF>31Kw&ZdlXzi$kKq3Ak{7M;Wa2eC!dRbYX*n~d!eUcSl)V7;$W@_~ zPSy9(uGBiWZhPG@@PUEFm@cF7-;|-$2tRFa?AwyY8h)6dx8Gi6XIAa%Ck%-jnGtqo zkMLFOh%;qh*|;!UC><(Trt8)_T-xevbw;;u+h&^YM1%elb?r6a6pOsmaVZYHpcd&R zn_1G=+_4hwG2Wu%g0Cv{uZcOKSbN~u_&)l!u#9yeokDk;peOfzOt{U&n$xN=@Hpu* z0~@{6QS9Zggp4zoqt)`zSaTk$2d{`axy!;Qp%XU-1`PUaP(R*a193Mr+lzC^VI^iT zh+#5ounFlo{3N%Dbw@Y*S_xfUOBc1x^3Q(-d%@)m3@BY)bW+0 zA8(~$<+9l)d(X`FzPERFB9$8)Obg4(ah9!)E-Q)+F`mG2ok|qF|thLB1KMek{@T8(gHNuA$Eb zbeX>&KA~m~=o7$X60hp=z}i(OelKYYlYiAka?U(JQa71_04_SA z^p%^`kf*HI@M=~f4-{7NKZ%#ObqVhOj=X4w(}~yY6k~m!)p21|g<}mlQSt)RB3Fe{ zIu+kXD^v5_y6mk3z|#n^YiEjhz<5Z<1z(lvUy-vzvE|sA@gwvtFpYIAokC|zpr`h|O}Nd(TGK;w;BiuA z1~$4mhB3ls2^nXwK&$c4SaTk$3opsqxy!;Qp(k$j^%?fXuwJ~zcJfYWwHq_YVLj&1 zj{z#1u@mV9{DiyYx}w`X%?X`dql2TR^K3w-VT|KFRLzkmMx z-GvLA=mL=DXtjU`v|0*A@2xgCojd$6hkHF+BM+=ITO&(9dXZ>^suq^(!Yv1ZibX|= za5WHKAWklpL|s*-bMT=3X%hPTS>TM7!nGf!ik-K;K+f84WdJ_^h@hv3kwV)~we!}L z&fmx-YVun2xq!TR{`RDB3wc7t)bgVb9!hF%XgA2GqBOiF^Oq5TSz~H4Qeg7jW*}8@_0nl&0Q9@ zg`T)RFksMM2KD0!J|pgdW_xiNISgVALl`0R2|h=91OJhm#5$v2``Qyax)xpX4%dfa z!%>+w^1TWcD?dp$MrkdIWgU(is}KvG8>&cMj-6#MS}psnyoW6U;P*@!(AXrk(Auk4rNGINkY9L?dI1yx=3 z<+uMc@5rXal8j=Qj{@-KStS9<8;__3Jc9!$#6(wVL;OrOK#jOTq^KpW&&oRFX3;c^ z%N-I`GLsw?teOb5Bob@aC17Rmudgf*PQJL2hLy`^?@nL5*89x1^xz}(ZhKF literal 0 HcmV?d00001 diff --git a/mcs/mbas/Test/tests/ConditionalStatementsH.exe b/mcs/mbas/Test/tests/ConditionalStatementsH.exe new file mode 100755 index 0000000000000000000000000000000000000000..7b9a1dc1a22d5ab7196bf25acb585c0c0017f031 GIT binary patch literal 2560 zcmeHH&u+L`Zt-`jcn z=I!j(u6}}D0P-ALTfk$YSjEmSo;DdS&3seBqmd`GkDUuoX4h^7iR#9t9XC44Z$yzv zRa2{YJyJoWmRIYlV_MqVv&TJ@rM|QRTyS!@|K5q};Au}$a&|iffY)GiqbNgaTGGe@CbQuk9Fku{f%L;+g4UopIpsQ*hTuXpPlXcl8IM( zy4DCHbQ0ghT6?W9#2{0D-%@sW7WkQtL!VF({%_iJZjO(3kBraf(cyzh#wOju?%~O| z50DPexEb!vaN1&dhQS%vEl&&Xb<6t%r`>XiIO&#$2~%#FGYU*0(U_^bg*k50o#QEV z6TW5l?h!_+^>?d|?LhyX-d^w)yv5_kj>&Qiq09Lh$H9BRHD>uy{CXM(Q9GfFH<|O6 zXqW5wl>WT<)zCDF-;wjQ_TdM-K|TUe$8ZxR?8gSC zFiYii97TQ;f3t_=QqhOw{eWZ_la>#(amahIW{+POG_l%zU;8QQ8%e4=@ch)os0Ds( z5_2>4t^~EeYa3m?^9|mT>2!lo$8{aw4t$;9Ol&&mqg1zboUO)^iTp;2 zm7cG=X<#A|T7h_tu%0$pgO1YV9Nwv!)_SN<{X^W-J&iS;q_7_o;MbuMa`;H05W!fy zLyYkO0xE6lT{6R26GL{?qqc&cRb-_`i^>Aeib50XHb*f_ R2UPz*l#?IHEBoJd;7fgm6g>`Uni>eL%14o^X3B>sAF?PEsZaz_N*}bM6p;b~Awl8{!Qglz+l7<` zbcKKw3$`rY_HAH+^w4`-*dQUjCt%MHV9CCmnK)3P!h!`0;L3B)J!d@Ecdo~tKK}qK z0Hiq<7lCI)Z3W}M?G`wl%m0(Z)2>&8&#dFG24}B$k!Xaf7MAP6EeC;$MMa8mE)ZTI zj?9!qT~(#CdbPbJNquqxIBun|aCU#O{j_(;Su3p!!0VFLxQL zfJ;s&edQ)K6e#O^mL?{pTqJy#EpF`=g(WKsqD9UpsM!g|dOyqC#c>r*H05;J3s8?- z6-wz;eIM;it$pjVFAM^27+8!68O?vB4Wx$nXnRL5n|_WDCh5uBc4lQ~-X2>=p)`|T}UF17js_G+UXJ=GTyD@qOU5% z=j6Jo%|}m99wD}kX{@8^6uR01k(&8FxWpVEedM&Jht`0(Zex=(YOhReP!N}O^I0<#V{WZ;FciabGV2h5I`BcK@4#X9+evP2AQIl zM4ugXs7;`06unZSN@W=P=qs2rIciBR)4CM`R`&0k7tU-Pd3P@jE0@haIehVU&s+OI z2U5BI{fa5g#_HbLP3`vo#-F4EqV;b|>7UDQ`{g?D E5u~8Opa1{> literal 0 HcmV?d00001 diff --git a/mcs/mbas/Test/tests/ConditionalStatementsJ.exe b/mcs/mbas/Test/tests/ConditionalStatementsJ.exe new file mode 100755 index 0000000000000000000000000000000000000000..824f92f96d72bf6d017c6847060bb24e01892de8 GIT binary patch literal 2560 zcmeHHL2naR5dPNKj!Y`#25v>+NQwa(J%ORyfq^aZp5<&ud{V?0E_gQZ@ z)Zx&km#XclhaS0b<;0;;jPI+S&p(X+>&Izg%rFT(167#!ur9XEwcy4`)_yMXBmp)3MF23Y$q{GS$+` zt|cl;)VY<0>YBC=_U`rH9;W_u5xD5(@b#6G_0iiNqwMYWiU6N~MA4Jwq&Dz#gSv&1 z`kmaMCNCoQ0xItL*AAhJ0aFTC8Tvb#8n9=_z{|;s0!rJqw2437hJ#G^GvbOA&X~LF zux=tJ3b+wi9h-1iLyffT*`An?be-mZ$<{j+Roiy5rUu~Z&ulA2j9?Rn-UraDj_5I@Rv8sQn zK;ncnwz|(hAypNt`%dkrwcOS#&az;CmJ{Wt{9^u{BaGA=7wVq7&EWgoo(txJ`S*_> zm*Xg)NBxBB(3ik9W_cujBePM`N$KJ}=Da1`r3QYae@y&(Y+AIx5p!~J==`OnbF?F2 z8t;5Qhw%|XOU}(dkGS!WkrGapa31bEUxv)b1lK&y(zo=B*q|1<=d`ren7EHGn z#o9Ksy&Z)*#Yfh3my%3(v>l$tf=R+=hQ)rUds$=>A=;66&A5>@S%Xfp^a4&VoAz3) z&-_O`(0z?non~-93?OVkBjyT`K_P*0_6u5z&k>R7kna&0YE2unqXD@^^c^E7HQHq6 z@BwuTYc5A;n9H?pmx5RN`OdY=2j(Atmxos_l^&eE{?)`^{)YwR%G1+%<#}ZevX>vr pl}dO2E}XHO^Gm;~b^qCeM@L8Pe`8;h4yeI@S5E$X-pFg$f#-!AzghqQ literal 0 HcmV?d00001 diff --git a/mcs/mbas/Test/tests/ConstantC.vb b/mcs/mbas/Test/tests/ConstantC.vb new file mode 100755 index 00000000000..60fb1560414 --- /dev/null +++ b/mcs/mbas/Test/tests/ConstantC.vb @@ -0,0 +1,19 @@ +'Author: +' V. Sudharsan (vsudharsan@novell.com) +' +' (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 + diff --git a/mcs/mbas/Test/tests/ConstructorD.vb b/mcs/mbas/Test/tests/ConstructorD.vb new file mode 100755 index 00000000000..0eb4da086b1 --- /dev/null +++ b/mcs/mbas/Test/tests/ConstructorD.vb @@ -0,0 +1,26 @@ +'Author: +' V. Sudharsan (vsudharsan@novell.com) +' +' (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 + diff --git a/mcs/mbas/Test/tests/ConstructorE.vb b/mcs/mbas/Test/tests/ConstructorE.vb new file mode 100755 index 00000000000..8c2e8ab4a0f --- /dev/null +++ b/mcs/mbas/Test/tests/ConstructorE.vb @@ -0,0 +1,23 @@ +'Author: +' V. Sudharsan (vsudharsan@novell.com) +' +' (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 + diff --git a/mcs/mbas/Test/tests/ConstructorF.vb b/mcs/mbas/Test/tests/ConstructorF.vb new file mode 100755 index 00000000000..88639f66989 --- /dev/null +++ b/mcs/mbas/Test/tests/ConstructorF.vb @@ -0,0 +1,29 @@ +'Author: +' V. Sudharsan (vsudharsan@novell.com) +' +' (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 + diff --git a/mcs/mbas/Test/tests/ConstructorG.vb b/mcs/mbas/Test/tests/ConstructorG.vb new file mode 100755 index 00000000000..70946f0618e --- /dev/null +++ b/mcs/mbas/Test/tests/ConstructorG.vb @@ -0,0 +1,32 @@ +'Author: +' V. Sudharsan (vsudharsan@novell.com) +' +' (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 + diff --git a/mcs/mbas/Test/tests/ConstructorH.vb b/mcs/mbas/Test/tests/ConstructorH.vb new file mode 100755 index 00000000000..63882331879 --- /dev/null +++ b/mcs/mbas/Test/tests/ConstructorH.vb @@ -0,0 +1,23 @@ +'Author: +' V. Sudharsan (vsudharsan@novell.com) +' +' (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 + diff --git a/mcs/mbas/Test/tests/ConstructorI.vb b/mcs/mbas/Test/tests/ConstructorI.vb new file mode 100755 index 00000000000..deacb9dafb0 --- /dev/null +++ b/mcs/mbas/Test/tests/ConstructorI.vb @@ -0,0 +1,32 @@ +'Author: +' V. Sudharsan (vsudharsan@novell.com) +' +' (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 + diff --git a/mcs/mbas/Test/tests/ConstructorJ.vb b/mcs/mbas/Test/tests/ConstructorJ.vb new file mode 100755 index 00000000000..2ebb42c661e --- /dev/null +++ b/mcs/mbas/Test/tests/ConstructorJ.vb @@ -0,0 +1,29 @@ +'Author: +' V. Sudharsan (vsudharsan@novell.com) +' +' (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 + diff --git a/mcs/mbas/Test/tests/EventM.vb b/mcs/mbas/Test/tests/EventM.vb new file mode 100755 index 00000000000..c649da5b013 --- /dev/null +++ b/mcs/mbas/Test/tests/EventM.vb @@ -0,0 +1,26 @@ +'Author: +' V. Sudharsan (vsudharsan@novell.com) +' +' (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 diff --git a/mcs/mbas/Test/tests/EventN.vb b/mcs/mbas/Test/tests/EventN.vb new file mode 100755 index 00000000000..fe12ea641ea --- /dev/null +++ b/mcs/mbas/Test/tests/EventN.vb @@ -0,0 +1,31 @@ +'Author: +' V. Sudharsan (vsudharsan@novell.com) +' +' (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 diff --git a/mcs/mbas/Test/tests/ExitStatementA.exe b/mcs/mbas/Test/tests/ExitStatementA.exe new file mode 100755 index 0000000000000000000000000000000000000000..0bf48499928aae686d5ac6fa28bdea0f6350a1e2 GIT binary patch literal 2048 zcmeHGK}-`t6n$Gtg<_jFB!GtC5R?#NHh@ix(U@8xiUA?1h#^F2%UD;pyUliy!hsME zMs6PT?#+W24<-`NT)BECo;-N;;7NQlyA?2m#0wXF?fn1W`+sKt?95Kiy+jj$D97$D zut~3w)%Iw!&UEt3rzAeKZuf2)6WhIa9$7U}_1v;osEAU*aa>;%rSO&#pvR9(|*I1yXuAue>r1XE! zhg9c)E&)u1@u4mYoIEsfw3re=%f6CD@|*j(>C3uL{z^5;oIZfCZ!!%5ESR3O-BQ>? zma?khtJ#k%klWAyCf+@l5}f}VSrLSDp;zoSW3`{d@!-1ajn(C3!E#Wkm0V9sbJ4cZ zSSi@IYJ0jD7-e8E=6S^wKTh;S2KeasVEa(e14(+24YUt6Awkd9(rXl>ouAj03vyBP zg-s5yAl5&?6N~i+b(hpA~F&AGQL@s|TXXqUUXZCd195yo-Mn?1+&8X6U<>*@j z?s1~6;=J!!PPwK^wx~@gZ6=Qt*Hqt0U(R-m^ciyAX7t^d86Tx@fK!awXaubdfu5Sa zDxA`I-v_wL1KF_C7~)9tTJ_K>T+~+Y!$=`d*33!+9hgTuz6q6n-qoeG@0xYsKC=d* zy(-s%qGlpwWv* zmVDR4SiK~xzU4ZMEI;oTn39fv4Ob@J#U)!_{X;ipT|%<7=2v`Jc(~-KF${f+F+PSm zRUZO1+5(3}g~QRB16TWHdJj)n>7dNoDw#_w>20h~A({k?mXE9RcTZ(@Hlo5Xl95;o uuTXc>38R~y8_X>K{PE@8#?z?OM#{WGF7ZxykN!b8ks* zOE%dkh*Dt>`YQUMPrivDYz%yp3Bq2-9w#CQ`nU%{vHs4vH(3T{AQgSkFFD^izwi6b z?|k36=bV*uA0PxE%(lA=++;7LAob(bHr?^5TXB3fcxU>ivV3Ry^aZP}Z?xP-tJ>6! zs^hqxzHaKRO-HvJeQC9#H{F_<9~p@~9Z;{8fMrF+J7elA5FhTe6nv!-ZMKM z@y-AheX`adZz3r=a6aEMZPy5LD9|ioVr+d<0E&I^FAaB}N$8y4lY;IK&jr0er#Ke% z>@9B{cUz^7xl*+pG~0&TGR=I=w$Wws>lSIRJq5fF0Thl00Zrh4QYO_bmyYEoQ`_vr zxl`9fH-1;5EKiVjFgG?ELYzs_la%hX@78jF@QKgGT9WFMcN0)^v?=nF@T?`rgBUTN zZ2o+;e|{KA`nUywZz^{0p_^R8xIsTpelkl!O(rn$(hzMeCbZG!%CRfbnk9)g>AT83 zSL;I#vz)KJC?|c=^GuDWQmOGaS!36!l)j)JdqGe9p|L)#&GV(j2zdW|Fr=kj5^4tr zf?nn@6{L1Z>86%LvGPh$kzd$9vs-idx%}e7{5)$Am2Xi0#9C&q0k5;12gEZKuVp!n zwuo3}avkA6Q^7af#G3FIZFil$sF}AJGbhfJm)LiO;mX;Fib3*8VNaXbNBIVb@d%sP z64Fb%uyq?xc#yHitCggGQtGVKJ5qlw^>@@lN>a-@Nis_mAp=hW(Yr)Ro(aL!KnB0) zBKW;@T1GsOD3P`>Mf|%&Dej6uiD?m;LK`zg&-c)CM1>xjCHGo@Iyl0L>;PRQ3gdc! zw#ms2qlDz@QkcEiqb;f5?$aM}tm0E?`J$&) z+~YU|;Z^W6Z@8#9Ngc-o^%$Pz?=X(?S44Q5VULK|MTKo=%r}c26%vy7%YRyIYaOfW z7fr)M<#O9Io5&lU+d`>hm>ZtuI#@Cdt68;CcD7ujDohox%0Sccj^X7Mx3+1UNB8vR z&5j9+gp#p7hx$BR)E96O^+hzr^R`sS%BJmEMz!rNnYP&=Gh9EPrs-X9Ym)hri7JX_ z!*WCxMCD`c%Z~A?+2&-(@$sr{uUCyrFuH@1QwyS7ejH0bF@rKH+^sq2IK)$;Q9YtWqfs@YYEkigvPDA!N;J$sq0|hK%0Wh$GunVUIy^cY z(N!grCP5||)kC8PqN5X;2+`;PTrD+z-JM)5fA;MU10Q4YH?i!$BD()htK$0oFaNn6 F_!DAuEkghR literal 0 HcmV?d00001 diff --git a/mcs/mbas/Test/tests/LikeOperatorB.vb b/mcs/mbas/Test/tests/LikeOperatorB.vb new file mode 100755 index 00000000000..40250d122f0 --- /dev/null +++ b/mcs/mbas/Test/tests/LikeOperatorB.vb @@ -0,0 +1,17 @@ +'Author: +' V. Sudharsan (vsudharsan@novell.com) +' +' (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 diff --git a/mcs/mbas/Test/tests/LikeOperatorC.vb b/mcs/mbas/Test/tests/LikeOperatorC.vb new file mode 100755 index 00000000000..29d91a4bbfb --- /dev/null +++ b/mcs/mbas/Test/tests/LikeOperatorC.vb @@ -0,0 +1,17 @@ +'Author: +' V. Sudharsan (vsudharsan@novell.com) +' +' (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 diff --git a/mcs/mbas/Test/tests/LoopStatementsA.exe b/mcs/mbas/Test/tests/LoopStatementsA.exe new file mode 100755 index 0000000000000000000000000000000000000000..57f2b85fdacf8fdc07ed1ebc937b7c184423d20d GIT binary patch literal 2560 zcmeHH-Ahwp82_DZ&Uw@|ljf9|udG0Xh93(irX81J#caXJ0ugdJa z&_%cX4_)>lU3uA!(3OyQVbG-)L3ZnU-uIm85D{7s1U@^@$M5-g-{*Pvo-;Z98g2j{ z;&K^SCCy0@@_4aAVSnc*Ki)O0cdbgv^{!j@b0tn7N>{oX*Bl zDk~USE!x~HpL3SJISwQx7oOf3OjLH;hF@xwyZ}A>#K__-NU?2~-8Xmf{sqmFBtIuU z7Z4E7fp(yX0U-vY9Q#P608K{*j&}wa;Hyf>624l6qn5U45&p~@r6?%s2FylH zEpKF;9u#u(oa%)Mk~=}FCMur~Fr}(eVK$g{G)Fhc=JOm)cdr=c_@XwM&gm$WGKQ&X z(QH1C%1ZX!yzQ+nV22EeY*Jp1|0RW8-L$pb)7tCCSK63BOHd9r*0*gm2IV;aC%kPN zvbRI|RW6sk9Yc-eF)6E9qITtFZ>PNH89Y--3oCVG#)bIC3&M86@Ie7zt+VO!E{}FL z+2N&waCoFaEVe1fe^f2-{ve}mleZ(b;J47*zUK<=NrT_3`un+`T_3VDDG@!y3H5qH z5~pq7pGSSszG!Tqzn>?d4n>k{#F589FO50FZPhY!`h1B@ydqzWI5MSTjZWY!k0^kyM4F?DT>bcHBgn((;52dfbI#I>c8ea(Fp21cDOy^zsDuR@q4r?`+}1}T7U zLUoiWVTbX+^H4~jU4ep_LM!10aBmAqKic3~!6D+S@SR_@+5x_zL*n}8b8|?|JhKcdTj8?RAhK{6R6jdutAx*bRqqsC_WEb+<$l*X#ThvhC?*-9N1WBkg zX&)Fa5GP^KuSk{(3u$6XCf3PfxJRBG@`SThwf%olJMibV!Cx+E_v!*K40p?lT&Xx-YU=BryqvD1P6Kg3Ds}{%>FjG NdTXdXDf#bD;5RxQ)vEvi literal 0 HcmV?d00001 diff --git a/mcs/mbas/Test/tests/LoopStatementsB.exe b/mcs/mbas/Test/tests/LoopStatementsB.exe new file mode 100755 index 0000000000000000000000000000000000000000..93e24c84671c9f71c6354a5a068eee257866d479 GIT binary patch literal 2048 zcmeHG%}*0S6#s20r7Y4wNcf0Er=qdJWCi5nN2DnrN~oBWkA#pwyB*5vcBk20w0J-c z#Hc3^Ui9kKg9j6h@yL~<#(44%@M7Y@TYWRT6+#*kFJAPe@8kD-GjHF_yk?i4q6t8h zv{nP&k(ZKI_Gq(B>BPzR3A}0DOTN=)_L6h!md7ftD7pDEGxLrkd{*Gh-Ef%Yu!-3m zD~lpG+S~QhVd-0wz>F5b&f>*P{cB&5(Au>(B z)NkL1Q00JL2F!+WLzf1QHB1~$b}%4*U`dhi^#j=OdDSQUQ#MIC^#Ebtgp@E~)o{5j z%&>Ss54ZWR++0mV>fq3YT-E zXxpe)3eGLt9!&zf6lfHai%I-9sr7N)%HL9oRk#vtnOus)!nM`gvqp4E_?{at87&b;PjEtzmG^0ZP8|lCn zuuN5UWt{U}%PDzs38R`t$<61mL-CM|Gqxy@e?yoi76ViBHzvr}h017C(Fj`W1bO0q zj}2{8vE-ym47?1xj6p{y=_tl%cwCBO*d{CGg|g~AS_j?|YNlNpzA>42*xRen4~4q% z0cQ!fLb9D$Ljrx+L_dIxFFx|9~uI@g60iX)>&$hHcYE!^g& zkKCr`^D+$67cR1v=?YJ*`No3fZRG7t-m^>uS39>^;f)s<Mb+a3J85zenE19pW972v-ORvYfn4cW4kdiK=2u+QDf?7)D47*iaQpVI_4{ zO$=K6?fvD2zR|CbqtFuZ`0KHi2b~}FOU;NR`un3y(-JheTC^n+kAI$?DCEz-y7}z+ Y#MtqzRPgk&5DR8FB8Tw5{Bt+(3#I40vj6}9 literal 0 HcmV?d00001 diff --git a/mcs/mbas/Test/tests/LoopStatementsC.exe b/mcs/mbas/Test/tests/LoopStatementsC.exe new file mode 100755 index 0000000000000000000000000000000000000000..94a320a1597e12f41ac3faf9d95fb4ef889afeba GIT binary patch literal 2048 zcmeHHO-vI(6#ll9QWj|-7=8@F!JkMl*#L47A<`5OQ4o@%CIkcRb||acow~bV;h-Fp zs3*O8_3FU`31~cWGV!Pfy?FD&(W9}xnQny;LgK}Xe(AjTzHesUyqUgsV&)kt0EB52 zi@+9niMXCt_9e*3cM)imGEp7Zm`}CsavAip?ZYsyjl;a4Wr8#q#9A-IecrwXy zBEyZ^TK!azdTIn1*Ft!7voBFT?JHthjTR{tRTdcqawx=0acFmmtY2ZCEa?*RUO=7t z?D~MJIiQ&VlRuBS&`suFqf zJ2Xz-2WBb9wv3a$YdKj@E@6~0Bem;EJfyfw#tB=b$!`#+&c(^m>tn;@%b+ycXgGxG zvOu0R)kd^MwFi}_G^tDNNAYD)Wdu6vY4l={n#iR%f;F-dFO*gH(dw{Ctde$V*kN*F zy}4Pj?}|0z9nKK1hE(gZfEZe^f>yMXasp=&Uc){-B`zy^+)$d3*(IuIl(h!5DUFP3 zCEH44GJTtyK9Vb*&vP(LU$~gCOjmef!8dML-crg=q&&++>1n4|^8DZh#*oP6Et|VZ z?k-y<_i)J-xiQD*S?&hAF(e!_e2jfEIlYWX0=Z^0UVPHaJmTZ1;|AfH{ z9MjzMp?(VT9&kzOf-EO*(;FJ3ji8_ulXh_G5r!Tb zX)LJ>*&vg8stN`zy16=gqow!jlQ6VcH2QjQ?m_)W{X!)|vDVfw)3g}1tro5dMWeUA g9DTF!YVPXu_s34HPkDDKt@?ip$>#fyf9?f-0i6oLTmS$7 literal 0 HcmV?d00001 diff --git a/mcs/mbas/Test/tests/LoopStatementsD.exe b/mcs/mbas/Test/tests/LoopStatementsD.exe new file mode 100755 index 0000000000000000000000000000000000000000..ba1095cf92dd36b9cfb1fec6c47794157f8b0177 GIT binary patch literal 2560 zcmeHHL2naB6#mvYwzH0{1SAq5qGQoUQ4TAhIY6m`aS~`zOi&#{g+RexPm+c8j=Q@K zNrYN1MeVHzgj%Um|3D8_i&WH8{{W||s23!D0LS+1elu&g5sGr)zya~>dGCGSn|brz z&g@pNeS>`f(j46`@R(Lh+33C1J%)?#{8q%H!6&81*20t0(z+LkcBt0EdP}(VAW*Sr zND+1d;RRxDu_juoDV;*Wez%wU@;tC$rSRp|)0O^i&r!7URtDhzKN0lwFj7wZR8qI5 zbp1wdQj^!B`vQi||9{(qCI*ZNV6o@#YRbUSu7SPDVFBcJOlcB-v;#Y_+>D8ZE}Svb zYp-r1BLcYTgwj`TuZA*dJ!fZPLedqQSCZ~~!=k)nWmzQPTF+{9iN5Y_Yf$x`i4CwZCdNBQjGnLikMrca-49!U-4Cg_IqO9cpSTM<>NWpzA%k-A)UftpP(gY-Wx74 z*Gl)VIXyJ@*Uvxns?5N~2*)(e@}ho5KZCo}S{@p0`mu)b3(){qS$H9I;QrW{L4O-` zkl&XH;z4M31gj|G5H>K55}6XFkiLhP+$u^0`7*4@aKm$D zg!7?lB?p3PJzmErsuMIZzv;?$?5O|?O0{coog2#_j^^-TRW&=loOwCm$W4hQ8O2P) z*GEf!9TGl&ikId*bqHaQ;=K?E$i%dFOyo8^GHb+b&eJm_t&c5}3i|}C+^^f$mk&)p z|2hq;P|W>wcIAtaKkW}RDx`&F6?w6(Y&M-6$nEEWZWkY1^;U0P`tIWFjc+GbZYPP} W>NoZYh~yiTI{wCX__nb 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 diff --git a/mcs/mbas/Test/tests/LoopStatementsF.exe b/mcs/mbas/Test/tests/LoopStatementsF.exe new file mode 100755 index 0000000000000000000000000000000000000000..f946ece88a60d25146f20fc934900ab2196bcd64 GIT binary patch literal 2560 zcmeHH&2Jk;6#uQ`xXwZ>hai(mOFJR05h)t$I{eqECH)l2A^J>uMVo+MZtQ?$^rcUMS_}MhAMqM)9+hD zx_?7kq z7oQ=Jd(IeTB6gXL+IFsFkW!h)WS7p|>GgWKbW4i8RN}^nsoJ^nu-?Z@YsZJkuAO9b zwf0)oG86aDaA(Gyapz9W&YHo8(WWeN_tb~LE~U_VEs6YaJJumzv6r_fr!Lg+2lcaB zuLi0?xxf~AyD_zL;k?EN#1z&_HiMA?KuHX2%3L3&F}lX|(l+0Iqw9-kV~qR=xsB6U zq8{U8>U&22#dv=s*Yv<}Goe+)IMWR?kA?d}J3g71FxKzJDq+H!r#%9V9!7uyCh;|% zr~VyYzzO`!HG|u5G0&Jeyo~HF9-@1+b=RMb_Z_;PCOzE%dlttGMrN*L;5V?|xFWp- zwX1O=TX4NZMK~WOr)II{dy$IOyNSE$$DMjmt;fEX#&2A0%Yy^lMb&EifsAT0+VMRZ zXHE7~LjQVnZ^&d0q80sx3nyg5YT={@T<+ z%7pR*<9Q!Gk!_xd;Q4nMA>q+4(Ihg@)j-F@Z>RgrqaPBm@;9%&y?J=n86L_IRIw=zo_o(~mdplWhNwC-5hiyXcz$ literal 0 HcmV?d00001 diff --git a/mcs/mbas/Test/tests/LoopStatementsG.exe b/mcs/mbas/Test/tests/LoopStatementsG.exe new file mode 100755 index 0000000000000000000000000000000000000000..bd004d8401215fcc2b267753fb33c5b66908b402 GIT binary patch literal 2560 zcmeHHL2MgE6n*PBuCq|fAz)Hz+fGQ4OeI!Lngc1N7^i7kNC?77Kvks1UJqemy|da~ z7qv9s~v_*M{kty{n+iPU2FOF)Y`j#BBEGr$IXuLnqjC? z(UKzWhQbfU+0};VsJ3(u9<+~Tsoz)xmaQDFy)|DS?sgX?>oKbU@c)+xdU_bC4gB1o zZcXX>jcieq*P{CZ%I5#K&7g?^lLA=H{C!OgczoZ$gUPZ0ihHKCiO=uBZYp~z@i)3~ z#!RnS-9$zNu;s=wP+nF;jkKP#H!&gUI?cb5{T(6=sobBbrpL$T-+7c~Aa$39~z zmi@vLBnnR%P$gqmS*UFnDu$_4c}#ZY%uoG(Kbw?MFIKoNW~Qi69o5TtXYJ$w)z#zm z#;bM9bUQe|%QNnbJ9lz+)-*keh_=k7(;osmv_kuhH1@;oL{GWSI^L$8UT@%c`e(IY z4^)fxG|S`7#`Mzq1q}^3ocaj0jZ;{p zpWtKqyT<>~M1Q8%@|)47L#vDlrW<7*3%?2-_+)a@pnC>YFlo&bk3qAC5TJx9e1*gG zzr!Ori0Qpnn73UZPyZ(X|90T{ama%!{QB#1r>VD z6pKAiMyantEGrc?(k2^|VVW%A^onYC19|5DfGc|vYm)iRtE!*T`Z*}X5IhaVUqmmY zO=&+ck@w+~+2)xDo_~)sBs|6?+GL*Rc?q=8H7mBWmCQRLU=@G3y18*^?(V0f$T^Nv z{PyKbAC2F!Pvv1bP5~oD$H~zzIgFPaCoe3kq`wU#2P}sv{-}Pvbt8Z4wJ)zv+cWJ@1MY*E3oBZ literal 0 HcmV?d00001 diff --git a/mcs/mbas/Test/tests/LoopStatementsG.vb.log b/mcs/mbas/Test/tests/LoopStatementsG.vb.log new file mode 100644 index 00000000000..9d6e4a0fa80 --- /dev/null +++ b/mcs/mbas/Test/tests/LoopStatementsG.vb.log @@ -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 () diff --git a/mcs/mbas/Test/tests/MethodDeclarationA.vb b/mcs/mbas/Test/tests/MethodDeclarationA.vb new file mode 100755 index 00000000000..363011147fe --- /dev/null +++ b/mcs/mbas/Test/tests/MethodDeclarationA.vb @@ -0,0 +1,16 @@ +'Author: +' V. Sudharsan (vsudharsan@novell.com) +' +' (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 + diff --git a/mcs/mbas/Test/tests/MethodDeclarationB.vb b/mcs/mbas/Test/tests/MethodDeclarationB.vb new file mode 100755 index 00000000000..4770dda3912 --- /dev/null +++ b/mcs/mbas/Test/tests/MethodDeclarationB.vb @@ -0,0 +1,19 @@ +'Author: +' V. Sudharsan (vsudharsan@novell.com) +' +' (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 + diff --git a/mcs/mbas/Test/tests/MethodDeclarationC.vb b/mcs/mbas/Test/tests/MethodDeclarationC.vb new file mode 100755 index 00000000000..33190ffa801 --- /dev/null +++ b/mcs/mbas/Test/tests/MethodDeclarationC.vb @@ -0,0 +1,20 @@ +'Author: +' V. Sudharsan (vsudharsan@novell.com) +' +' (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 + diff --git a/mcs/mbas/Test/tests/MethodDeclarationD.vb b/mcs/mbas/Test/tests/MethodDeclarationD.vb new file mode 100755 index 00000000000..d01a14fc296 --- /dev/null +++ b/mcs/mbas/Test/tests/MethodDeclarationD.vb @@ -0,0 +1,16 @@ +'Author: +' V. Sudharsan (vsudharsan@novell.com) +' +' (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 + diff --git a/mcs/mbas/Test/tests/MethodDeclarationE.vb b/mcs/mbas/Test/tests/MethodDeclarationE.vb new file mode 100755 index 00000000000..3cdc884b91f --- /dev/null +++ b/mcs/mbas/Test/tests/MethodDeclarationE.vb @@ -0,0 +1,16 @@ +'Author: +' V. Sudharsan (vsudharsan@novell.com) +' +' (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 + diff --git a/mcs/mbas/Test/tests/MethodDeclarationF.vb b/mcs/mbas/Test/tests/MethodDeclarationF.vb new file mode 100755 index 00000000000..7e6e1764d20 --- /dev/null +++ b/mcs/mbas/Test/tests/MethodDeclarationF.vb @@ -0,0 +1,19 @@ +'Author: +' V. Sudharsan (vsudharsan@novell.com) +' +' (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 + diff --git a/mcs/mbas/Test/tests/PropertyE.vb b/mcs/mbas/Test/tests/PropertyE.vb new file mode 100755 index 00000000000..c83015c01aa --- /dev/null +++ b/mcs/mbas/Test/tests/PropertyE.vb @@ -0,0 +1,22 @@ +'Author: +' V. Sudharsan (vsudharsan@novell.com) +' +' (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 + + diff --git a/mcs/mbas/Test/tests/ReturnStatementA.exe b/mcs/mbas/Test/tests/ReturnStatementA.exe new file mode 100755 index 0000000000000000000000000000000000000000..166837a34545df337138a1757bc0b6bb0bf0dc1d GIT binary patch literal 2560 zcmeHHO=w(I6#njHGMT)XM}|O1VQB7<7RG{)B#ny{(Q(qWsU$`^X$wVcCU0)z)Auvn z_ohy}Fa<%Pbm78-i-N_aZY{Ve6mijo3m3W&q|3(d-kH&ep$ieA(DU9s=X~F} z_uO;tyEE&TKfw@yJjeb%aF^Cd&FUwsn+&@%U%R+7darUbJ5*P2Py<3z)F)U$zfz449U{M&Ccw)PUy>4Lq5gkU;Uklos*o0qkX}n-OoC z!Wpx@_Uk6HB7rSWt1$8VHPlF(IR_IHlCIPIE7?CjA!`R#)?^P{?puRir*HZ>T&^r9 zdZnw@n?Z~y^%Jd>*9t=nGWGg4Wrr2uXF7sD+b$UVf6CEZm0LR}Cg*bY2nk9v&Mi|B zIWhPICCxzl1TZ-_Y7dt8s8r>wf>DlBB`z4{j1^{_$71TS7_m#Hs_e=kMnHwACocih1IqzF@bN1hPhVY7ij_?PET9(yG2v@4lfWFD<(FD z?=33#(S5wg*eJ}3BZ%OlLS3f*fa7`cRm}5QLjER~|4lw6GF|OW_GnXskr9poH;H4G zqq5gD47Rbc{f_c8G_I$ais1QKqH!+HPA*_Q@O6?VS2OQokan73y_p8SiK!i>H?OzV z;WNDDBx(nt(ha4r1-?pgMkmo=8~Z8kVt&=-sEw7bui9CV#5k|Aj*c5ylZB`_dlfIO zC#_DXUj9eKQ(c8LOWJ7`Ww_dj&6tP%{js;PRVajf65#lG`WZUVh#@%=B8m5CHQq%) zX2+b#kc23Hb>q#8M;0G`l&4=Ve)-Ck-O_#M6p>plV5sQ2xx5s@$dBZT tF7M^7&mTPcb$8|VPj9W=+5PPslk%B7B_|+z|3$gEr=;FzW&Wop@CQJP%0B=A literal 0 HcmV?d00001 diff --git a/mcs/mbas/Test/tests/StopStatementA.exe b/mcs/mbas/Test/tests/StopStatementA.exe new file mode 100755 index 0000000000000000000000000000000000000000..6ce5be2e37599716279d9b891e13b8f42b30675b GIT binary patch literal 3072 zcmeHI&u<$=6#h0b!F6dwRRmNZu}ybf9H=V`XryA=)>h_YjllWb?^aQDIC&gLRE+iB;gpP#LIZ zM8j@RS&d*5mxc?RA>)wen7BguL1^M-CaJ$wbxZ_{=h`{%oL4$OGh+hfu*UT+$LUXj zSD54{;p;jHqE1Q{e^SR&!|6-!EX;Au6OSu$HH@2Fg=pejdI~rq!e7pL0Z*NImdP4k z)+`TPH+pH{1UAQ&)}q)U22}gERJ%{ zZP92SeM?DVetE*Goxy=Tp3xN;VUJ#0irf8Ay@77pijy#CVku}PaT;IM-b#@6{jln% zK?|vld#Ubf)HhSDx>#<0s9G9Jeh?k*;myX~UJ$CJu99m(OQoo5KWh6)+h(k2cE8!z z3SLXc3F?hXV?9xRd$dt!PC7B2igbnkS!>8->r2zwz-0 zD<@0$zRGW3T>b3$uZ36nhB@OdoSgLKyQ#g(@uTqWNX~M@XVmIeXX9jkLz!YtpOo_2 zVQ4mYUxZuEx<29`r~{69@1C`{XvWjN&Ba6XVkCFRyJcW!Oe9M?VxsAHA$Jg$&i z;7$8Btl5JQ}ou%0`vGz zXZCs~|0b*Tjh*CnInElJA@Vs!NYOGldi!vSZINFQXAj#7Z4+9LYAM2_&2Y$B$Q>o! z(8e}m?l6NuDvr@Jl}lIDUIi6KQP|)RI%6;{QtFrpQf&{L24x59^vu>Wva?-po49g5 zADPZr+nT|)JcuD(7i_~mh$P*F!FE3wZLe#L7o&|nd#E#&+MFfRzx_4`yEy8f^pW2r m<5MB>)YQ==%1xf!fBDh%;Um|6qwm;H;KPUi5#s;Vfqww0xe%fN literal 0 HcmV?d00001 diff --git a/mcs/mbas/Test/tests/StopStatementA.vb.log b/mcs/mbas/Test/tests/StopStatementA.vb.log new file mode 100644 index 00000000000..4d819382359 --- /dev/null +++ b/mcs/mbas/Test/tests/StopStatementA.vb.log @@ -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 diff --git a/mcs/mbas/Test/tests/TestResults.log b/mcs/mbas/Test/tests/TestResults.log new file mode 100644 index 00000000000..83f093b0d3f --- /dev/null +++ b/mcs/mbas/Test/tests/TestResults.log @@ -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 diff --git a/mcs/mbas/Test/tests/VariablesH.vb b/mcs/mbas/Test/tests/VariablesH.vb new file mode 100755 index 00000000000..8b5eeef9253 --- /dev/null +++ b/mcs/mbas/Test/tests/VariablesH.vb @@ -0,0 +1,20 @@ +'Author: +' V. Sudharsan (vsudharsan@novell.com) +' +' (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 diff --git a/mcs/mbas/Test/tests/VariablesI.vb b/mcs/mbas/Test/tests/VariablesI.vb new file mode 100755 index 00000000000..77d8d0b5850 --- /dev/null +++ b/mcs/mbas/Test/tests/VariablesI.vb @@ -0,0 +1,47 @@ +'Author: +' V. Sudharsan (vsudharsan@novell.com) +' +' (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 diff --git a/mcs/mbas/Test/tests/VariablesJ.vb b/mcs/mbas/Test/tests/VariablesJ.vb new file mode 100755 index 00000000000..173c29d2edd --- /dev/null +++ b/mcs/mbas/Test/tests/VariablesJ.vb @@ -0,0 +1,17 @@ +'Author: +' V. Sudharsan (vsudharsan@novell.com) +' +' (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 + diff --git a/mcs/mbas/Test/tests/VariablesK.vb b/mcs/mbas/Test/tests/VariablesK.vb new file mode 100755 index 00000000000..b7cdbf3b0b4 --- /dev/null +++ b/mcs/mbas/Test/tests/VariablesK.vb @@ -0,0 +1,26 @@ +'Author: +' V. Sudharsan (vsudharsan@novell.com) +' +' (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 diff --git a/mcs/mbas/Test/tests/VariablesL.vb b/mcs/mbas/Test/tests/VariablesL.vb new file mode 100755 index 00000000000..ebc3746e40c --- /dev/null +++ b/mcs/mbas/Test/tests/VariablesL.vb @@ -0,0 +1,16 @@ +'Author: +' V. Sudharsan (vsudharsan@novell.com) +' +' (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 diff --git a/mcs/mbas/Test/tests/VariablesM.vb b/mcs/mbas/Test/tests/VariablesM.vb new file mode 100755 index 00000000000..9df62647616 --- /dev/null +++ b/mcs/mbas/Test/tests/VariablesM.vb @@ -0,0 +1,27 @@ +'Author: +' V. Sudharsan (vsudharsan@novell.com) +' +' (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 + diff --git a/mcs/mbas/Test/tests/WithStatementA.exe b/mcs/mbas/Test/tests/WithStatementA.exe new file mode 100755 index 0000000000000000000000000000000000000000..80281becfca4995f0a9f0594177895d0cea1dfaf GIT binary patch literal 2560 zcmeHHL2naB6#jPOj1woZ64C}o0y2>SAzE2+KuDkpxi+YzO$d^K2!z@=_COY`cf)$A z3?UV#sz@O512{o{0us=F&;!?=qnOSfG%wKstAAUXi(ph{xdvV?C=#4165jEPn*$9F#)@w#bw*&13 z`pj}&x5Jhxjg93Frb}Nq3oJS=9;}?K_IBGw-WhQez~`N4S~9Fu65CDcmXOqMWtEz7 z5$OvUx6gY_UCRLl4J@bju22C+cO^a^9M`~5UrLMqxjw%Xn{G^hT?!{>drj-6XGH_6 zrO5bUGp(V*u;lbFOqby*;eW}_p>bX5n_1C`b2UZr&eN8Dc9&mjVRW`@mKt7wcBdIe z#*|vVkKRg2-%|GTSq>TwZGsa2Q_2DN2)E81ot#tnnH$rY=($bUQ*U3shNaO(N8@hnSB(v>CWWrEH}E+BhxZ4IX4KV$XQH8 zhHT*xw|8=C%H5P|9?DrgReRk{Dd?#>LdbDKwflsAk$l-Q*@x?J;Hv8#T#M*NdLzZevMxU_JF*b`21Rx&Pz z$y*^ZX1_7{&Lk{XSx|;>y}=ulR;!T11h4u5s}E9(@GpR3J95Txg7%>GTvl>D^#(Z0 zgXVrdig=?L#_xrK&HK-KQ)u98`m3}3+&$|lgf?>+GGm$@=cx}Pb6;}%MRu3E|Cmgo zQi;fbbY-u%@2z2Z?WSqQsNdW>{mrU27E#FYBj0T^1TrbPUd(XkJXP+HttWZa^TR?dM0V4s~4&Sh0 zOn8s>IxUGcY`je_poOs|TAEhKA4cArTB=*8V@ zm#2?!KTvR;{QiA>`HsrEdq($+x@yQ(`ApW?zYkOQ+`n&yuPRTz`6syY?BDHVfiL>A UI{}^ihq!Z}U1eVi`UEHN7FwRFxBvhE literal 0 HcmV?d00001 diff --git a/mcs/mbas/Test/tests/WithStatementB.exe b/mcs/mbas/Test/tests/WithStatementB.exe new file mode 100755 index 0000000000000000000000000000000000000000..30260427b4d8439595a29164486c2deb48c50997 GIT binary patch literal 2560 zcmd^9&ubiY6#vX*ce0tJ%WkV_0&O#46=K0LyIsLlvCD3vtt5>wZ39I}CcED>6J}?Y znMq9>qB*FjD0=Yhp$H0IJP3wf3X0&NJ$mmS&|?G-()js)XV)$gdhp;SZ|3{n`@CP@ z_rCLE;rf>t0FdE2H~{u2CDjyvI@_f?KXEsYABP@H?rHN6Cab>0_BCic=2Eh9tvZ%?WsFvz_ z+P5^x{uQl|(=JKQ1r*f%M0TO_0b>@h*wqgeHDKgW$J31k3&{0_w1_YEVLK693GrXD zar)G(-M)zwS-^@N2|sLhd#KSYWBLmd(p;zbPjv8n!K(FT)~pmyXE`nRZ8cUZSPG2vwSETbz(!}|C7$>Q{37-dty3^Rc=gBjM9d7u6v|V+uPrWAfx*x7m zRyhQ}8kF9=dTExjN3yY{jE*73E25+gSuUo?8Ps>k7L_i2(k3PFZC4sFQRJ%P0$=(z zbp!7zzC$kQYsJ-cS^-}WWtpq7Rsr|AXnEA#qEb|Po__(W=zT}c|`>e-%U4M_uX za`id*-YOPXH$*dmb1P0n8+J1ZBP@8$D2&6k#J=Xmo33AXW3P$y5nZ{}5r+rZjj-ME zd=WV!y6H7VEHfJI4(7I+qLX-GfJ;Ggu7XAw#Gx;+6nTl5_X28OvhE}5= zYtt96|I2QRErGWDm>Xrdyen8MbD)zKA>i{0VPT0pqTT{#N<xt)qGnI<#;XrMF))zJ z=k?qV7na{I{%)SnSelkMplkWlr}#E%#-M(D literal 0 HcmV?d00001 diff --git a/mcs/mbas/Test/tests/WithStatementB.vb.log b/mcs/mbas/Test/tests/WithStatementB.vb.log new file mode 100644 index 00000000000..88ad7d333f0 --- /dev/null +++ b/mcs/mbas/Test/tests/WithStatementB.vb.log @@ -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 () diff --git a/mcs/mbas/Test/tests/WithStatementC.vb.log b/mcs/mbas/Test/tests/WithStatementC.vb.log new file mode 100644 index 00000000000..03c5327c102 --- /dev/null +++ b/mcs/mbas/Test/tests/WithStatementC.vb.log @@ -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 diff --git a/mcs/mbas/Test/tests/test.vb b/mcs/mbas/Test/tests/test.vb new file mode 100644 index 00000000000..970d228d5dd --- /dev/null +++ b/mcs/mbas/Test/tests/test.vb @@ -0,0 +1,17 @@ +'Author: +' V. Sudharsan (vsudharsan@novell.com) +' +' (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 + diff --git a/mcs/mbas/Test/tests/test1.vb b/mcs/mbas/Test/tests/test1.vb new file mode 100644 index 00000000000..4cd2f71eea6 --- /dev/null +++ b/mcs/mbas/Test/tests/test1.vb @@ -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 -- 2.25.1