Index: vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder/Test.cls.xml	(revision 40992)
@@ -0,0 +1,47 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarVhisie4WinkelkarConverteerder.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: ">
+<Implementation><![CDATA[
+	Set Response = ##class(WS.Vhisie4.WinkelkarExport.SendResponse).%New()
+	Set Response.Winkelkar.Status = "Geslaagd"
+	
+	Set SenderMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender).%New()
+	Do SenderMock.VerwachtMethodCall("Send", $$$ElkeWaarde).DanReturn(Response)
+	
+	Set Converteerder = ##class(APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarVhisie4WinkelkarConverteerder).%New(SenderMock)
+	#dim IntractoID As %String = Converteerder.Converteer(..GeefWinkelkar() ,..GeefVanHoeckeKlant())
+	
+	Do $$$AssertEquals(IntractoID, Response.Winkelkar.IntractoId)
+	
+	Do SenderMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="GeefWinkelkar">
+<Private>1</Private>
+<ReturnType>APPS.Blum.OnlineProductConfigurator.dto.Winkelkar</ReturnType>
+<Implementation><![CDATA[
+	Set Winkelkar = ##class(APPS.Blum.OnlineProductConfigurator.dto.Winkelkar).%New()
+	Set Winkelkar.transferMode = "cumulated"
+	Set Winkelkar.shoppingCart = ##class(APPS.Blum.OnlineProductConfigurator.dto.ShoppingCart).%New()
+	Set Winkelkar.shoppingCart.directories = ##class(%ListOfObjects).%New()
+	Set Winkelkar.shoppingCart.identnumbers = ##class(%ListOfObjects).%New()
+	Quit Winkelkar
+]]></Implementation>
+</Method>
+
+<Method name="GeefVanHoeckeKlant">
+<Private>1</Private>
+<ReturnType>DOM.VKP.VanHoeckeKlant</ReturnType>
+<Implementation><![CDATA[
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
+	Quit Klant
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>