Index: vhUnitTest/APPS/VKP/Maatwerk/TestConfiguratorService.cls.xml
===================================================================
diff -u -r2004 -r2008
--- vhUnitTest/APPS/VKP/Maatwerk/TestConfiguratorService.cls.xml	(.../TestConfiguratorService.cls.xml)	(revision 2004)
+++ vhUnitTest/APPS/VKP/Maatwerk/TestConfiguratorService.cls.xml	(.../TestConfiguratorService.cls.xml)	(revision 2008)
@@ -175,6 +175,7 @@
 	Set Naam = "Unittest naam 1"
 	Set MagOverschrijven = 0
 	
+	/// Een gebruiker van OV slaat op in een Pad dat gemaakt is door iemand van ICT. Dit kan enkel in het template intern pad.
 	Do Service.BewaarIngegevenKenmerken(GebruikerID, IngegevenKenmerken, Pad, Naam, MagOverschrijven)
 	
 	Set BewaardeIngegevenKenmerken = Service.GeefBewaardeIngegevenKenmerken(GebruikerID)
@@ -183,6 +184,44 @@
 	Set TemplateInternPad = ""
 	Set TemplateExternPad = ""
 	Set StandalonePad = ""
+	
+	Do ..GeefPadenVanGebruiker(..GebruikerICT.%Id(), BewaardePadenIterator, .TemplateInternPad, .TemplateExternPad, .StandalonePad)
+	
+	Do $$$AssertTrue($IsObject(TemplateInternPad),"Het template intern pad werd aangemaakt")
+	Do $$$AssertTrue($IsObject(TemplateExternPad),"Het template extern pad werd aangemaakt")
+	Do $$$AssertTrue($IsObject(StandalonePad),"Het standalone pad werd aangemaakt")
+	
+	Do $$$AssertTrue(TemplateInternPad.IsBewarenToegestaan,"Bewaren is toegestaan in het intern pad")
+	Do $$$AssertFalse(TemplateExternPad.IsBewarenToegestaan,"Bewaren is niet toegestaan in het extern pad")
+	Do $$$AssertFalse(StandalonePad.IsBewarenToegestaan,"Bewaren is niet toegestaan in het standalone pad")
+	
+	Do $$$AssertEquals(TemplateInternPad.Pad.GebruikerData.ID,..GebruikerICT.%Id(),"De ict gebruiker is eigenaar van het pad")
+	Do $$$AssertEquals(TemplateExternPad.Pad.GebruikerData.ID,..GebruikerICT.%Id(),"De ict gebruiker is eigenaar van het pad")
+	Do $$$AssertEquals(StandalonePad.Pad.GebruikerData.ID,..GebruikerICT.%Id(),"De ict gebruiker is eigenaar van het pad")
+	
+	Set BewaardKenmerk = TemplateInternPad.BewaardeKenmerken.GetAt(1)
+	Do $$$AssertEquals(TemplateInternPad.BewaardeKenmerken.Count(),1,"Er is 1 set van kenmerken opgeslagen")
+	Do $$$AssertEquals(BewaardKenmerk.Eigenaar.ID,GebruikerID,"Er is 1 set van kenmerken opgeslagen")
+	Do $$$AssertEquals(BewaardKenmerk.Familie,##class(DOM.PM.enu.Familie).Lade(),"Familie is een lade")
+	Do $$$AssertEquals(BewaardKenmerk.Variant,##class(DOM.PM.enu.LadeVariant).TAOO(),"TAOO is de variant")
+	Do $$$AssertEquals(BewaardKenmerk.Naam,"Unittest naam 1","De naam waaronder de kenmerken zijn opgeslagen")
+	
+	Set GevraagdeVersie = 0
+	Set IngegevenKenmerkenDto = Service.GeefKenmerkenViaNaam(Pad, Naam, GevraagdeVersie)
+	
+	Do $$$AssertTrue($IsObject(IngegevenKenmerkenDto),"De kenmerken werd teruggevonden")
+	// Kleine steekproef doen om na te gaan of we het goede object terugkrijgen
+	Do $$$AssertEquals(IngegevenKenmerkenDto.CorpusBreedte,IngegevenKenmerken.CorpusBreedte,"De CorpusBreedte is gelijk")
+	Do $$$AssertEquals(IngegevenKenmerkenDto.HeeftOpvullijstLinks,IngegevenKenmerken.HeeftOpvullijstLinks,"De HeeftOpvullijstLinks is gelijk")
+	Do $$$AssertEquals(IngegevenKenmerkenDto.HeeftOpvullijstRechts,IngegevenKenmerken.HeeftOpvullijstRechts,"De HeeftOpvullijstRechts is gelijk")
+	Do $$$AssertEquals(IngegevenKenmerkenDto.HeeftTipon,IngegevenKenmerken.HeeftTipon,"De HeeftTipon is gelijk")
+	Do $$$AssertEquals(IngegevenKenmerkenDto.HeeftZijstabilisering,IngegevenKenmerken.HeeftZijstabilisering,"De HeeftZijstabilisering is gelijk")
+]]></Implementation>
+</Method>
+
+<Method name="GeefPadenVanGebruiker">
+<FormalSpec><![CDATA[GebruikerID:%String,BewaardePadenIterator:TECH.Iterator,&TemplateInternPad:APPS.VKP.Maatwerk.dto.Pad,&TemplateExternPad:APPS.VKP.Maatwerk.dto.Pad,&StandalonePad:APPS.VKP.Maatwerk.dto.Pad]]></FormalSpec>
+<Implementation><![CDATA[
 	While (BewaardePadenIterator.HasNext())
 	{
 		Set BewaardPad = BewaardePadenIterator.Next()
@@ -202,14 +241,6 @@
 			}
 		}
 	}
-	
-	Do $$$AssertTrue($IsObject(TemplateInternPad),"Het template intern pad werd aangemaakt")
-	Do $$$AssertTrue($IsObject(TemplateExternPad),"Het template extern pad werd aangemaakt")
-	Do $$$AssertTrue($IsObject(StandalonePad),"Het standalone pad werd aangemaakt")
-	
-	Do $$$AssertTrue(TemplateInternPad.IsBewarenToegestaan,"Bewaren is toegestaan in het intern pad")
-	Do $$$AssertFalse(TemplateExternPad.IsBewarenToegestaan,"Bewaren is niet toegestaan in het extern pad")
-	Do $$$AssertFalse(StandalonePad.IsBewarenToegestaan,"Bewaren is niet toegestaan in het standalone pad")
 ]]></Implementation>
 </Method>
 
@@ -271,7 +302,7 @@
 	Kill ^vhUSER("D",9999)
 	If ($IsObject(..GebruikerICT))
 	{
-		Set Status = ##class(APPS.VKP.Maatwerk.impl.GebruikerPaden).%DeleteId(..GebruikerOV.%Id())
+		Set Status = ##class(APPS.VKP.Maatwerk.impl.GebruikerPaden).%DeleteId(..GebruikerICT.%Id())
 		Set:$$$ISOK(Status) Status = ..GebruikerICT.%DeleteId(..GebruikerICT.%Id())
 		Set:$$$ISOK(Status) Status = ..GebruikerOV.%DeleteId(..GebruikerOV.%Id())
 	}