Index: vhUnitTest/WSimpl/Vhisie4/KlantActiviteit/KlantActiviteitMelder/VerzendMeldingIndienNodig/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Vhisie4/KlantActiviteit/KlantActiviteitMelder/VerzendMeldingIndienNodig/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Vhisie4/KlantActiviteit/KlantActiviteitMelder/VerzendMeldingIndienNodig/Test.cls.xml	(revision 47207)
@@ -0,0 +1,99 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Vhisie4.KlantActiviteit.KlantActiviteitMelder.VerzendMeldingIndienNodig.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Mail wordt verzonden als een inactieve klant activiteit vertoont">
+<Implementation><![CDATA[
+	Set KlantMock = ##class(vhTest.Mock.DOM.VKP.VanHoeckeKlant).%New()
+	Do KlantMock.VerwachtMethodCall("IsCommercieelActief").DanReturn($$$False)
+	Do KlantMock.VerwachtMethodCall("GeefNaam").DanReturn("DummyNaam")
+	Do KlantMock.VerwachtMethodCall("GeefID").DanReturn("DummyID")
+	Do KlantMock.VerwachtMethodCall("GeefRegio").DanReturn("DummyRegio")
+	
+	Set KlantActiviteitDummy = ##class(WSimpl.Vhisie4.KlantActiviteit.KlantActiviteit).%New()
+	
+	Set KlantActiviteitRepositoryMock = ##class(vhTest.Mock.WSimpl.Vhisie4.KlantActiviteit.KlantActiviteitRepository).%New()
+	Do KlantActiviteitRepositoryMock.VerwachtMethodCall("BestaatViaKlantId","DummyKlantId").DanReturn($$$False)
+	Do KlantActiviteitRepositoryMock.VerwachtMethodCall("Maak").DanReturn(KlantActiviteitDummy)
+	Do KlantActiviteitRepositoryMock.VerwachtMethodCall("Bewaar",KlantActiviteitDummy).DanDoeNiks()
+
+	Set VerkoopAPIMock = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
+	Do VerkoopAPIMock.VerwachtMethodCall("GeefKlant","DummyKlantId").DanReturn(KlantMock)
+	
+	Set MailMock = ##class(vhTest.Mock.TECH.Mail.Mail).%New()
+	Do MailMock.VerwachtMethodCall("ZetVerzender", """OV"" <AdminCACHE@vanhoecke.be>").DanDoeNiks()
+	Do MailMock.VerwachtMethodCall("ZetOnderwerp", "Klant activiteit op vhisie 4 voor klant 'DummyNaam' met KlantId 'DummyID'").DanDoeNiks()
+	Do MailMock.VerwachtMethodCall("ZetInhoud", "Klant DummyNaam met KlantId DummyID staat commercieel inactief en vertoont activiteit op vhisie 4." _$$$CRLF _"Op datum en tijd 2011-06-30 09:15:00" _$$$CRLF _"(Deze melding is éénmalig.)").DanDoeNiks()
+	Do MailMock.VerwachtMethodCall("ZetIsHTML",1).DanDoeNiks()
+	Do MailMock.VerwachtMethodCall("VoegToeOntvanger","OV_weborder_RDummyRegio").DanDoeNiks()
+	
+	Set MailApiMock = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New()
+	Do MailApiMock.VerwachtMethodCall("MaakNieuwMail").DanReturn(MailMock)
+	Do MailApiMock.VerwachtMethodCall("VerstuurMail", MailMock).DanDoeNiks()
+	
+	Set DateTimeAPIMock = ##class(vhTest.Mock.TECH.DateTime.DateTimeAPI).%New()
+	Do DateTimeAPIMock.VerwachtMethodCall("CurrentTimeStamp").DanReturn($$$DummyTimeStamp)
+	
+	Set KlantActiviteitMelder = ##class(WSimpl.Vhisie4.KlantActiviteit.KlantActiviteitMelder).%New(KlantActiviteitRepositoryMock, MailApiMock, VerkoopAPIMock,DateTimeAPIMock)
+	Do KlantActiviteitMelder.VerzendMeldingIndienNodig("DummyKlantId")
+	
+	Do $$$AssertEquals(KlantActiviteitDummy.KlantId, "DummyKlantId")
+	Do $$$AssertEquals(KlantActiviteitDummy.DatumLaatstActief, $$$DummyTimeStamp)
+	
+	Do KlantActiviteitRepositoryMock.Verifieer()
+	Do MailApiMock.Verifieer()
+	Do VerkoopAPIMock.Verifieer()
+	Do DateTimeAPIMock.Verifieer()
+	Do KlantMock.Verifieer()
+	Do MailMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Mail wordt niet verzonden als een commercieel actieve klant activiteit vertoont">
+<Implementation><![CDATA[
+	Set KlantActiviteitDummy = ##class(WSimpl.Vhisie4.KlantActiviteit.KlantActiviteit).%New()
+	
+	Set KlantActiviteitRepositoryMock = ##class(vhTest.Mock.WSimpl.Vhisie4.KlantActiviteit.KlantActiviteitRepository).%New()
+	Do KlantActiviteitRepositoryMock.VerwachtMethodCall("BestaatViaKlantId","DummyKlantId").DanReturn($$$False)
+	Do KlantActiviteitRepositoryMock.VerwachtMethodCall("Maak").Nooit()
+	Do KlantActiviteitRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).Nooit()
+
+	Set KlantMock = ##class(vhTest.Mock.DOM.VKP.VanHoeckeKlant).%New()
+	Do KlantMock.VerwachtMethodCall("IsCommercieelActief").DanReturn($$$True)
+
+	Set VerkoopAPIMock = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
+	Do VerkoopAPIMock.VerwachtMethodCall("GeefKlant","DummyKlantId").DanReturn(KlantMock)
+	
+	Set MailApiStub = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New()
+	
+	Set DateTimeAPIStub = ##class(vhTest.Mock.TECH.DateTime.DateTimeAPI).%New()
+	
+	Set KlantActiviteitMelder = ##class(WSimpl.Vhisie4.KlantActiviteit.KlantActiviteitMelder).%New(KlantActiviteitRepositoryMock, MailApiStub, VerkoopAPIMock, DateTimeAPIStub)
+	Do KlantActiviteitMelder.VerzendMeldingIndienNodig("DummyKlantId")
+	
+	Do KlantActiviteitRepositoryMock.Verifieer()
+	Do VerkoopAPIMock.Verifieer()
+	Do KlantMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Mail wordt niet verzonden als er reeds een mail verzonden is">
+<Implementation><![CDATA[
+	Set KlantActiviteitRepositoryMock = ##class(vhTest.Mock.WSimpl.Vhisie4.KlantActiviteit.KlantActiviteitRepository).%New()
+	Do KlantActiviteitRepositoryMock.VerwachtMethodCall("BestaatViaKlantId","DummyKlantId").DanReturn($$$True)
+
+	Set VerkoopAPIStub = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
+	Set MailApiStub = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New()
+	Set DateTimeAPIStub = ##class(vhTest.Mock.TECH.DateTime.DateTimeAPI).%New()
+	
+	Set KlantActiviteitMelder = ##class(WSimpl.Vhisie4.KlantActiviteit.KlantActiviteitMelder).%New(KlantActiviteitRepositoryMock, MailApiStub, VerkoopAPIStub, DateTimeAPIStub)
+	Do KlantActiviteitMelder.VerzendMeldingIndienNodig("DummyKlantId")
+	
+	Do KlantActiviteitRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>