mcs/mbas/Test/tests/expressions/ExpressionsWithOrElseB.vb

   1 'Author: Ritvik Mayank <mritvik@novell.com>
   2 'Copyright (C) 2005 Novell, Inc (http://www.novell.com)
   3 'this is when first term is False
   4
   5 Imports System
   6 Imports Microsoft.VisualBasic
   7 Module Test
   8
   9 Function f1(i As integer,j As integer,k As integer) As Boolean
  10         Dim E As Boolean = (k - i) > (j - i)
  11         Return E
  12 End Function
  13
  14 Function f2 (l as integer,m as integer)As Boolean
  15         Dim F As Boolean = l > m
  16         Return F
  17 End Function
  18
  19 Sub Main()
  20         Dim MyCheck As Boolean
  21         MyCheck = f1(10,40,30)OrElse f2(10,20)
  22         If Mycheck = True Then
  23                 Throw New Exception (" Unexpected Result for the Expression  ")
  24         End if
  25 End Sub
  26 End Module