2005-08-04 Satya Sudha K <ksathyasudha@novell.com>

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

diff --git a/mcs/class/Microsoft.VisualBasic/Test/standalone/6426.vb b/mcs/class/Microsoft.VisualBasic/Test/standalone/6426.vb
index 3e28e034d1dc439e238b41188c57ca05ad10aa49..c62f9caead12ccaf9aa592ef4c8f9885ecfda71a 100644 (file)
--- a/mcs/class/Microsoft.VisualBasic/Test/standalone/6426.vb
+++ b/mcs/class/Microsoft.VisualBasic/Test/standalone/6426.vb
@@ -1,51 +1,43 @@
-  '\r
-  ' Copyright (c) 2002-2003 Mainsoft Corporation.\r
-  '\r
-  ' Permission is hereby granted, free of charge, to any person obtaining a\r
-  ' copy of this software and associated documentation files (the "Software"),\r
-  ' to deal in the Software without restriction, including without limitation\r
-  ' the rights to use, copy, modify, merge, publish, distribute, sublicense,\r
-  ' and/or sell copies of the Software, and to permit persons to whom the\r
-  ' Software is furnished to do so, subject to the following conditions:\r
-  ' \r
-  ' The above copyright notice and this permission notice shall be included in\r
-  ' all copies or substantial portions of the Software.\r
-  ' \r
-  ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR\r
-  ' IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,\r
-  ' FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE\r
-  ' AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER\r
-  ' LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING\r
-  ' FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER\r
-  ' DEALINGS IN THE SOFTWARE.\r
   '
-
-
-Imports Microsoft.VisualBasic.Collection\r
-\r
-Public Class TestClass\r
-    Public Function Test() As Integer\r
-        'BeginCode\r
-        Dim s1 As String = "a"\r
-        Dim s2 As String = "b"\r
-        Dim s3 As String = "c"\r
-        Dim s4 As String = "d"\r
-        Dim s5 As String = "e"\r
-        Dim col As New Microsoft.VisualBasic.Collection()\r
-\r
-        col.Add(s1, "key1", Nothing, Nothing)\r
-        col.Add(s2, "key2", 1, Nothing)\r
-        col.Add(s3, "key3", 1, Nothing)\r
-        col.Add(s4, "key4", "key3", Nothing)\r
-        col.Add(s5, "key5", "key2", Nothing)\r
-\r
-        If col.Count <> 5 Then Return 2\r
-        If col(4).ToString <> "b" Then Return 4\r
-        If col(1).ToString <> "d" Then Return 8\r
-        If col("key2").ToString <> "b" Then Return 16\r
-\r
-        Return 1\r
-\r
-    End Function\r
-End Class\r
-\r
+  ' Copyright (c) 2002-2003 Mainsoft Corporation.
+  '
+  ' Permission is hereby granted, free of charge, to any person obtaining a
+  ' copy of this software and associated documentation files (the "Software"),
+  ' to deal in the Software without restriction, including without limitation
+  ' the rights to use, copy, modify, merge, publish, distribute, sublicense,
+  ' and/or sell copies of the Software, and to permit persons to whom the
+  ' Software is furnished to do so, subject to the following conditions:
+  ' 
+  ' The above copyright notice and this permission notice shall be included in
+  ' all copies or substantial portions of the Software.
+  ' 
+  ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+  ' IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+  ' FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+  ' AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+  ' LIABILITY, WHETHER IN AN ACTION 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.Collection
+Public Class TestClass
+    Public Function Test() As Integer
+        'BeginCode
+        Dim s1 As String = "a"
+        Dim s2 As String = "b"
+        Dim s3 As String = "c"
+        Dim s4 As String = "d"
+        Dim s5 As String = "e"
+        Dim col As New Microsoft.VisualBasic.Collection()
+        col.Add(s1, "key1", Nothing, Nothing)
+        col.Add(s2, "key2", 1, Nothing)
+        col.Add(s3, "key3", 1, Nothing)
+        col.Add(s4, "key4", "key3", Nothing)
+        col.Add(s5, "key5", "key2", Nothing)
+        If col.Count <> 5 Then Return 2
+        If col(4).ToString <> "b" Then Return 4
+        If col(1).ToString <> "d" Then Return 8
+        If col("key2").ToString <> "b" Then Return 16
+        Return 1
+    End Function
+End Class