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

   1 'Author:
   2 '   V. Sudharsan (vsudharsan@novell.com)
   3 '
   4 ' (C) 2005 Novell, Inc.
   5
   6 Module ImpConversionDecimaltoByte
   7         Function fun(Byval i as Byte)
   8                 if i <> 10 then
   9                         Throw new System.Exception("Implicit Conversion of Decimal to Byte not working. Expected 10 but got " &i)
  10                 End if
  11         End Function
  12         Sub Main()
  13                 Dim i as Decimal = 10
  14                 fun(i)
  15
  16         End Sub
  17 End Module