Index: vhUnitTest/EXT/Optima/CalculPrix/ServiceWeb/CalculerTiroir/Test.cls.xml
===================================================================
diff -u -r45940 -r48188
--- vhUnitTest/EXT/Optima/CalculPrix/ServiceWeb/CalculerTiroir/Test.cls.xml	(.../Test.cls.xml)	(revision 45940)
+++ vhUnitTest/EXT/Optima/CalculPrix/ServiceWeb/CalculerTiroir/Test.cls.xml	(.../Test.cls.xml)	(revision 48188)
@@ -18,6 +18,8 @@
 
 <Method name="TestCorrecteAanvraag">
 <Implementation><![CDATA[
+	#dim LoggingSpy As vhTest.Spy.TECH.Logging.impl.LoggingAPI = ##class(vhTest.Spy.TECH.Logging.impl.LoggingAPI).MockInstance()
+
 	#dim Request As EXT.Optima.CalculPrix.dto.Request = ..MaakRequestVolledigeTAX()
 
 	#dim Response As EXT.Optima.CalculPrix.dto.Response = ..WebService.CalculerTiroir(Request)
@@ -26,8 +28,14 @@
 	Set VerwachteResponse.KostPrijs = 76.09
 	Set VerwachteResponse.RefVanHoecke = "-VH_Fixed"
 	Set VerwachteResponse.ErrorCode = 0
-	
-	Do ..AssertResponse(Response,VerwachteResponse)
+
+	If (Response.ErrorCode = 0) {
+		Do ..AssertResponse(Response,VerwachteResponse)
+	} Else {
+		#dim LogItem As vhLib.Logging = LoggingSpy.GeefLogItemsPerNiveau("E").GetAt(1)
+		#dim FailMessage As %String = $$$CRLF_"Zie InnerExceptie - "_$$$CRLF_LogItem.Detail
+		Do ..Fail(FailMessage)
+	}
 ]]></Implementation>
 </Method>