mcs/mbas/Test/rerrors/Test/RelationalOperators1.vb

   1 'Unhandled Exception: System.InvalidCastException: Cast from string "Hello" to type
   2 'Double' is not valid. ---> System.FormatException: Input string was not in a correct format
   3
   4 Option Explicit
   5 Imports System
   6 Imports Nunit.Framework
   7 <TestFixture> _
   8 Public Class RelationalOperators1
   9                 <Test, ExpectedException (GetType (System.InvalidCastException))> _
  10                  Public Sub TestForException()
  11                  Dim a As Long = 0
  12                  Dim b As String = "Hello"
  13                  If a < b Then
  14                 'Console.WriteLine("#A1-RelationalOperator: Not Expected")
  15                  End If
  16                  End Sub
  17 End Class