mcs/mbas/Test/tests/ImpConversionSingleToBoolA2.vb

   1 Module ImpConversionofSingletoBool
   2         Sub Main()
   3                 Dim a as Single = 123
   4                 Dim b as Boolean = a
   5                 if b <> True then
   6                         Throw New System.Exception("Implicit Conversion of Single to Bool(True) has Failed. Expected True got "+b)
   7                 End if
   8         End Sub
   9 End Module