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

   1 Module ExpConversionofBoolToDecimal
   2         Sub Main()
   3                 Dim a as Boolean = True
   4                 Dim b as Decimal = CDec(a)
   5                 if b <> -1 then
   6                         Throw New System.Exception("Explicit Conversion of Bool(True) to Decimal has Failed. Expected -1, but got " & b)
   7                 End if
   8         End Sub
   9 End Module