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

   1 Module ExpConversionDoubletoBool
   2         Sub Main()
   3                 Dim a As Single = -4.940656E-12
   4                 Dim b as Boolean
   5                 b = CBool(a)
   6                 if b <> True
   7                         Throw new System.Exception("Double to Boolean Conversion is not working properly. Expected True but got " &b)
   8                 End if
   9         End Sub
  10 End Module