Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/DummyService/Test.cls.xml
===================================================================
diff -u -r33966 -r33967
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/DummyService/Test.cls.xml	(.../Test.cls.xml)	(revision 33966)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/DummyService/Test.cls.xml	(.../Test.cls.xml)	(revision 33967)
@@ -51,14 +51,29 @@
 
 <Method name="Test: GeefMogelijkeZendingen geeft dummy mogelijkezendingen weer (Engelstalig).">
 <Implementation><![CDATA[
+	#dim TestUnit As WS.EC.Unishop.InternationaleZending.DummyService = ##class(WS.EC.Unishop.InternationaleZending.DummyService).%New(..MaakOfferteServiceMock())
+	#dim ZendingMogelijkheden As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = TestUnit.GeefMogelijkeZendingen("DummyOfferteID", "E")
+	
+	Do ..AssertZendingMogelijkhedenEngels(ZendingMogelijkheden)
+]]></Implementation>
+</Method>
+
+<Method name="MaakOfferteServiceMock">
+<ReturnType>vhTest.Mock.APPS.VKP.OfferteService</ReturnType>
+<Implementation><![CDATA[
 	#dim OfferteServiceMock As vhTest.Mock.APPS.VKP.OfferteService = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
 	#dim OfferteDummy As vhTest.Fake.APPS.VKP.Offerte = ##class(vhTest.Fake.APPS.VKP.Offerte).%New()
 	Set OfferteDummy.DocumentReferenties.OrderReferentie = "Mijn Dummy Referentie"
 	Do OfferteServiceMock.IndienMethodCall("GeefOfferte", "DummyOfferteID").DanReturn(OfferteDummy)
 	
-	#dim TestUnit As WS.EC.Unishop.InternationaleZending.DummyService = ##class(WS.EC.Unishop.InternationaleZending.DummyService).%New(OfferteServiceMock)
-	#dim ZendingMogelijkheden As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = TestUnit.GeefMogelijkeZendingen("DummyOfferteID", "E")
-	
+	Quit OfferteServiceMock
+]]></Implementation>
+</Method>
+
+<Method name="AssertZendingMogelijkhedenEngels">
+<FormalSpec>ZendingMogelijkheden:WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
 	Do $$$AssertEquals(ZendingMogelijkheden.Count(),5)
 	Do $$$AssertEquals(ZendingMogelijkheden.GetAt(1).Omschrijving,"UPS (Worldwide) Express Plus")
 	Do $$$AssertEquals(ZendingMogelijkheden.GetAt(1).ExtraInfo,"UPS will deliver your order in the early morning.")
@@ -69,14 +84,17 @@
 
 <Method name="Test: GeefMogelijkeZendingen geeft dummy mogelijkezendingen weer (Nederlandstalig).">
 <Implementation><![CDATA[
-	#dim OfferteServiceMock As vhTest.Mock.APPS.VKP.OfferteService = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
-	#dim OfferteDummy As vhTest.Fake.APPS.VKP.Offerte = ##class(vhTest.Fake.APPS.VKP.Offerte).%New()
-	Set OfferteDummy.DocumentReferenties.OrderReferentie = "Mijn Dummy Referentie"
-	Do OfferteServiceMock.IndienMethodCall("GeefOfferte", "DummyOfferteID").DanReturn(OfferteDummy)
-	
-	#dim TestUnit As WS.EC.Unishop.InternationaleZending.DummyService = ##class(WS.EC.Unishop.InternationaleZending.DummyService).%New(OfferteServiceMock)
+	#dim TestUnit As WS.EC.Unishop.InternationaleZending.DummyService = ##class(WS.EC.Unishop.InternationaleZending.DummyService).%New(..MaakOfferteServiceMock())
 	#dim ZendingMogelijkheden As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = TestUnit.GeefMogelijkeZendingen("DummyOfferteID", "N")
 	
+	Do ..AssertZendingMogelijkhedenNederlands(ZendingMogelijkheden)
+]]></Implementation>
+</Method>
+
+<Method name="AssertZendingMogelijkhedenNederlands">
+<FormalSpec>ZendingMogelijkheden:WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
 	Do $$$AssertEquals(ZendingMogelijkheden.Count(),5)
 	Do $$$AssertEquals(ZendingMogelijkheden.GetAt(1).Omschrijving,"UPS (Worldwide) Express Plus")
 	Do $$$AssertEquals(ZendingMogelijkheden.GetAt(1).ExtraInfo,"UPS levert uw bestelling in de vroege ochtend.")