Index: vhUnitTest/APPS/Blum/impl/OnlineProductConfiguratorService/Rapporteur/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Blum/impl/OnlineProductConfiguratorService/Rapporteur/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Blum/impl/OnlineProductConfiguratorService/Rapporteur/Test.cls.xml	(revision 41081)
@@ -0,0 +1,54 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Blum.impl.OnlineProductConfiguratorService.Rapporteur.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Melding wordt verzonden naar OV en via Email">
+<Implementation><![CDATA[
+	Set Meldingen = ##class(%ListOfDataTypes).%New()
+	Do Meldingen.Insert("identNummer Foutmelding")
+	
+	Set MailMock = ##class(vhTest.Mock.TECH.Mail.Mail).%New()
+	Do MailMock.VerwachtMethodCall("ZetOnderwerp","BLUM OPC - meldingen bij het verwerken van een winkelkar.").DanDoeNiks()
+	Do MailMock.VerwachtMethodCall("ZetVerzender","BLUMOPC@vanhoecke.be").DanDoeNiks()
+	Do MailMock.VerwachtMethodCall("VoegToeOntvanger","""OV"" <AdminCACHE@vanhoecke.be>").DanDoeNiks()
+	Do MailMock.VerwachtMethodCall("ZetIsHTML","0").DanDoeNiks()
+	Do MailMock.VerwachtMethodCall("ZetOmleiden","0").DanDoeNiks()
+	
+	#dim VerwachteInhoud As %String = "Er zijn fouten opgetreden bij het opzoeken van producten!" _$$$CRLF 
+	Set VerwachteInhoud = VerwachteInhoud _"KlantID : KlantID" _$$$CRLF
+	Set VerwachteInhoud = VerwachteInhoud _"Email : UserName" _$$$CRLF _$$$CRLF
+	Set VerwachteInhoud = VerwachteInhoud _"identNummer Foutmelding" _$$$CRLF _$$$CRLF
+	
+	Do MailMock.VerwachtMethodCall("ZetInhoud", VerwachteInhoud).DanDoeNiks()
+	
+	Set MailAPIMock = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New()
+	Do MailAPIMock.VerwachtMethodCall("MaakNieuwMail").DanReturn(MailMock)
+	Do MailAPIMock.VerwachtMethodCall("VerstuurMail", MailMock).DanDoeNiks()
+	
+	Set Rapporteur = ##class(APPS.Blum.impl.OnlineProductConfiguratorService.Rapporteur).%New(MailAPIMock)
+	Do Rapporteur.MailMeldingenNaarOV(Meldingen,"UserName","KlantID")
+	
+	Do MailAPIMock.Verifieer()
+	Do MailMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geen Melding verzend geen Email">
+<Implementation><![CDATA[
+	Set Meldingen = ##class(%ListOfDataTypes).%New()
+	
+	Set MailAPIMock = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New()
+	Do MailAPIMock.VerwachtMethodCall("MaakNieuwMail").Nooit()
+	Do MailAPIMock.VerwachtMethodCall("VerstuurMail").Nooit()
+	
+	Set Rapporteur = ##class(APPS.Blum.impl.OnlineProductConfiguratorService.Rapporteur).%New(MailAPIMock)
+	Do Rapporteur.MailMeldingenNaarOV(Meldingen,"UserName","KlantID")
+	
+	Do MailAPIMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>