mcs/btests/CharacterLiterals.vb

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