From: Anirban Bhattacharjee Date: Fri, 27 Feb 2004 06:00:52 +0000 (-0000) Subject: Deleting vb files starting with lowercase X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=commitdiff_plain;h=1726cd69e350633407a4742666b4e03989460a24;p=mono.git Deleting vb files starting with lowercase svn path=/trunk/mcs/; revision=23521 --- diff --git a/mcs/btests/namespace.vb b/mcs/btests/namespace.vb deleted file mode 100644 index 963bef13d79..00000000000 --- a/mcs/btests/namespace.vb +++ /dev/null @@ -1,9 +0,0 @@ -Imports System -Namespace NS1 - Module M - Dim a As Integer=20 - Sub Main() - End Sub - End Module -End Namespace - diff --git a/mcs/btests/namespacec.vb b/mcs/btests/namespacec.vb deleted file mode 100644 index ef8ddde1ebe..00000000000 --- a/mcs/btests/namespacec.vb +++ /dev/null @@ -1,11 +0,0 @@ -Imports System -Namespace NS1 - Namespace NNS1 - Module M - Sub Main() - End Sub - End Module - - End Namespace -End Namespace - diff --git a/mcs/btests/namespacec1.vb b/mcs/btests/namespacec1.vb deleted file mode 100644 index 8398311299f..00000000000 --- a/mcs/btests/namespacec1.vb +++ /dev/null @@ -1,8 +0,0 @@ -Namespace NS1 - Module NamespaceTest - Namespace NS2 - End Namespace - Sub Main() - End Sub - End Module -End Namespace diff --git a/mcs/btests/namespacec2.vb b/mcs/btests/namespacec2.vb deleted file mode 100644 index ac009b03041..00000000000 --- a/mcs/btests/namespacec2.vb +++ /dev/null @@ -1,7 +0,0 @@ -Namespace NS1 - Dim a As Integer - Module NamespaceTest - Sub Main() - End Sub - End Module -End Namespace diff --git a/mcs/btests/namespacec3.vb b/mcs/btests/namespacec3.vb deleted file mode 100644 index 0eed247cf54..00000000000 --- a/mcs/btests/namespacec3.vb +++ /dev/null @@ -1,10 +0,0 @@ -Namespace NS1 - Module NameSpaceTest - End Module -End Namespace -Namespace NS1 - Module NameSpaceTest - Sub Main() - End Sub - End Module -End Namespace diff --git a/mcs/btests/namespaced.vb b/mcs/btests/namespaced.vb deleted file mode 100644 index ebdb162b272..00000000000 --- a/mcs/btests/namespaced.vb +++ /dev/null @@ -1,29 +0,0 @@ -'Imports System -Namespace NS1 - Module M - Public a As Integer=20 - End Module -End Namespace -Namespace NS2 - Module M - Dim a As Integer=30 - Sub Main() - Dim a As Integer=40 - System.Console.WriteLine(a) - Try - If a<>40 Then - Throw New System.Exception("#A1:Namespace:Failed") - End If - If NS1.M.a<>20 Then - Throw New System.Exception("#A2:Namespace:Failed") - End If - If NS2.M.a<>30 Then - Throw New System.Exception("#A3:Namespace:Failed") - End If - Catch e As Exception - System.Console.WriteLine(e.Message) - End Try - End Sub - End Module -End Namespace - diff --git a/mcs/btests/notinheritablec3.vb b/mcs/btests/notinheritablec3.vb deleted file mode 100644 index b8cf878ee4b..00000000000 --- a/mcs/btests/notinheritablec3.vb +++ /dev/null @@ -1,9 +0,0 @@ -Imports System -NotInheritable Class A - Public MustOverride Sub F() -End Class - -Module NotInheritableTest - Sub Main() - End Sub -End Module diff --git a/mcs/btests/overloadinga.vb b/mcs/btests/overloadinga.vb deleted file mode 100644 index 9dd8419824d..00000000000 --- a/mcs/btests/overloadinga.vb +++ /dev/null @@ -1,48 +0,0 @@ -'Testing overloading in different classes -Class B - Public Function F() - End Function - - Public Function F(ByVal i As Integer) - End Function - - Public Function F(ByVal s As String) - End Function - - Public overridable Function F1() - End Function - - Public Function F1(ByVal i As Integer) - End Function -End Class - -Class D - Inherits B - - Public Function F() - End Function - - Public overloads Function F(ByVal s as Integer) - End Function - - Public overloads Function F(ByVal s As String) - End Function - - Public Function F1() - End Function -End Class - -Module OverloadingA - Sub Main() - Dim x As D = New D() - - x.F() - x.F(10) - x.F1(20) - - Dim x1 As B=New B() - x1.F(20) - x1.F1() - End Sub - -End Module diff --git a/mcs/btests/overridec2.vb b/mcs/btests/overridec2.vb deleted file mode 100644 index 8cf4b345efc..00000000000 --- a/mcs/btests/overridec2.vb +++ /dev/null @@ -1,9 +0,0 @@ -Class C1 - Public Notoverridable Sub S() 'methods that do not override any other method should not be declared 'notoverridable' - - End Sub -End Class -Module OverrideC2 - Sub Main() - End Sub -End Module diff --git a/mcs/btests/overridec3.vb b/mcs/btests/overridec3.vb deleted file mode 100644 index 4140b94b1d5..00000000000 --- a/mcs/btests/overridec3.vb +++ /dev/null @@ -1,10 +0,0 @@ -Class C1 - Private Overridable Sub S() 'Overridable methods should not be private - End Sub - Shared Overridable Sub F() 'Overridable methods should not be shared - End Sub -End Class -Module OverrideC2 - Sub Main() - End Sub -End Module diff --git a/mcs/btests/overridec4.vb b/mcs/btests/overridec4.vb deleted file mode 100644 index 1cd50376e00..00000000000 --- a/mcs/btests/overridec4.vb +++ /dev/null @@ -1,19 +0,0 @@ -Class C1 - Public Overridable Sub S(byVal a As Integer) - End Sub -End Class -Class C2 - Inherits C1 - Public Overrides Sub S() - End Sub - Private Overrides Sub S(byVal a As Integer) - End Sub - Public Overrides Sub S(byRef a As Integer) - End Sub - Public Overrides Sub S(byVal a As String) - End Sub -End Class -Module OverrideC2 - Sub Main() - End Sub -End Module diff --git a/mcs/btests/qualifiednames.vb b/mcs/btests/qualifiednames.vb deleted file mode 100644 index 65204924285..00000000000 --- a/mcs/btests/qualifiednames.vb +++ /dev/null @@ -1,31 +0,0 @@ -Imports System -Namespace N1 - Namespace N2 - Class C1 - Public Shared a As Integer - Public Shared b As Integer - Public Shared Function F() As Integer - Try - N1.N2.C1.a=20 - Catch e As Exception - Console.WriteLine("error resolving a fully qualified name") - End Try - b=30 - Return 47 - End Function - End Class - End Namespace -End Namespace -Module QualifiedNames - Sub Main() - If N1.N2.C1.F()<>47 Then - Throw New Exception("#A1:QualifiedNames:Failed-Error accessing function using fully qualified names") - End If - If N1.N2.C1.a<>20 Then - Throw New Exception("#A2:QualifiedNames:Failed-Error accessing variables using fully qualified names") - End If - If N1.N2.C1.b<>30 Then - Throw New Exception("#A3:QualifiedNames:Failed-Error accessing variables using fully qualified names") - End If - End Sub -End Module diff --git a/mcs/btests/regiondirectives.vb b/mcs/btests/regiondirectives.vb deleted file mode 100644 index 135cb25934f..00000000000 --- a/mcs/btests/regiondirectives.vb +++ /dev/null @@ -1,8 +0,0 @@ -Imports System -Module RegionDirectives - #Region - Sub Main() - - End Sub - #End Region -End Module diff --git a/mcs/btests/regiondirectivesc1.vb b/mcs/btests/regiondirectivesc1.vb deleted file mode 100644 index c29f281a5d8..00000000000 --- a/mcs/btests/regiondirectivesc1.vb +++ /dev/null @@ -1,8 +0,0 @@ -Imports System -Module RegionDirectives - Sub Main() - #Region - - #End Region - End Sub -End Module diff --git a/mcs/btests/scopea.vb b/mcs/btests/scopea.vb deleted file mode 100644 index 4351493975d..00000000000 --- a/mcs/btests/scopea.vb +++ /dev/null @@ -1,14 +0,0 @@ -Imports System -Module Scope1 - Public Function S() As Integer - Return 1 - End Function -End Module -Module Scope - Sub Main() - Dim a As Integer=S() - If a<>1 Then - Throw New Exception("ScopeA:Failed-public method should be visible in other modules too") - End If - End Sub -End Module diff --git a/mcs/btests/shadowsc4.vb b/mcs/btests/shadowsc4.vb deleted file mode 100644 index 07c89408a45..00000000000 --- a/mcs/btests/shadowsc4.vb +++ /dev/null @@ -1,16 +0,0 @@ -Class B - Private Function F() - End Function -End Class - -Class D - Inherits B - - Shadows Function F() - End Function -End Class - -Module ShadowsC3 - Sub Main() - End Sub -End Module diff --git a/mcs/btests/singleliteral.vb b/mcs/btests/singleliteral.vb deleted file mode 100644 index 168afa103ff..00000000000 --- a/mcs/btests/singleliteral.vb +++ /dev/null @@ -1,11 +0,0 @@ -Imports System -Module SingleLiteral - Sub Main() - Try - Dim a As Single=1.23 - Dim b As Single=1.23E+10 - Catch e As Exception - Console.WriteLine(e.Message) - End Try - End Sub -End Module diff --git a/mcs/btests/singleliteral1.vb b/mcs/btests/singleliteral1.vb deleted file mode 100644 index 94fb7a78cd1..00000000000 --- a/mcs/btests/singleliteral1.vb +++ /dev/null @@ -1,12 +0,0 @@ -Imports System -Module SingleLiteral - Sub Main() - Try - Dim a As Single=1.23E+40F - Dim b As Single - b="Hello" - Catch e As Exception - Console.WriteLine(e.Message) - End Try - End Sub -End Module diff --git a/mcs/btests/singleliterala.vb b/mcs/btests/singleliterala.vb deleted file mode 100644 index 2340388b672..00000000000 --- a/mcs/btests/singleliterala.vb +++ /dev/null @@ -1,31 +0,0 @@ -Imports System -Module SingleLiteral - Sub Main() - Try - Dim a As Single=1.23F - Dim b As Single=1.23E+10F - Dim c As Single=9223372036854775808F - Dim d As Single=.23F - Dim f As Single - If a<>1.23F Then - Console.WriteLine("#A1-SingleLiteralA:Failed") - End If - If b<>1.23E+10F Then - Console.WriteLine("#A2-SingleLiteralA:Failed") - End If - If c<>9.223372E+18F Then - Console.WriteLine("#A3-SingleLiteralA:Failed") - End If - If d<>0.23 Then - Console.WriteLine("#A4-SingleLiteralA:Failed") - End If - If f<>0 Then - Console.WriteLine("#A5-SingleLiteralA:Failed") - End If - - - Catch e As Exception - Console.WriteLine(e.Message) - End Try - End Sub -End Module diff --git a/mcs/btests/singleliteralb.vb b/mcs/btests/singleliteralb.vb deleted file mode 100644 index 6063ccf47db..00000000000 --- a/mcs/btests/singleliteralb.vb +++ /dev/null @@ -1,15 +0,0 @@ -Imports System -Module SingleLiteral - Sub Main() - Try - Dim a As Single=True - If a<>-1 Then - Console.WriteLine("SingleLiteralB:Failed") - End If - - - Catch e As Exception - Console.WriteLine(e.Message) - End Try - End Sub -End Module diff --git a/mcs/btests/singletypechartesta.vb b/mcs/btests/singletypechartesta.vb deleted file mode 100644 index f16050064e0..00000000000 --- a/mcs/btests/singletypechartesta.vb +++ /dev/null @@ -1,12 +0,0 @@ -Module M - Sub Main() - Dim a! - a=10 - - Dim b As Single - b!=10 - - Dim c! - c!=10 - End Sub -End Module diff --git a/mcs/btests/singletypechartestb.vb b/mcs/btests/singletypechartestb.vb deleted file mode 100644 index daf5da51356..00000000000 --- a/mcs/btests/singletypechartestb.vb +++ /dev/null @@ -1,18 +0,0 @@ -Module SingleTypeCharTest - Sub Main() - Try - Dim m As Integer - m = f(20) - If m <> 20 Then - Throw New Exception("IntegerTypeChar: failed") - End If - Exit Sub - Catch e As Exception - Console.WriteLine(e.Message) - End Try - End Sub - - Function f!(ByVal param!) - f! = param - End Function -End Module diff --git a/mcs/btests/singletypechartestc1.vb b/mcs/btests/singletypechartestc1.vb deleted file mode 100644 index b3307eafe85..00000000000 --- a/mcs/btests/singletypechartestc1.vb +++ /dev/null @@ -1,12 +0,0 @@ -Module M - Sub Main() - Dim a 'Default type assigned is Object - a!=10 'Single type character does not conform with assigned type Object - - Dim b As Single - b!=10 'Long type character does not conform with assigned type Integer - - Dim c ! - - End Sub -End Module diff --git a/mcs/btests/singletypechartestc2.vb b/mcs/btests/singletypechartestc2.vb deleted file mode 100644 index 253b91694e3..00000000000 --- a/mcs/btests/singletypechartestc2.vb +++ /dev/null @@ -1,9 +0,0 @@ -Module M - Sub Main() - - - Dim b! - b=20R - - End Sub -End Module diff --git a/mcs/btests/stringliterals1.vb b/mcs/btests/stringliterals1.vb deleted file mode 100644 index f6d6b3195ec..00000000000 --- a/mcs/btests/stringliterals1.vb +++ /dev/null @@ -1,13 +0,0 @@ -Imports System -Module StringLiteral - Sub Main() - Try - Dim a As String="Hello" - Dim b As String="World" - Dim c As String=a*b - Catch e As Exception - Console.WriteLine(e.Message) - End Try - - End Sub -End Module diff --git a/mcs/btests/stringliteralsa.vb b/mcs/btests/stringliteralsa.vb deleted file mode 100644 index a134bcfd409..00000000000 --- a/mcs/btests/stringliteralsa.vb +++ /dev/null @@ -1,17 +0,0 @@ -Imports System -Module StringLiteral - Sub Main() - Try - Dim a As String="Hello" - Dim b As String=" World " - Dim c As String=47 - Dim d As String=a+b+c - If d<>"Hello World 47" Then - Throw New Exception("StringLiteralA:Failed-String concatenation does not work right") - End If - Catch e As Exception - Console.WriteLine(e.Message) - End Try - - End Sub -End Module diff --git a/mcs/btests/stringliteralsc2.vb b/mcs/btests/stringliteralsc2.vb deleted file mode 100644 index 5e8fd73749f..00000000000 --- a/mcs/btests/stringliteralsc2.vb +++ /dev/null @@ -1,12 +0,0 @@ -Imports System -Module StringLiteral - Sub Main() - Try - Dim a As String='Hello' - Dim b As String=Hello - Catch e As Exception - Console.WriteLine(e.Message) - End Try - - End Sub -End Module diff --git a/mcs/btests/stringtypechartesta.vb b/mcs/btests/stringtypechartesta.vb deleted file mode 100644 index a85fcca5efe..00000000000 --- a/mcs/btests/stringtypechartesta.vb +++ /dev/null @@ -1,12 +0,0 @@ -Module M - Sub Main() - Dim a$ - a="Hello" - - Dim b As String - b$="Hello" - - Dim c$ - c$="Hello" - End Sub -End Module diff --git a/mcs/btests/stringtypechartestb.vb b/mcs/btests/stringtypechartestb.vb deleted file mode 100644 index 71d91020302..00000000000 --- a/mcs/btests/stringtypechartestb.vb +++ /dev/null @@ -1,18 +0,0 @@ -Module StringTypeCharTest - Sub Main() - Try - Dim m As String - m = f(20) - If m <> 20 Then - Throw New Exception("StringTypeCharTest: failed") - End If - Exit Sub - Catch e As Exception - Console.WriteLine(e.Message) - End Try - End Sub - - Function f$(ByVal param$) - f$ = param - End Function -End Module diff --git a/mcs/btests/stringtypechartestc1.vb b/mcs/btests/stringtypechartestc1.vb deleted file mode 100644 index 4fe9d8a37c6..00000000000 --- a/mcs/btests/stringtypechartestc1.vb +++ /dev/null @@ -1,12 +0,0 @@ -Module M - Sub Main() - Dim a 'Default type assigned is Object - a$="Hello" 'String type character does not conform with assigned type Object - - Dim b As String - b$=10L 'Long type character does not conform with assigned type String - - Dim c $ - - End Sub -End Module diff --git a/mcs/btests/stringtypechartestc2.vb b/mcs/btests/stringtypechartestc2.vb deleted file mode 100644 index 38d6d3c247e..00000000000 --- a/mcs/btests/stringtypechartestc2.vb +++ /dev/null @@ -1,9 +0,0 @@ -Module M - Sub Main() - - - Dim b$ - b=20D - - End Sub -End Module diff --git a/mcs/btests/variables.vb b/mcs/btests/variables.vb deleted file mode 100644 index e4225167227..00000000000 --- a/mcs/btests/variables.vb +++ /dev/null @@ -1,20 +0,0 @@ -Imports System - -Module Variables - Sub Main() - Dim a As Integer - If a<>0 Then - Throw New Exception("Variables : Failed-Error assigning default value to variables") - End If - Dim b 'Default type is Object - If b<>"" Then - Throw New Exception("Variables : Failed-Error in implicit conversion of Object to string") - End If - If b<>0 Then - Throw New Exception("Variables : Failed-Error in implicit conversion of Object to integer") - End If - If b<>0.0 Then - Throw New Exception("Variables : Failed-Error in implicit conversion of Object to double") - End If - End Sub -End Module diff --git a/mcs/btests/variablesc1.vb b/mcs/btests/variablesc1.vb deleted file mode 100644 index 5b33c729a2a..00000000000 --- a/mcs/btests/variablesc1.vb +++ /dev/null @@ -1,7 +0,0 @@ -Imports System - -Module Variables - Sub Main() - a=20 - End Sub -End Module