mcs/mbas/Test/tests/ExpConversionIntToBoolA1.vb

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