mcs/mbas/Test/rerrors/Test/Error.vb

   1 ' Authors:
   2 '   Alexandre Rocha Lima e Marcondes (alexandre@psl-pr.softwarelivre.org)
   3 '   Maverson Eduardo Schulze Rosa (maverson@gmail.com)
   4 '
   5 ' GrupoTIC - UFPR - Federal University of Paraná
   6
   7 Imports System
   8 Imports Nunit.Framework
   9
  10 <TestFixture> _
  11 Public Class errorstmt
  12
  13                 <Test, ExpectedException (GetType (System.FormatException))> _
  14         Public Sub TestErrorString()
  15                 error "aaa"
  16         End Sub
  17         <Test, ExpectedException (GetType (System.InvalidCastException))> _
  18         Public Sub TestErrorObject()
  19             error new Object()
  20         End Sub
  21 End Class
  22