mcs/mbas/Test/tests/statements/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
   8 Module errorstmt
   9
  10         Public Dim error_number as integer = 11
  11
  12         Sub Main()
  13                 Try
  14                 error error_number
  15
  16                 Catch  ex As System.Exception
  17                         If not (ex.GetType() = GetType(System.DivideByZeroException)) Then
  18                                 Throw new System.Exception("#A1 Error not working")
  19                         End If
  20                 End Try
  21         End Sub
  22 End Module
  23