-Imports Microsoft.VisualBasic \r
-Imports System\r
-Public Class TestClass \r
- Public Function Test() As Integer\r
- 'Begin Code\r
- Dim result As Integer = StrComp ("Hello","HELLO")\r
- If result <> 1 Then\r
- Throw New Exception ("#StrComp01: Expected 1 but got " + result.ToString ())\r
- End If\r
- Return result\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() As Integer
+ 'Begin Code
+ Dim result As Integer = StrComp ("Hello","HELLO")
+ If result <> 1 Then
+ Throw New Exception ("#StrComp01: Expected 1 but got " + result.ToString ())
+ End If
+ Return result
+ 'End Code
+ End Function
+End Class