mcs/btests/InvocationStatementA.vb

   1 Imports Microsoft.VisualBasic
   2 Imports System
   3
   4 Module InvocationStatementA
   5     Dim i As Integer = 0
   6
   7     Delegate Function Df(ByVal a As Integer)
   8
   9     Sub f1()
  10         i += 1
  11         f2()
  12     End Sub
  13
  14     Function f2() As Integer
  15         i += 2
  16     End Function
  17
  18     Function f2(ByVal i As Integer) As Integer
  19         i += 5
  20         Return i
  21     End Function
  22
  23     Function f2(ByVal o As Object) As Boolean
  24         Return True
  25     End Function
  26
  27     Function f3(ByVal j As Integer)
  28         i += j
  29     End Function
  30
  31     Function f4(ByVal j As Integer)
  32         i += j * 10
  33     End Function
  34
  35     Sub main()
  36
  37         Call f1()
  38         If i <> 3 Then
  39             Throw New Exception("#ISB1 - Invocation Statement failed")
  40         End If
  41
  42         If f2(i) <> 8 Then
  43             Throw New Exception("#ISB2 - Invocation Statement failed")
  44         End If
  45
  46         If Not f2("Hello") Then
  47             Throw New Exception("#ISB3 - Invocation Statement failed")
  48         End If
  49
  50         If Not f2(2.3D) Then
  51             Throw New Exception("#ISB4 - Invocation Statement failed")
  52         End If
  53
  54         Dim d1, d2 As Df
  55         d1 = New Df(AddressOf f3)
  56         d2 = New Df(AddressOf f4)
  57
  58         d1.Invoke(2) : d2.Invoke(2)
  59         If i <> 25 Then
  60             Throw New Exception("#ISB5 - Invocation Statement failed")
  61         End If
  62
  63     End Sub
  64
  65 End Module