mcs/mbas/Test/rerrors/Test/ConditionalStatements1.vb

   1 'Expected Exception::
   2 'System.InvalidCastException: Cast from string "String" to type 'Boolean' is not valid.
   3
   4 Imports System
   5 Imports Nunit.Framework
   6
   7 <TestFixture> _
   8 Public Class ConditionalStatements1
   9
  10                 <Test, ExpectedException (GetType (System.InvalidCastException))> _
  11                 Public Sub TestForException ()
  12                 if "String" Then
  13                 throw new exception("#CSC2")
  14         end If
  15                 End Sub
  16 End Class