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

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

diff --git a/mcs/class/Microsoft.VisualBasic/Test/standalone/6994.vb b/mcs/class/Microsoft.VisualBasic/Test/standalone/6994.vb
index c3a5c5bdc4ecfd20eb19c92b4ed59ac975a0b0e3..3e31dee3f8ed555b3059dffee203d7d4f2321a37 100644 (file)
--- a/mcs/class/Microsoft.VisualBasic/Test/standalone/6994.vb
+++ b/mcs/class/Microsoft.VisualBasic/Test/standalone/6994.vb
@@ -1,59 +1,52 @@
-  '\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\r
-\r
-Public Class TestClass\r
-    Public Function Test() As String\r
-\r
-        ' MSDN: With files opened for Binary access, \r
-        ' an attempt to read through the file using the Input function until \r
-        ' EOF returns True generates an error. \r
-        ' GHT: This behaviour is not reproducable\r
-        Dim c1 As Char\r
-        Dim fn As Integer\r
-        \r
-        '// make sure all files are closed\r
-        Microsoft.VisualBasic.FileSystem.Reset()\r
-\r
-        '// create a file for the test\r
-        Dim SourceFile As String\r
-        Dim DestinationFile As String\r
-        SourceFile = System.IO.Directory.GetCurrentDirectory() + "\data\textfile.txt"\r
-        DestinationFile = System.IO.Directory.GetCurrentDirectory() + "\data\6994.txt"\r
-        Dim f As System.IO.FileInfo = New System.IO.FileInfo(DestinationFile)\r
-        If (f.Exists) Then\r
-            Kill(DestinationFile)\r
-        End If\r
-        FileCopy(SourceFile, DestinationFile)\r
-\r
-        fn = FreeFile()\r
-        FileOpen(fn, DestinationFile, OpenMode.Binary)\r
-        Do While Not EOF(fn)\r
-            Input(fn, c1)\r
-        Loop\r
-        FileClose(fn)\r
-\r
-        Return c1\r
-    End Function\r
-End Class\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
+Public Class TestClass
+    Public Function Test() As String
+        ' MSDN: With files opened for Binary access, 
+        ' an attempt to read through the file using the Input function until 
+        ' EOF returns True generates an error. 
+        ' GHT: This behaviour is not reproducable
+        Dim c1 As Char
+        Dim fn As Integer
+        
+        '// make sure all files are closed
+        Microsoft.VisualBasic.FileSystem.Reset()
+        '// create a file for the test
+        Dim SourceFile As String
+        Dim DestinationFile As String
+        SourceFile = System.IO.Directory.GetCurrentDirectory() + "\data\textfile.txt"
+        DestinationFile = System.IO.Directory.GetCurrentDirectory() + "\data\6994.txt"
+        Dim f As System.IO.FileInfo = New System.IO.FileInfo(DestinationFile)
+        If (f.Exists) Then
+            Kill(DestinationFile)
+        End If
+        FileCopy(SourceFile, DestinationFile)
+        fn = FreeFile()
+        FileOpen(fn, DestinationFile, OpenMode.Binary)
+        Do While Not EOF(fn)
+            Input(fn, c1)
+        Loop
+        FileClose(fn)
+        Return c1
+    End Function
+End Class