* roottypes.cs: Rename from tree.cs.

[mono.git] / mcs / class / Microsoft.VisualBasic / Test / standalone / 5111.vb

diff --git a/mcs/class/Microsoft.VisualBasic/Test/standalone/5111.vb b/mcs/class/Microsoft.VisualBasic/Test/standalone/5111.vb
index a8c3d9fcec2f66beb0cf9cb71516db7df00f0528..433b9439839cb47c76d9087e93b390f10966e04f 100644 (file)
--- a/mcs/class/Microsoft.VisualBasic/Test/standalone/5111.vb
+++ b/mcs/class/Microsoft.VisualBasic/Test/standalone/5111.vb
@@ -2,7 +2,6 @@
 '
 ' Author:
 '   Roopa Wilson (rowilson@novell.com)
-
 ' Copyright (C) 2004 Novell, Inc (http://www.novell.com)
 '
 ' Permission is hereby granted, free of charge, to any person obtaining
@@ -24,20 +23,19 @@
 ' OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
 ' WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 '
-
-Imports Microsoft.VisualBasic\r
-Imports System\r
-Public Class TestClass\r
-       Public Function Test() As String\r
-               'Begin Code\r
-                       Try\r
-                               Dim result As String = RSet ("Hello", -2)\r
-                               Throw New Exception ("#RSet01: Expected System.ArgumentOutOfRangeException but got none")\r
-                       Catch e As Exception\r
-                               If (e.GetType ().ToString()) <> "System.ArgumentOutOfRangeException" Then\r
-                                       Throw New Exception ("#RSet02: Expected System.ArgumentOutOfRangeException but got " + e.GetType ().ToString ())\r
-                               End If\r
-                       End Try\r
-               'End Code\r
-       End Function\r
-End Class\r
+Imports Microsoft.VisualBasic
+Imports System
+Public Class TestClass
+       Public Function Test() As String
+               'Begin Code
+                       Try
+                               Dim result As String = RSet ("Hello", -2)
+                               Throw New Exception ("#RSet01: Expected System.ArgumentOutOfRangeException but got none")
+                       Catch e As Exception
+                               If (e.GetType ().ToString()) <> "System.ArgumentOutOfRangeException" Then
+                                       Throw New Exception ("#RSet02: Expected System.ArgumentOutOfRangeException but got " + e.GetType ().ToString ())
+                               End If
+                       End Try
+               'End Code
+       End Function
+End Class