mcs/mbas/Test/tests/ExpConversionBoolToDecimalA1.vb

   1 Module ExpConversionBoolToDecimal
   2         Sub Main()
   3                 Dim a as Boolean = False
   4                 Dim b as Decimal = CDec(a)
   5                 if b <> 0
   6                         Throw new System.Exception("Boolean to Decimal Conversion failed. Expected 0 but got " & b)
   7                 End if
   8         End Sub
   9 End Module