2004-12-14 Gonzalo Paniagua Javier <gonzalo@ximian.com>

[mono.git] / mcs / btests / DelegateA.vb

diff --git a/mcs/btests/DelegateA.vb b/mcs/btests/DelegateA.vb
index 53dd25520662d1ff446c0919eedd2724fb432b85..b7125c097c19d6d4031fe3d719639324573ce295 100644 (file)
--- a/mcs/btests/DelegateA.vb
+++ b/mcs/btests/DelegateA.vb
@@ -1,25 +1,29 @@
 Imports System
 
-
-
 Module M
        Delegate Sub SD()
        sub f()
+               System.Console.WriteLine("s called")
        End sub
 
        Public Delegate Function SF(a as integer) as Integer
        Public Function f1(a as integer) as Integer
+               System.Console.WriteLine("f1 called")
                return a
        End Function
 
+       Public Function TD(d as SD) as Integer
+               d.Invoke()
+       End Function
+
        Sub Main()
                dim d1 as SD 
                d1 = new SD(AddressOf f)
                d1.Invoke()
 
-               'dim d2 as SD
-               'd2 = AddressOf f  ''//this invocation is not functional yet
-               'd2.Invoke()
+               dim d2 as SD
+               d2 = AddressOf f 
+               d2.Invoke()
 
                dim d3 as new SD(AddressOf f)
                d3.Invoke()
@@ -28,9 +32,10 @@ Module M
                d4 = new SF(AddressOf f1)
                Dim i as Integer = d4.Invoke(10)
                if i <> 10 then
-                       Throw new System.Exception ("#A1, Unexpected result")
-               end if
+                       Throw new System.Exception ("#A1, Unexpected result")
+                end if
 
+               TD(AddressOf f)
                
        End Sub
 End Module