Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails/Test.cls.xml
===================================================================
diff -u -r33113 -r33114
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails/Test.cls.xml	(.../Test.cls.xml)	(revision 33113)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails/Test.cls.xml	(.../Test.cls.xml)	(revision 33114)
@@ -19,11 +19,12 @@
 <Private>1</Private>
 </Property>
 
-<Method name="OnBeforeAllTests">
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set ..TransportOfferteService = ##class(vhTest.Mock.APPS.TRANSP.OfferteService).%New()
 	Set ..BerekenInput = ..GeefBerekenInput()
-	Do ##super()
+	Do ##super(aTestName)
 ]]></Implementation>
 </Method>
 
@@ -44,6 +45,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test : GeefZendingDetails van twee transportfirma&apos;s Waarbij 1 transportfirma faalt bij het ophalen van gegevens ">
+<Implementation><![CDATA[
+	Do ..TransportOfferteService.IndienMethodCall("BerekenOfferte",##class(APPS.TRANSP.enu.TransportFirma).UPS(),..BerekenInput).DanReturn(..GeefOfferteDataUPS())
+	Do ..TransportOfferteService.IndienMethodCall("BerekenOfferte",##class(APPS.TRANSP.enu.TransportFirma).DHL(),..BerekenInput).DanException($$$DummyException)
+
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("DummyException")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException", Substrings))
+
+	Set HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(..TransportOfferteService)
+	#dim ZendingDetailsResult As WS.EC.Unishop.InternationaleZending.dto.Details = HaalZendingDetails.GeefZendingDetails(..BerekenInput)
+]]></Implementation>
+</Method>
+
 <Method name="GeefZendingDetailsDummy">
 <ReturnType>WS.EC.Unishop.InternationaleZending.dto.Details</ReturnType>
 <Implementation><![CDATA[