mcs/class/Microsoft.VisualBasic/Test/standalone/5125.vb

   1 Imports Microsoft.VisualBasic \r
   2 Imports System\r
   3 Public Class TestClass \r
   4         Public Function Test() As Integer\r
   5                 'Begin Code\r
   6                         Dim result As Integer = StrComp ("Hello","")\r
   7                         If result <> 1 Then\r
   8                                 Throw New Exception ("#StrComp01: Expected 1 but got " + result.ToString ())\r
   9                         End If\r
  10                         Return result\r
  11                 'End Code\r
  12         End Function\r
  13 End Class\r