mcs/mbas/Test/rerrors/Test/LateBinding3.vb

   1 'Author:
   2 '   V. Sudharsan (vsudharsan@novell.com)
   3 '
   4 ' (C) 2005 Novell, Inc.
   5
   6 Imports System
   7 Imports Nunit.Framework
   8
   9 Class Test12
  10          Sub fun(ParamArray a() as Long)
  11                 a(1) = 10
  12          End Sub
  13 End Class
  14
  15 <TestFixture>_
  16 Public Class TypeMembers3
  17         _<Test, ExpectedException (GetType (System.IndexOutOfRangeException ))>
  18         Public Sub TestForException()
  19                    dim i as Long
  20                    dim o as Object = new Test12()
  21                    o.fun(i)
  22         End Sub
  23 End Class
  24