mcs/mbas/Test/tests/ImpConversionDoubleToBoolA1.vb

   1 Module ImpConversionofDoubletoBool
   2         Sub Main()
   3                 Dim a as Double = 0
   4                 Dim b as Boolean = a
   5                 if b <> False then
   6                         Throw New System.Exception("Implicit Conversion of Double to Bool(False) has Failed. Expected False, but got " & b)
   7                 End if
   8         End Sub
   9 End Module