2004-08-05 Anirban Bhattacharjee <[email protected]>

        * InterfaceA.vb: Test now covers all Interface members.

svn path=/trunk/mcs/; revision=31925

mcs/btests/ChangeLog

@@ -1,3 +1,6 @@
+2004-08-05 Anirban Bhattacharjee <[email protected]>
+	* InterfaceA.vb: Test now covers all Interface members.
+
 2004-08-04  Jambunathan K  <[email protected]>
 	* RegionDirectivesC5.vb: 
 	* ConditionalCompilation9.vb: 

mcs/btests/InterfaceA.vb

@@ -1,20 +1,35 @@
-Interface I
-    Function F()
-End Interface
-
-Class C
-    Implements I
-
-    Function F() Implements I.F
-    End Function
-End Class
-
-Module InterfaceA
-    Sub Main()
-        Dim x As C = New C()
-        x.F()
-
-        Dim y As I = New C()
-        y.F()
-    End Sub
-End Module
+Interface I
+    Function F()
+    Sub S (i as integer)
+    Property P
+    Event e (i as integer)
+End Interface
+
+Class C
+    Implements I
+
+    Function F() Implements I.F
+    End Function
+
+    Sub S(i as integer) Implements I.S
+    End Sub
+
+   Property P Implements I.P
+	Get
+	End Get
+	Set
+	End Set
+   End Property
+
+   Event e(i as integer) Implements I.e
+End Class
+
+Module InterfaceA
+    Sub Main()
+        Dim x As C = New C()
+        x.F()
+
+        Dim y As I = New C()
+        y.F()
+    End Sub
+End Module