Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/OrderSluiter/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/OrderSluiter/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/OrderSluiter/Test.cls.xml	(revision 49499)
@@ -0,0 +1,79 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.OrderSluiter.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Maak een order van vhisie4 offerte en sluit order">
+<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 OrderSluiterMock = ##class(vhTest.Mock.CHUI.VKP.OrderIngave.OrderSluiter).%New()
+	Do OrderSluiterMock.VerwachtMethodCall("KanOrderSluiten","100000","").DanReturn($$$True)
+	Do OrderSluiterMock.VerwachtMethodCall("Sluit","100000","","").ExactAantalKeer(1).DanDoeNiks()
+	
+	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()
+
+	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()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Indien webshop prijzen niet gelijk aan offerte dan maken we geen order maar versturen een mail">
+<Implementation><![CDATA[
+	Set OfferteMock = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
+	Do OfferteMock.VerwachtMethodCall("GeefID").DanReturn("OfferteID")
+	Do OfferteMock.VerwachtMethodCall("GeefTotaalBedragWebshop").DanReturn(81)
+	
+	#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","").Nooit()
+	
+	Set OrderSluiterMock = ##class(vhTest.Mock.CHUI.VKP.OrderIngave.OrderSluiter).%New()
+	Do OrderSluiterMock.VerwachtMethodCall("KanOrderSluiten","100000","").Nooit()
+	Do OrderSluiterMock.VerwachtMethodCall("Sluit","100000","","").Nooit()
+	
+	Set OrderSluiterFactoryMock = ##class(vhTest.Mock.CHUI.VKP.OrderIngave.OrderSluiterFactory).%New()
+	Do OrderSluiterFactoryMock.VerwachtMethodCall("GeefOrderSluiter","100000").Nooit()
+	
+	Set OfferteServiceMock = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	Do OfferteServiceMock.VerwachtMethodCall("GeefBerekendeTotaalBedrag",OfferteMock).DanReturn(72)
+	
+	Set MailerMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.Mailer).%New()
+	#dim Melding As %String = "De Vhisie4 offerte met offerteID 'OfferteID' wordt niet automatisch verwerkt door prijsverschillen : Totaalbedrag webshop : 81 EUR <> Totaalbedrag offerte : 72 EUR"
+	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>
+
+
+</Export>