Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/OrderSluiter/Test.cls.xml
===================================================================
diff -u -r49499 -r49500
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/OrderSluiter/Test.cls.xml	(.../Test.cls.xml)	(revision 49499)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/OrderSluiter/Test.cls.xml	(.../Test.cls.xml)	(revision 49500)
@@ -73,6 +73,45 @@
 	Do MailerMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Indien foutmelding bij het aanmaken of sluiten van een order dan een mail versturen naar OV">
+<Implementation><![CDATA[
+	Set OfferteMock = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
+	Do OfferteMock.VerwachtMethodCall("GeefID").DanReturn("OfferteID")
+	Do OfferteMock.VerwachtMethodCall("GeefTotaalBedragWebshop").DanReturn(0)
+	
+	#Dim OrderDummy As DOM.VKP.Order = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrder()
+	
+	Set OrderIngaveServiceMock = ##class(vhTest.Mock.APPS.VKP.OrderIngaveService).%New()
+	Do OrderIngaveServiceMock.VerwachtMethodCall("MaakOrderVanOfferte","OfferteID","").DanReturn(OrderDummy)
+	
+	Set GeneralException = ##class(TECH.Exceptions.GeneralErrorException).%New("Order kan niet gesloten worden!")
+	
+	Set OrderSluiterMock = ##class(vhTest.Mock.CHUI.VKP.OrderIngave.OrderSluiter).%New()
+	Do OrderSluiterMock.VerwachtMethodCall("KanOrderSluiten","100000","").DanReturn($$$True)
+	Do OrderSluiterMock.IndienMethodCall("Sluit","100000","","").DanException(GeneralException)
+	
+	Set OrderSluiterFactoryMock = ##class(vhTest.Mock.CHUI.VKP.OrderIngave.OrderSluiterFactory).%New()
+	Do OrderSluiterFactoryMock.VerwachtMethodCall("GeefOrderSluiter","100000").DanReturn(OrderSluiterMock)
+	
+	Set OfferteServiceMock = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	Do OfferteServiceMock.VerwachtMethodCall("GeefBerekendeTotaalBedrag",OfferteMock).DanReturn(0)
+	
+	Set MailerMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.Mailer).%New()
+	#dim Melding As %String = "Er is een fout opgetreden bij het automatisch verwerken van Vhisie4 offerte met OfferteID 'OfferteID' - foutmelding : " _GeneralException.ToString()
+	Do MailerMock.VerwachtMethodCall("Verzend", OfferteMock, Melding).ExactAantalKeer(1).DanDoeNiks()
+	
+	Set OrderSluiter = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.OrderSluiter).%New(OrderIngaveServiceMock, OrderSluiterFactoryMock, OfferteServiceMock, MailerMock)
+	Do OrderSluiter.MaakEnSluitOrder(OfferteMock)
+	
+	Do OfferteMock.Verifieer()
+	Do OrderIngaveServiceMock.Verifieer()
+	Do OrderSluiterFactoryMock.Verifieer()
+	Do OrderSluiterMock.Verifieer()
+	Do OfferteServiceMock.Verifieer()
+	Do MailerMock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>