Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/Test.cls.xml
===================================================================
diff -u -r38864 -r38868
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 38864)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 38868)
@@ -3,6 +3,28 @@
 <Class name="vhUnitTest.WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<Method name="Test: BereidVoorBestelling geeft opgehaalde leverdatums in het resultaat">
+<Implementation><![CDATA[
+	#dim OfferteDummy As vhTest.Fake.APPS.VKP.Offerte = ##class(vhTest.Fake.APPS.VKP.Offerte).%New()
+	
+	#dim OfferteRepositoryStub As vhTest.Mock.APPS.VKP.Offerte.OfferteRepository = ##class(vhTest.Mock.APPS.VKP.Offerte.OfferteRepository).%New()
+	Do OfferteRepositoryStub.IndienMethodCall("BestaatViaExterneId", "WinkelkarId").DanReturn($$$True)
+	Do OfferteRepositoryStub.IndienMethodCall("GeefViaExterneId", "WinkelkarId").DanReturn(OfferteDummy)
+	
+	#dim VerkoopServiceStub As vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
+	Do VerkoopServiceStub.IndienMethodCall("GeefMogelijkeLeverdatums","DummyID").DanReturn(..GeefMogelijkeLeverdatums())
+
+	#dim BereidVoorBestelling As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(VerkoopServiceStub, OfferteRepositoryStub)
+	
+	#dim Resultaat As WS.Vhisie4.Winkelkar.BereidVoorBestellingResponse
+	Set Resultaat = BereidVoorBestelling.BereidVoorBestelling(..GeefBereidVoorBestellingRequest())
+	
+	If $$$AssertEquals(Resultaat.MogelijkeLeverdatums.Count(), 2 ) {
+		Do $$$AssertEqualsList(Resultaat.MogelijkeLeverdatums, ..GeefMogelijkeLeverdatums())
+	}
+]]></Implementation>
+</Method>
+
 <Method name="Test: BereidVoorBestelling haalt leverdatums op met de juiste parameters">
 <Implementation><![CDATA[
 	#dim OfferteDummy As vhTest.Fake.APPS.VKP.Offerte = ##class(vhTest.Fake.APPS.VKP.Offerte).%New()
@@ -68,6 +90,18 @@
 	Quit BereidVoorBestellingRequest
 ]]></Implementation>
 </Method>
+
+<Method name="GeefMogelijkeLeverdatums">
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim MogelijkeLeverdatums As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	Do MogelijkeLeverdatums.Insert( ##class(TECH.DateTime.impl.DateTimeAPI).%New().CurrentDate() + 1 )
+	Do MogelijkeLeverdatums.Insert( ##class(TECH.DateTime.impl.DateTimeAPI).%New().CurrentDate() + 2 )
+
+	Quit MogelijkeLeverdatums
+]]></Implementation>
+</Method>
 </Class>