mcs/mbas/Test/tests/expressions/ExpressionLiteralStringC.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 Object = "Test"
   9                 Dim B as Object = "Test"
  10                 if  B <> A
  11                         Throw New Exception ("Unexpected Behavior. B should be Equal to A as string literals refer to the same string instance ")
  12                 End If
  13         End Sub
  14 End Module