Index: Tools/Test/TestCase.cls.xml
===================================================================
diff -u -r2691 -r3024
--- Tools/Test/TestCase.cls.xml	(.../TestCase.cls.xml)	(revision 2691)
+++ Tools/Test/TestCase.cls.xml	(.../TestCase.cls.xml)	(revision 3024)
@@ -77,10 +77,6 @@
 <Type>Tools.Test.VerwachteExceptie</Type>
 </Property>
 
-<Property name="UitgeschakeldeEvents">
-<Type>%ArrayOfDataTypes</Type>
-</Property>
-
 <Property name="StartTime">
 <Type>%TimeStamp</Type>
 </Property>
@@ -131,9 +127,7 @@
 </Method>
 
 <Method name="OnAfterAllTests">
-<Implementation><![CDATA[
-	do ##class(Tools.Test.TestCase.OnAfterAllTests).%New().Exec(..Debug)
-	Do ..SchakelInAlleEvents()
+<Implementation><![CDATA[	do ##class(Tools.Test.TestCase.OnAfterAllTests).%New().Exec(..Debug)
 ]]></Implementation>
 </Method>
 
@@ -313,33 +307,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="SchakelUitEvent">
-<FormalSpec>EventType:%String</FormalSpec>
-<Implementation><![CDATA[
-	#dim Query As %String = "SELECT EventType,RespondingClass,RespondingMethod FROM TECH_PubSub.EventSubscription WHERE EventType = ?"
-	#dim RS As %ResultSet = $$ExecDynQuery^vhLib.Query(Query,$LB(EventType))
-	
-	While RS.Next(){
-		Do ..UitgeschakeldeEvents.SetAt($LB(RS.Data("RespondingClass"),RS.Data("RespondingMethod")),RS.Data("EventType"))
-	}
-	
-	Set Query = "DELETE TECH_PubSub.EventSubscription WHERE EventType = ?"
-	Do ExecDynQuery^vhLib.Query(Query,$LB(EventType))
-]]></Implementation>
-</Method>
-
-<Method name="SchakelInAlleEvents">
-<Implementation><![CDATA[
-	#Dim UitgeschakeldeEventIt As TECH.Iterator = ##class(TECH.ListIterator).%New(..UitgeschakeldeEvents)
-	
-	While UitgeschakeldeEventIt.HasNext() {
-		#dim UitgeschakeldeEvent As %List = UitgeschakeldeEventIt.Next()
-		Set Subscription = ##class(TECH.PubSub.EventSubscription).%New(UitgeschakeldeEventIt.Key(),$LG(UitgeschakeldeEvent,1),$LG(UitgeschakeldeEvent,2))
-		Do Subscription.%Save()	
-	}
-]]></Implementation>
-</Method>
-
 <Method name="ControleBestandNodigOpRecenteAanpassing">
 <FormalSpec>FileInfo:TECH.FileInfo</FormalSpec>
 <ReturnType>%Boolean</ReturnType>