mcs/mbas/Test/tests/conversions/ImpConversionDoubletoStringB.vb

   1 'Author:
   2 '   V. Sudharsan (vsudharsan@novell.com)
   3 '
   4 ' (C) 2005 Novell, Inc.
   5
   6 Imports System.Threading
   7 Imports System.Globalization
   8
   9 Module ImpConversionDoubletoStringC
  10         Sub Main()
  11                         Thread.CurrentThread.CurrentCulture = new CultureInfo("en-US")
  12
  13                         Dim a as Double = 123.90
  14                         Dim b as String = a + "123"
  15                         if b <> "246.9"
  16                                 Throw new System.Exception("Concat of Double & String not working. Expected 246.9 but got " &b)
  17                         End if
  18         End Sub
  19 End Module
  20