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

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

diff --git a/mcs/class/Microsoft.VisualBasic/Test/standalone/5024.vb b/mcs/class/Microsoft.VisualBasic/Test/standalone/5024.vb
index f16750f2aa2a32ce7a7a745d5b42a6949d885dc6..d916bebc22d0bce23316964e38936320448c64ca 100644 (file)
--- a/mcs/class/Microsoft.VisualBasic/Test/standalone/5024.vb
+++ b/mcs/class/Microsoft.VisualBasic/Test/standalone/5024.vb
@@ -1,16 +1,41 @@
-Imports Microsoft.VisualBasic \r
-Imports System\r
-Public Class TestClass\r
-       Public Function Test()\r
-               'Begin Code\r
-                       On Error Resume Next\r
-                       Err.Raise (514, Nothing, "This is just a sample error", nothing, nothing)\r
-                       If Err.Number <> 514 then\r
-                               Throw New Exception ("#Raise01")\r
-                       End If\r
-                       If Err.Description <> "This is just a sample error" then\r
-                               Throw New Exception ("#Raise02")\r
-                       End If\r
-               'End Code\r
-       End Function\r
-End Class\r
+
+'
+' 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
+' 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
+Public Class TestClass
+       Public Function Test()
+               'Begin Code
+                       On Error Resume Next
+                       Err.Raise (514, Nothing, "This is just a sample error", nothing, nothing)
+                       If Err.Number <> 514 then
+                               Throw New Exception ("#Raise01")
+                       End If
+                       If Err.Description <> "This is just a sample error" then
+                               Throw New Exception ("#Raise02")
+                       End If
+               'End Code
+       End Function
+End Class