2004-09-30 Anirban Bhattacharjee <[email protected]>

        * EventH.vb:
        * EventI.vb:
                Couple of more scenario got covered

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

mcs/btests/ChangeLog

@@ -1,3 +1,8 @@
+2004-09-30 Anirban Bhattacharjee <[email protected]>
+	* EventH.vb:
+	* EventI.vb:
+		Couple of more scenario got covered
+
 2004-09-29 K Satya Sudha
         * Makefile : Modified it to log the names of the testcases that 
                      passed successfully 

mcs/btests/EventH.vb

@@ -9,8 +9,11 @@ Class C
 End Class
                                                                                 
 Class C1
+
 	Inherits C
 
+	Public Event E1
+
         Sub call_S()
                 S()
         End Sub
@@ -18,6 +21,9 @@ Class C1
         Sub EH() Handles MyBase.E
                 Console.WriteLine("event-H called")
         End Sub
+
+	Sub EH1() Handles Me.E1
+	End Sub
 End Class
 
 Module M

mcs/btests/EventI.vb

@@ -4,24 +4,38 @@ Class C
 	Delegate Sub EH()
 	Public Event E as EH
 
-	Public Sub S()
+	Public Sub S
 		RaiseEvent E
 	End Sub
 
-	Sub xh() 
+	Sub xh 
 		Console.WriteLine("event called")
 	End Sub
+
+	shared sub s
+	end sub
 End Class
 
 Class C1
 	Inherits C
 
-	Sub call_S()
-		dim x as C = new C()
-		AddHandler x.E, AddressOf MyBase.xh
-		x.S()
+	Delegate Sub EH1()
+	Public Event E1 as EH1
+
+	Sub xh1()
+		Console.WriteLine("event called 1")
 	End Sub
 
+	Sub call_S()
+		AddHandler MyBase.E, AddressOf MyBase.xh
+		MyBase.S()
+		RemoveHandler MyBase.E, AddressOf MyBase.xh
+			
+	
+		AddHandler Me.E1, AddressOf Me.xh1
+		RaiseEvent E1
+		RemoveHandler Me.E1, AddressOf Me.xh1
+	End Sub
 End Class
 
 Module M