mcs/mbas/Test/tests/types/CharacterLiterals.vb

   1 Module CharacterLiterals
   2     Sub Main()
   3         Dim c As Char
   4         c = "x"
   5
   6         c = "X"
   7
   8         Dim a As String = "X"c
   9         If a <> c Then
  10             Throw New System.Exception("a is not same as c")
  11         End If
  12
  13         'the outcome should be "x"
  14         c = """x"""
  15     End Sub
  16
  17 End Module