Index: Tools/Test/TestCase/OnBeforeOneTest.cls.xml
===================================================================
diff -u -r3042 -r3187
--- Tools/Test/TestCase/OnBeforeOneTest.cls.xml	(.../OnBeforeOneTest.cls.xml)	(revision 3042)
+++ Tools/Test/TestCase/OnBeforeOneTest.cls.xml	(.../OnBeforeOneTest.cls.xml)	(revision 3187)
@@ -4,10 +4,24 @@
 <Super>%RegisteredObject</Super>
 
 <Method name="Exec">
-<FormalSpec>Debug:%Boolean</FormalSpec>
-<Implementation><![CDATA[	Do:('Debug) ##class(vhTest.Fake.TECH.Logging.impl.LoggingAPI).MockInstance()
+<FormalSpec>TestCase:Tools.Test.TestCase,Debug:%Boolean</FormalSpec>
+<Implementation><![CDATA[
+	do ..SetRuntimeContext(TestCase)
+	Do:('Debug) ##class(vhTest.Fake.TECH.Logging.impl.LoggingAPI).MockInstance()
 ]]></Implementation>
 </Method>
+
+<Method name="SetRuntimeContext">
+<FormalSpec>TestCase:Tools.Test.TestCase</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim RuntimeContext As TECH.Context.RuntimeContext = ##class(TECH.Context.RuntimeContext).Instance()
+	do RuntimeContext.ZetApplicatie(TestCase.%GetParameter("Applicatie"))
+	do RuntimeContext.ZetGebruikerID(TestCase.%GetParameter("UserId"))
+	do RuntimeContext.ZetPersonalityID(TestCase.%GetParameter("PersonalityID"))
+	do RuntimeContext.ZetSessieID("")
+]]></Implementation>
+</Method>
 </Class>