Index: vhUnitTest/AXimpl/RequestComposer/ExceptieMelder/Test.cls.xml
===================================================================
diff -u -r48930 -r49052
--- vhUnitTest/AXimpl/RequestComposer/ExceptieMelder/Test.cls.xml	(.../Test.cls.xml)	(revision 48930)
+++ vhUnitTest/AXimpl/RequestComposer/ExceptieMelder/Test.cls.xml	(.../Test.cls.xml)	(revision 49052)
@@ -8,6 +8,11 @@
 <Private>1</Private>
 </Property>
 
+<Parameter name="Sleutel">
+<Type>%String</Type>
+<Default>MoetGefaaldeAxRequestMelden</Default>
+</Parameter>
+
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
 	Do ##super()
@@ -18,8 +23,36 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Exceptie wordt gemeld aan Gebruiker">
+<Method name="Test: Gebruiker wordt opgehaald indien ConfigItem dit toelaat">
 <Implementation><![CDATA[
+	Do ..AssertGebruikerWordtOpgehaald($$$True, $$$True)
+	Do ..AssertGebruikerWordtOpgehaald($$$False, $$$False)
+]]></Implementation>
+</Method>
+
+<Method name="AssertGebruikerWordtOpgehaald">
+<FormalSpec>MoetGefaaldeAxRequestMelden:%Boolean,MoetGebruikerOpgehaaldWorden:%Boolean</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean(..#Sleutel, MoetGefaaldeAxRequestMelden, ..#Applicatie)
+	
+	#dim GebruikerStub As vhTest.Mock.DOM.common.VanHoeckeGebruiker = ##class(vhTest.Mock.DOM.common.VanHoeckeGebruiker).%New()
+	Do GebruikerStub.IndienMethodCall("GeefInitialen").DanReturn("")
+	
+	#dim GebruikerApiMock As vhTest.Mock.DOM.common.GebruikerAPI = ##class(vhTest.Mock.DOM.common.GebruikerAPI).%New()
+	Do GebruikerApiMock.VerwachtMethodCall("GeefGebruiker", ..GebruikerId).ExactAantalKeer(MoetGebruikerOpgehaaldWorden).DanReturn(GebruikerStub)
+	
+	#dim ExceptieMelder As AXimpl.RequestComposer.ExceptieMelder = ##class(AXimpl.RequestComposer.ExceptieMelder).%New(GebruikerApiMock, "")
+	Do ExceptieMelder.VerwittigGebruiker("RandomMessageId", "RandomAction")
+	
+	Do GebruikerApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test:Exceptie wordt gemeld indien de Gebruiker gekend is en niet-SYS">
+<Implementation><![CDATA[
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean(..#Sleutel, $$$True, ..#Applicatie)
+	
 	#dim GebruikerInitialen As %String = "DUM"
 	#dim EmailAdres As %String = "dummy@vanhoecke.be"
 	
@@ -51,6 +84,8 @@
 
 <Method name="Test: Exceptie wordt niet gemeld indien Gebruiker is SYS">
 <Implementation><![CDATA[
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean(..#Sleutel, $$$True, ..#Applicatie)
+	
 	#dim GebruikerInitialen As %String = "SYS"
 	
 	#dim GebruikerMock As vhTest.Mock.DOM.common.VanHoeckeGebruiker = ##class(vhTest.Mock.DOM.common.VanHoeckeGebruiker).%New()