Index: vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder/Test.cls.xml
===================================================================
diff -u -r41002 -r41003
--- vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 41002)
+++ vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 41003)
@@ -67,6 +67,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: gefaalde verzending geeft exceptie">
+<Implementation><![CDATA[
+	Set Response = ##class(WS.Vhisie4.WinkelkarExport.SendResponse).%New()
+	Set Response.Winkelkar.Status = "NIETGeslaagd"
+	
+	Set SenderMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender).%New()
+	Do SenderMock.VerwachtMethodCall("Send", ..Matches.DataTransferObject(..GeefVhisie4Winkelkar())).DanReturn(Response)
+
+	Set DateTimeAPIMock	= ##class(vhTest.Mock.TECH.DateTime.DateTimeAPI).%New()
+	Do DateTimeAPIMock.VerwachtMethodCall("CurrentHorolog").DanReturn("64387,35360")
+
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Blum OPC - Er is een fout opgetreden bij het bewaren van de winkelkar voor gebruiker dummy@dum.my!")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
+	
+	Set Converteerder = ##class(APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarVhisie4WinkelkarConverteerder).%New(SenderMock, DateTimeAPIMock)
+	#dim IntractoID As %String = Converteerder.Converteer(..GeefbpeWinkelkar() ,..GeefVanHoeckeKlant())
+]]></Implementation>
+</Method>
+
 <Method name="GeefbpeWinkelkar">
 <Private>1</Private>
 <ReturnType>APPS.Blum.OnlineProductConfigurator.dto.Winkelkar</ReturnType>