mcs/mbas/Test/rerrors/Test/LongLiteral1.vb

   1 'Expected Exception:: InvalidCastException
   2 Imports System
   3 Imports Nunit.Framework
   4
   5 <TestFixture> _
   6 Public Class LongLiteral1
   7
   8                 <Test, ExpectedException (GetType (System.InvalidCastException))> _
   9                 Public Sub TestForException ()
  10                         Dim a As Long
  11                         a="Hello"
  12                 End Sub
  13 End Class