mcs/class/Microsoft.VisualBasic/Test/standalone/5074.vb

   1
   2 '
   3 ' Author:
   4 '   Roopa Wilson (rowilson@novell.com)
   5 ' Copyright (C) 2004 Novell, Inc (http://www.novell.com)
   6 '
   7 ' Permission is hereby granted, free of charge, to any person obtaining
   8 ' a copy of this software and associated documentation files (the
   9 ' "Software"), to deal in the Software without restriction, including
  10 ' without limitation the rights to use, copy, modify, merge, publish,
  11 ' distribute, sublicense, and/or sell copies of the Software, and to
  12 ' permit persons to whom the Software is furnished to do so, subject to
  13 ' the following conditions:
  14 '
  15 ' The above copyright notice and this permission notice shall be
  16 ' included in all copies or substantial portions of the Software.
  17 '
  18 ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
  19 ' EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
  20 ' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
  21 ' NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
  22 ' LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
  23 ' OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
  24 ' WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  25 '
  26 Imports Microsoft.VisualBasic
  27 Imports System
  28 Public Class TestClass
  29         Public Function Test() As Char
  30                 'Begin Code
  31                         Dim a As String = "Hello"
  32                         Try
  33                                 Dim d As Char = ChrW (a)
  34                                 Throw new Exception ("#Chr01")
  35                         Catch e As Exception
  36                                 If (e.GetType ().ToString ())   <> "System.InvalidCastException" Then
  37                                         Throw new Exception ("#Chr01: expeced InvalidCastException but got " + e.GetType ().ToString ())
  38                                 End If
  39                         End Try
  40
  41                 'End Code
  42         End Function
  43 End Class