Index: vhUnitTest/AXimpl/AifMessage/EventHandler/ResponseLogger/Log/Test.cls.xml
===================================================================
diff -u -r35460 -r41035
--- vhUnitTest/AXimpl/AifMessage/EventHandler/ResponseLogger/Log/Test.cls.xml	(.../Test.cls.xml)	(revision 35460)
+++ vhUnitTest/AXimpl/AifMessage/EventHandler/ResponseLogger/Log/Test.cls.xml	(.../Test.cls.xml)	(revision 41035)
@@ -23,7 +23,12 @@
 	set MessageStream = ##class(%GlobalCharacterStream).%New()
 	do MessageStream.Write("<?xml version=""1.0"" encoding=""UTF-8""?> ... Response")
 	
-	set ReponseLogger = ##class(AXimpl.AifMessage.EventHandler.ResponseLogger).%New(MessageRepositoryMock,FailedMessageRepositoryMock)
+	Set MailFake = ##class(vhTest.Fake.TECH.Mail.Mail).%New()
+	Set MailApiMock = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New()
+	Do MailApiMock.IndienMethodCall("MaakNieuwMail").DanReturn(MailFake)
+	Do MailApiMock.VerwachtMethodCall("VerstuurMail",MailFake).ExactAantalKeer(0)
+	
+	set ReponseLogger = ##class(AXimpl.AifMessage.EventHandler.ResponseLogger).%New(MessageRepositoryMock,FailedMessageRepositoryMock,MailApiMock)
 	do ReponseLogger.Log(ResponseMessage,MessageStream)
 	
 	do $$$AssertEquals(StoredMessage.Status,"Processed")
@@ -35,6 +40,7 @@
 	
 	do MessageRepositoryMock.Verifieer()
 	do FailedMessageRepositoryMock.Verifieer()
+	do MailApiMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -64,7 +70,12 @@
 
 	set MessageStream = ##class(%GlobalCharacterStream).%New()
 	
-	set ReponseLogger = ##class(AXimpl.AifMessage.EventHandler.ResponseLogger).%New(MessageRepositoryStub,FailedMessageRepositoryMock)
+	Set MailFake = ##class(vhTest.Fake.TECH.Mail.Mail).%New()
+	Set MailApiMock = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New()
+	Do MailApiMock.IndienMethodCall("MaakNieuwMail").DanReturn(MailFake)
+	Do MailApiMock.VerwachtMethodCall("VerstuurMail",MailFake).ExactAantalKeer(1)
+	
+	set ReponseLogger = ##class(AXimpl.AifMessage.EventHandler.ResponseLogger).%New(MessageRepositoryStub,FailedMessageRepositoryMock,MailApiMock)
 	do ReponseLogger.Log(ResponseMessage,MessageStream)
 	
 	do $$$AssertEquals(FailedMessage.Message,StoredMessage)
@@ -73,6 +84,7 @@
 	do $$$AssertEquals(FailedMessage.TimeStamp,"2011-06-30 09:15:00")
 	
 	do FailedMessageRepositoryMock.Verifieer()
+	do MailApiMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -100,7 +112,12 @@
 
 	set MessageStream = ##class(%GlobalCharacterStream).%New()
 	
-	set ReponseLogger = ##class(AXimpl.AifMessage.EventHandler.ResponseLogger).%New(MessageRepositoryStub,FailedMessageRepositoryMock)
+	Set MailFake = ##class(vhTest.Fake.TECH.Mail.Mail).%New()
+	Set MailApiMock = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New()
+	Do MailApiMock.IndienMethodCall("MaakNieuwMail").DanReturn(MailFake)
+	Do MailApiMock.VerwachtMethodCall("VerstuurMail",MailFake).ExactAantalKeer(1)
+	
+	set ReponseLogger = ##class(AXimpl.AifMessage.EventHandler.ResponseLogger).%New(MessageRepositoryStub,FailedMessageRepositoryMock,MailApiMock)
 	do ReponseLogger.Log(ResponseMessage,MessageStream)
 	
 	do $$$AssertEquals(FailedMessage.Message,StoredMessage)
@@ -109,6 +126,7 @@
 	do $$$AssertEquals(FailedMessage.TimeStamp,"2011-06-30 09:15:00")
 	
 	do FailedMessageRepositoryMock.Verifieer()
+	do MailApiMock.Verifieer()
 ]]></Implementation>
 </Method>