mcs/mbas/Test/tests/ExpressionLiteralStringA.vb

   1 'Author: Ritvik Mayank <mritvik@novell.com>
   2 'Copyright (C) 2005 Novell, Inc (http://www.novell.com)
   3
   4 imports Microsoft.Visualbasic
   5 Imports System
   6 Module ExpressionLiteralString
   7         Sub Main()
   8                 Dim A As String = "Check"
   9                 Dim B As String = "Concat" + "enation"
  10                 Dim C as String = "CheckConcatenation"
  11                 Dim D As String = A+B
  12                 if C <> D Then
  13                         Throw New Exception (" Unexpected Behavior of the Expression. A + B should reflect CheckConcatenation ")
  14                 End If
  15         End Sub
  16 End Module