X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=mcs%2Fclass%2FMicrosoft.VisualBasic%2FTest%2Fstandalone%2F5202.vb;h=f5abf7060629f088d16310cd452f8b5ab52c1595;hb=13bbfef28c7175701866862dfd24b1ba044947a1;hp=8c93314b506c3c39b139bde8c5e8ad0ec4af9b5c;hpb=3108144fd6ff0314520d7701de2fe1b0b4b99953;p=mono.git diff --git a/mcs/class/Microsoft.VisualBasic/Test/standalone/5202.vb b/mcs/class/Microsoft.VisualBasic/Test/standalone/5202.vb index 8c93314b506..f5abf706062 100644 --- a/mcs/class/Microsoft.VisualBasic/Test/standalone/5202.vb +++ b/mcs/class/Microsoft.VisualBasic/Test/standalone/5202.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,22 +23,21 @@ ' 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 -Public Class TestClass - Public Function Test() As String - 'Begin Code - Try - WriteLine (1, "Just a test") - Catch e As Exception - If (e.GetType ().ToString ()) <> "System.IO.IOException" Then - Throw New Exception ("Expected IOException but got " + e.GetType ().ToString ()) - FileClose (1) - End If - Return "Success" - End Try - Throw New Exception ("Expected IOException but got no exception") - 'End Code - End Function -End Class +Imports Microsoft.VisualBasic +Imports System +Public Class TestClass + Public Function Test() As String + 'Begin Code + Try + WriteLine (1, "Just a test") + Catch e As Exception + If (e.GetType ().ToString ()) <> "System.IO.IOException" Then + Throw New Exception ("Expected IOException but got " + e.GetType ().ToString ()) + FileClose (1) + End If + Return "Success" + End Try + Throw New Exception ("Expected IOException but got no exception") + 'End Code + End Function +End Class