X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=mcs%2Fclass%2FMicrosoft.VisualBasic%2FTest%2Fstandalone%2F6881.vb;h=6e826458bfbe7adf1fca22bcfb69c84f55599d57;hb=13bbfef28c7175701866862dfd24b1ba044947a1;hp=b48dce88c0e2d0c034f10f9a6e4e0278057fbd71;hpb=3108144fd6ff0314520d7701de2fe1b0b4b99953;p=mono.git

diff --git a/mcs/class/Microsoft.VisualBasic/Test/standalone/6881.vb b/mcs/class/Microsoft.VisualBasic/Test/standalone/6881.vb
index b48dce88c0e..6e826458bfb 100644
--- a/mcs/class/Microsoft.VisualBasic/Test/standalone/6881.vb
+++ b/mcs/class/Microsoft.VisualBasic/Test/standalone/6881.vb
@@ -1,59 +1,66 @@
-  '
-  ' 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
-Imports System.IO
-
-Public Class TestClass
-    Public Function Test() As String
-        Dim caughtException As Boolean
-        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\6881.txt"
-        Dim f As System.IO.FileInfo = New System.IO.FileInfo(DestinationFile)
-        If (f.Exists) Then
-            Kill(DestinationFile)
-        End If
-        FileCopy(SourceFile, DestinationFile)
-
-
-        '// File mode is invalid.
        caughtException = False
        Try
            fn = FreeFile()
-            FileOpen(fn, System.IO.Directory.GetCurrentDirectory() + "\data\6881.txt", OpenMode.Input)
-            Print(fn, "abc")
-            FileClose(fn)
-        Catch e As IOException
            If Err.Number = 54 Then
                caughtException = True
            End If
        End Try
        If caughtException = False Then Return "sub test 1 failed"
-
-        '// FileNumber does not exist.
-        caughtException = False
        Try
            Print(256, "abc")
        Catch e As IOException
            If Err.Number = 52 Then
                caughtException = True
            End If
        End Try
        If caughtException = False Then Return "sub test 2 failed"
-
-        Return "success"
-
-    End Function
-End Class
+  ' 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
+Imports System.IO
+Public Class TestClass
+    Public Function Test() As String
+        Dim caughtException As Boolean
+        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\6881.txt"
+        Dim f As System.IO.FileInfo = New System.IO.FileInfo(DestinationFile)
+        If (f.Exists) Then
+            Kill(DestinationFile)
+        End If
+        FileCopy(SourceFile, DestinationFile)
+        '// File mode is invalid.
+        caughtException = False
+        Try
+            fn = FreeFile()
+            FileOpen(fn, System.IO.Directory.GetCurrentDirectory() + "\data\6881.txt", OpenMode.Input)
+            Print(fn, "abc")
+            FileClose(fn)
+        Catch e As IOException
+            If Err.Number = 54 Then
+                caughtException = True
+            End If
+        End Try
+        If caughtException = False Then Return "sub test 1 failed"
+        '// FileNumber does not exist.
+        caughtException = False
+        Try
+            Print(256, "abc")
+        Catch e As IOException
+            If Err.Number = 52 Then
+                caughtException = True
+            End If
+        End Try
+        If caughtException = False Then Return "sub test 2 failed"
+        Return "success"
+    End Function
+End Class