Index: vhUnitTest/APPS/EC/Winkelkar/TestWinkelkarService.cls.xml
===================================================================
diff -u -r1718 -r2011
--- vhUnitTest/APPS/EC/Winkelkar/TestWinkelkarService.cls.xml	(.../TestWinkelkarService.cls.xml)	(revision 1718)
+++ vhUnitTest/APPS/EC/Winkelkar/TestWinkelkarService.cls.xml	(.../TestWinkelkarService.cls.xml)	(revision 2011)
@@ -146,5 +146,46 @@
 	Do ##class(DOM.EC.Winkelkar.Winkelkar).%DeleteId(Winkelkar.WinkelkarID)
 ]]></Implementation>
 </Method>
+
+<Method name="TestMaakLeegWinkelkar">
+<Implementation><![CDATA[
+	Set WinkelkarService = ##class(APPS.EC.Winkelkar.WinkelkarService).%New()
+	
+	Set Applicatie = ##class(APPS.common.dto.Applicatie).%New()
+	Set Applicatie.Naam = "UnitTest"
+	Set Applicatie.Type = ##class(APPS.common.enu.ApplicatieType).Intern()
+	
+	Set GroepNaam = "Groep"
+	
+	Set KlantID = 7587
+	Set Winkelkar = WinkelkarService.MaakWinkelkar(Applicatie,KlantID)
+	
+	Set IngegevenKenmerken = ##class(APPS.PM.Maatwerk.dto.TAOOKenmerken).%New()
+	Set IngegevenKenmerken.CorpusBreedte = 600
+	Set IngegevenKenmerken.Draagkracht = 30
+	Set IngegevenKenmerken.IsBinnenbreedte = 1
+	Set IngegevenKenmerken.IsBinnenlade = 1
+	Set IngegevenKenmerken.LadeKleur = ##class(DOM.PM.enu.TAOOLadeKleur).SmokedWalnut()
+	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAOOLadeHoogte).N()
+	Set IngegevenKenmerken.LadeDiepte = 250
+	Set IngegevenKenmerken.HeeftOpvullijstLinks = 0
+	Set IngegevenKenmerken.HeeftOpvullijstRechts = 0
+	Set IngegevenKenmerken.HeeftTipon = 0
+	Set IngegevenKenmerken.HeeftZijstabilisering = 0
+	
+	Set Aantal = 3
+	
+	Set Winkelkar = WinkelkarService.VoegToeMaatwerk(Applicatie, Winkelkar.WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal)
+	
+	Do $$$AssertTrue($IsObject(Winkelkar),"Er werd een winkelkar teruggegeven")
+	
+	Set Winkelkar = WinkelkarService.MaakLeegWinkelkar(Applicatie, Winkelkar.WinkelkarID)
+	
+	Do $$$AssertTrue($IsObject(Winkelkar),"De gewijzigde winkelkar werd weergegeven")
+	Do $$$AssertEquals(Winkelkar.Lijnen.Count(),0,"De winkelkar werd leeggemaakt")
+	
+	Do ##class(DOM.EC.Winkelkar.Winkelkar).%DeleteId(Winkelkar.WinkelkarID)
+]]></Implementation>
+</Method>
 </Class>
 </Export>