Index: vhUnitTest/WSimpl/EC/Unishop/OrderConfirmation/Service/IntractoMelder/UpdateCartStatus/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/EC/Unishop/OrderConfirmation/Service/IntractoMelder/UpdateCartStatus/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/EC/Unishop/OrderConfirmation/Service/IntractoMelder/UpdateCartStatus/Test.cls.xml	(revision 51654)
@@ -0,0 +1,66 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder.UpdateCartStatus.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: UpdateCartStatus succes">
+<Implementation><![CDATA[
+	#dim CartID As %String = "UT_CartID"
+	#dim CartStatus As %String = "UT_CartStatus"
+	Set Response = ##class(WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder.UpdateStatusResponse).%New()
+	
+	Set CartPortStub = ##class(vhTest.Mock.WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder.CartPort).%New()
+	Do CartPortStub.VerwachtMethodCall("updateStatus",CartID,CartStatus).DanReturn(Response)
+	
+	Set IntractoMelder = ##class(WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder).%New(CartPortStub)
+	#dim Result As WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder.UpdateStatusResponse = IntractoMelder.UpdateCartStatus(CartID, CartStatus, )
+	
+	Do $$$AssertEquals(Response,Result)
+	
+	Do CartPortStub.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Fout in webservice smijt exceptie">
+<Implementation><![CDATA[
+	#dim CartID As %String = "UT_CartID"
+	#dim CartStatus As %String = "UT_CartStatus"
+	
+	#dim Foutmelding As %String = "UT_Foutmelding"
+	Set Exceptie = ##class(TECH.Exceptions.GeneralErrorException).%New(Foutmelding)
+
+	Set CartPortStub = ##class(vhTest.Mock.WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder.CartPort).%New()
+	Do CartPortStub.IndienMethodCall("updateStatus",CartID,CartStatus).DanException(Exceptie)
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Fout bij IntractoMelder : updateStatus van UT_CartID is niet gelukt","***"_Foutmelding)
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.CommunicationErrorException",Substrings))
+		
+	#dim DoorgaanNaFoutmelding As %Boolean = $$$False
+	Set IntractoMelder = ##class(WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder).%New(CartPortStub)
+	Do IntractoMelder.UpdateCartStatus(CartID, CartStatus, DoorgaanNaFoutmelding)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Fout in webservice - toch doorgaan na LogEnMail">
+<Implementation><![CDATA[
+	#dim CartID As %String = "UT_CartID"
+	#dim CartStatus As %String = "UT_CartStatus"
+	
+	#dim Foutmelding As %String = "UT_Foutmelding"
+	Set Exceptie = ##class(TECH.Exceptions.GeneralErrorException).%New(Foutmelding)
+
+	Set CartPortStub = ##class(vhTest.Mock.WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder.CartPort).%New()
+	Do CartPortStub.IndienMethodCall("updateStatus",CartID,CartStatus).DanException(Exceptie)
+		
+	#dim DoorgaanNaFoutmelding As %Boolean = $$$True
+	Set IntractoMelder = ##class(WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder).%New(CartPortStub)
+	#dim Result As WSimpl.EC.Unishop.OrderConfirmation.Service.IntractoMelder.UpdateStatusResponse = IntractoMelder.UpdateCartStatus(CartID, CartStatus, DoorgaanNaFoutmelding)
+	
+	Do $$$AssertEquals(Result.success, $$$False)
+	Do $$$AssertEquals(Result.error, Foutmelding)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>